Encyclopedia Constants Constants Alpha Genesis Residual Target Corrected At Closing Load
ARTICLE 3 claims 2 theorems 1 model
Constants Alpha Genesis Residual Target Corrected At Closing Load
A machine-checked theorem pins down the one number that would finish the fine-structure constant derivation, and names the exact condition for success.
The closing load
The fine-structure constant α is a number that governs the strength of electromagnetic interactions between charged particles. Its measured value is 137.035999177, a figure from the CODATA 2022 adjustment. Recognition Science (RS) attempts to derive this constant from first principles, and its first-order calculation lands within about 5.6 parts per million of the measured value with nothing fitted. The remaining gap is the residual, and the declaration corrected_at_closingLoad concerns the one number that would close that gap.
The declaration proves a precise fact. The framework models the correction as an additional spectral load, a quantity added to an exponent that shifts the computed value. The theorem corrected_at_closingLoad states that if this load equals a specific number, called the closing load, then the dressed value equals the measured value exactly. A companion theorem, corrected_eq_codata_iff, proves this is the only load that does so: the dressed value is strictly decreasing in the load, so exactly one value closes the residual. The closing load itself is written in closed form, a combination of logarithms of framework constants and the measured value.
What the declaration does not claim is that this closing load has been derived from the framework's own geometry. The number is defined by reference to the measured value, so it is a target, not a result. The open problem is to derive this one number from the seam topology of the three-dimensional voxel lattice, using a procedure that never references CODATA. If such a blind derivation lands on the closing load, the α derivation closes at experimental precision. If it lands elsewhere, the channel-budget bridge, a named input of the derivation, is falsified. The anti-epicycle rule is binding: no candidate load may be admitted to the certified surface merely because it is numerically close to the closing load. Admission requires a forced derivation from lattice geometry.
In plain terms, the declaration establishes a sharp checkpoint. It says: here is the exact number that would complete the derivation, and here is the test that would prove it. The framework's library, a machine-checked collection of formal theorems, guarantees the uniqueness of this checkpoint. The derivation of the number itself remains open, and the declaration is the honest statement of that fact.
THEOREM corrected_at_closingLoad · IndisputableMonolith/Constants/AlphaGenesis/ResidualTarget.lean
/-- The closing load closes: `correctedAlphaInv closingLoad = α⁻¹_CODATA`. -/
theorem corrected_at_closingLoad :
correctedAlphaInv closingLoad = alpha_inv_CODATA := by
unfold correctedAlphaInv closingLoad
have hb : (0 : ℝ) < channelBudget := channelBudget_pos
have hb' : channelBudget ≠ 0 := ne_of_gt hb
have hC : (0 : ℝ) < alpha_inv_CODATA := alpha_inv_CODATA_pos
have hratio : (0 : ℝ) < alpha_inv_CODATA / channelBudget := div_pos hC hb
have hexp : spectralLoad +
(Real.log (alpha_inv_CODATA / channelBudget) / Real.log Foundation.MeasureForcing.rho
- spectralLoad)
= Real.log (alpha_inv_CODATA / channelBudget) / Real.log Foundation.MeasureForcing.rho := by
ring
rw [hexp]
show channelBudget *
Foundation.MeasureForcing.rho ^
(Real.log (alpha_inv_CODATA / channelBudget) / Real.log Foundation.MeasureForcing.rho)
= alpha_inv_CODATA
rw [Real.rpow_def_of_pos Foundation.MeasureForcing.rho_pos]
have hlog : Real.log Foundation.MeasureForcing.rho ≠ 0 := log_rho_ne_zero
have harg : Real.log Foundation.MeasureForcing.rho *
(Real.log (alpha_inv_CODATA / channelBudget) / Real.log Foundation.MeasureForcing.rho)
= Real.log (alpha_inv_CODATA / channelBudget) := by
field_simp
rw [harg, Real.exp_log hratio]
field_simp
THEOREM corrected_eq_codata_iff · IndisputableMonolith/Constants/AlphaGenesis/ResidualTarget.lean
/-- **Uniqueness of the closing load.** The dressed value is strictly
decreasing in the load (ρ < 1), so exactly one `δ₂` closes the residual. -/
theorem corrected_eq_codata_iff (δ₂ : ℝ) :
correctedAlphaInv δ₂ = alpha_inv_CODATA ↔ δ₂ = closingLoad := by
constructor
· intro h
have hb : (0 : ℝ) < channelBudget := channelBudget_pos
have hkey : Foundation.MeasureForcing.rho ^ (spectralLoad + δ₂) =
Foundation.MeasureForcing.rho ^ (spectralLoad + closingLoad) := by
have h2 : correctedAlphaInv δ₂ = correctedAlphaInv closingLoad := by
rw [h, corrected_at_closingLoad]
unfold correctedAlphaInv at h2
exact mul_left_cancel₀ (ne_of_gt hb) h2
-- ρ^x is strictly antitone for ρ ∈ (0,1), so the exponents agree
have hexp_eq : spectralLoad + δ₂ = spectralLoad + closingLoad := by
by_contra hne
rcases lt_or_gt_of_ne hne with hlt | hgt
· have hmono := Real.rpow_lt_rpow_of_exponent_gt
Foundation.MeasureForcing.rho_pos Foundation.MeasureForcing.rho_lt_one hlt
linarith [hkey.le, hkey.ge, hmono]
· have hmono := Real.rpow_lt_rpow_of_exponent_gt
Foundation.MeasureForcing.rho_pos Foundation.MeasureForcing.rho_lt_one hgt
linarith [hkey.le, hkey.ge, hmono]
linarith [hexp_eq]
· intro h
rw [h]
exact corrected_at_closingLoad
MODEL closingLoad · IndisputableMonolith/Constants/AlphaGenesis/ResidualTarget.lean
/-- **The unique closing load**: the one value of `δ₂` aligning the dressed
value with CODATA, written in closed form. This is the sharply localized
open target: derive THIS number from seam geometry, blind. -/
def closingLoad : ℝ :=
Real.log (alpha_inv_CODATA / channelBudget) / Real.log Foundation.MeasureForcing.rho
- spectralLoad
What this page does not claim
The closing load has not been derived from lattice geometry; it is defined using the measured value. The fine-structure constant α is not derived by this declaration; the derivation remains open. No candidate load may be admitted to the certified surface based on numerical proximity alone.
Verify this page
Every tagged claim above names its theorem. To check one yourself rather than trust this page, elaborate the source module with Lean 4 and audit its axiom basis:
$ lake env lean IndisputableMonolith/Constants/AlphaGenesis/ResidualTarget.lean
expected axiom basis: [propext, Classical.choice, Quot.sound] (the Lean kernel's standard three; no RS-specific axioms)
A page whose claims cannot be reproduced this way does not ship. In production, every anchor links to the exact declaration in the public source release, and this block carries the build receipt for the page itself.
Derived articles
This page is generated by a question-recursion engine: the questions its answers raise become the next pages. The current agenda, with open targets marked red:
- Can the closing load be derived from the seam topology of the three-dimensional voxel lattice without referencing CODATA?
- What is the channel-budget bridge, and why does its falsification invalidate the derivation?
- How does the spectral load correction relate to the first-order genesis value?
MACHINE LAYER · GROUNDED CLAIM TABLE · CLICK TO EXPAND
THEOREM corrected_at_closingLoad · IndisputableMonolith/Constants/AlphaGenesis/ResidualTarget.lean
/-- The closing load closes: `correctedAlphaInv closingLoad = α⁻¹_CODATA`. -/ theorem corrected_at_closingLoad : correctedAlphaInv closingLoad = alpha_inv_CODATA := by unfold correctedAlphaInv closingLoad have hb : (0 : ℝ) < channelBudget := channelBudget_pos have hb' : channelBudget ≠ 0 := ne_of_gt hb have hC : (0 : ℝ) < alpha_inv_CODATA := alpha_inv_CODATA_pos have hratio : (0 : ℝ) < alpha_inv_CODATA / channelBudget := div_pos hC hb have hexp : spectralLoad + (Real.log (alpha_inv_CODATA / channelBudget) / Real.log Foundation.MeasureForcing.rho - spectralLoad) = Real.log (alpha_inv_CODATA / channelBudget) / Real.log Foundation.MeasureForcing.rho := by ring rw [hexp] show channelBudget * Foundation.MeasureForcing.rho ^ (Real.log (alpha_inv_CODATA / channelBudget) / Real.log Foundation.MeasureForcing.rho) = alpha_inv_CODATA rw [Real.rpow_def_of_pos Foundation.MeasureForcing.rho_pos] have hlog : Real.log Foundation.MeasureForcing.rho ≠ 0 := log_rho_ne_zero have harg : Real.log Foundation.MeasureForcing.rho * (Real.log (alpha_inv_CODATA / channelBudget) / Real.log Foundation.MeasureForcing.rho) = Real.log (alpha_inv_CODATA / channelBudget) := by field_simp rw [harg, Real.exp_log hratio] field_simpThe theorem corrected_at_closingLoad states that if the spectral load equals the closing load, then the dressed value equals the measured value exactly. corrected_at_closingLoad · IndisputableMonolith/Constants/AlphaGenesis/ResidualTarget.leanTHEOREM corrected_eq_codata_iff · IndisputableMonolith/Constants/AlphaGenesis/ResidualTarget.lean
/-- **Uniqueness of the closing load.** The dressed value is strictly decreasing in the load (ρ < 1), so exactly one `δ₂` closes the residual. -/ theorem corrected_eq_codata_iff (δ₂ : ℝ) : correctedAlphaInv δ₂ = alpha_inv_CODATA ↔ δ₂ = closingLoad := by constructor · intro h have hb : (0 : ℝ) < channelBudget := channelBudget_pos have hkey : Foundation.MeasureForcing.rho ^ (spectralLoad + δ₂) = Foundation.MeasureForcing.rho ^ (spectralLoad + closingLoad) := by have h2 : correctedAlphaInv δ₂ = correctedAlphaInv closingLoad := by rw [h, corrected_at_closingLoad] unfold correctedAlphaInv at h2 exact mul_left_cancel₀ (ne_of_gt hb) h2 -- ρ^x is strictly antitone for ρ ∈ (0,1), so the exponents agree have hexp_eq : spectralLoad + δ₂ = spectralLoad + closingLoad := by by_contra hne rcases lt_or_gt_of_ne hne with hlt | hgt · have hmono := Real.rpow_lt_rpow_of_exponent_gt Foundation.MeasureForcing.rho_pos Foundation.MeasureForcing.rho_lt_one hlt linarith [hkey.le, hkey.ge, hmono] · have hmono := Real.rpow_lt_rpow_of_exponent_gt Foundation.MeasureForcing.rho_pos Foundation.MeasureForcing.rho_lt_one hgt linarith [hkey.le, hkey.ge, hmono] linarith [hexp_eq] · intro h rw [h] exact corrected_at_closingLoadA companion theorem proves that the closing load is the only load that closes the residual. corrected_eq_codata_iff · IndisputableMonolith/Constants/AlphaGenesis/ResidualTarget.leanMODEL closingLoad · IndisputableMonolith/Constants/AlphaGenesis/ResidualTarget.lean
/-- **The unique closing load**: the one value of `δ₂` aligning the dressed value with CODATA, written in closed form. This is the sharply localized open target: derive THIS number from seam geometry, blind. -/ def closingLoad : ℝ := Real.log (alpha_inv_CODATA / channelBudget) / Real.log Foundation.MeasureForcing.rho - spectralLoadThe closing load is defined by reference to the measured value, so it is a target, not a result. closingLoad · IndisputableMonolith/Constants/AlphaGenesis/ResidualTarget.lean