Encyclopedia Constants Constants Alpha Genesis Residual Target Corrected Eq Codata Iff
ARTICLE 3 claims 3 theorems
Constants Alpha Genesis Residual Target Corrected Eq Codata Iff
A machine-checked theorem says that if a certain correction is allowed, exactly one value makes the framework's fine-structure constant match experiment, but deriving that value remains an open problem.
The closing load
The fine-structure constant α is a number that measures the strength of the electromagnetic force between charged particles, roughly 1/137. It is one of the most precisely measured quantities in physics; the CODATA 2022 adjustment gives 1/α = 137.035999177(21). The Recognition Science framework, a system that derives physical constants from a discrete ledger (a record of recognition events), produces its own first-order value for 1/α from its axioms. The difference between the framework's value and the measured one, the residual, is certified to lie in the narrow interval (−0.006, 0.0031).
The declaration corrected_eq_codata_iff addresses what happens if one allows a second-order correction to the framework's first-order value. The framework's structure forces this correction to enter as an additional spectral load, a multiplicative factor in an exponent, rather than as a simple additive patch. The theorem states that for any real number δ₂, the corrected value equals the measured CODATA value if and only if δ₂ equals a specific number called closingLoad, which is written in closed form. A companion theorem proves this closing load is unique: there is exactly one such value.
This is a precise but narrow result. It does not derive the fine-structure constant from first principles; it proves that if the framework's first-order value is to be reconciled with experiment through this one allowed type of correction, then the correction must be exactly closingLoad. The theorem does not say why this correction exists or where it comes from. The framework's own rules forbid admitting any candidate correction simply because it is numerically close to the measured value. The single open problem is to derive closingLoad from the seam geometry of the framework's three-dimensional voxel lattice, using a procedure that never consults the experimental value. If such a derivation lands on closingLoad, the α program closes at experimental precision; if it lands elsewhere, the framework's channel-budget bridge is falsified.
THEOREM residual_bounds · IndisputableMonolith/Constants/AlphaGenesis/ResidualTarget.lean
/-- The certified band confines the residual to `(−0.006, 0.0031)`. -/
theorem residual_bounds : (-0.006 : ℝ) < residual ∧ residual < (0.0031 : ℝ) := by
unfold residual
have hgt := Numerics.alphaInv_gt
have hlt := Numerics.alphaInv_lt
have hC : alpha_inv_CODATA = (137.035999177 : ℝ) := rfl
constructor
· rw [hC]; linarith
· rw [hC]; linarith
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
THEOREM existsUnique_closingLoad · IndisputableMonolith/Constants/AlphaGenesis/ResidualTarget.lean
/-- There is exactly one closing load. -/
theorem existsUnique_closingLoad :
∃! δ₂ : ℝ, correctedAlphaInv δ₂ = alpha_inv_CODATA := by
refine ⟨closingLoad, corrected_at_closingLoad, ?_⟩
intro δ h
exact (corrected_eq_codata_iff δ).mp h
What this page does not claim
This does not claim that the fine-structure constant has been derived from first principles; the first-order value still differs from experiment. This does not claim that the closing load has been derived from lattice geometry; that derivation remains an open target. This does not claim that any candidate correction close to closingLoad is valid; the framework's anti-epicycle rule forbids admission without a forced derivation.
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 ever referencing the measured CODATA value?
- What is the physical or geometric interpretation of the spectral load correction within the Recognition Science framework?
- If a blind derivation produces a load different from closingLoad, which specific assumption in the channel-budget bridge is falsified?
MACHINE LAYER · GROUNDED CLAIM TABLE · CLICK TO EXPAND
THEOREM residual_bounds · IndisputableMonolith/Constants/AlphaGenesis/ResidualTarget.lean
/-- The certified band confines the residual to `(−0.006, 0.0031)`. -/ theorem residual_bounds : (-0.006 : ℝ) < residual ∧ residual < (0.0031 : ℝ) := by unfold residual have hgt := Numerics.alphaInv_gt have hlt := Numerics.alphaInv_lt have hC : alpha_inv_CODATA = (137.035999177 : ℝ) := rfl constructor · rw [hC]; linarith · rw [hC]; linarithThe difference between the framework's value and the measured one, the residual, is certified to lie in the narrow interval (−0.006, 0.0031). residual_bounds · 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_closingLoadThe theorem states that for any real number δ₂, the corrected value equals the measured CODATA value if and only if δ₂ equals a specific number called closingLoad. corrected_eq_codata_iff · IndisputableMonolith/Constants/AlphaGenesis/ResidualTarget.leanTHEOREM existsUnique_closingLoad · IndisputableMonolith/Constants/AlphaGenesis/ResidualTarget.lean
/-- There is exactly one closing load. -/ theorem existsUnique_closingLoad : ∃! δ₂ : ℝ, correctedAlphaInv δ₂ = alpha_inv_CODATA := by refine ⟨closingLoad, corrected_at_closingLoad, ?_⟩ intro δ h exact (corrected_eq_codata_iff δ).mp hA companion theorem proves this closing load is unique: there is exactly one such value. existsUnique_closingLoad · IndisputableMonolith/Constants/AlphaGenesis/ResidualTarget.lean