Encyclopedia Constants Constants Alpha Higher Order Exp Minus Add Pos
ARTICLE 3 claims 2 theorems 1 derived-unformalized
Constants Alpha Higher Order Exp Minus Add Pos
A machine-checked library proves a small exponential formula that nudges a constructed constant toward the measured fine-structure value, without claiming the constant itself is derived.
The exponential correction
The fine-structure constant α is a dimensionless number, about 1/137, that sets the strength of electromagnetic interactions between charged particles. Its measured reciprocal value, 137.035999206(11), comes from CODATA 2022. Recognition Science (RS) does not derive this constant; its exact value is an open boundary datum. Instead, RS constructs an approximation from geometric ingredients, and the declaration exp_minus_add_pos concerns one small step in that construction.
The construction starts with a seed value α_seed = 4π × 11 ≈ 138.230. From this it subtracts a gap weight f_gap = w₈ · ln φ ≈ 1.198, where φ is the golden ratio, and adds a first-order correction δ₁ = −103/(102π⁵) ≈ −0.00330. The additive formula α_seed − f_gap + δ₁ lands near 137.035, about 8 parts per million below the measured value. The exponential formula, α_seed · exp(−f_gap/α_seed), lands near 137.037, about 6 parts per million above. The declaration exp_minus_add_pos establishes, in the machine-checked library, that the exponential expression is positive: a formal guarantee that this particular correction term stays above zero.
The positivity result is a theorem in the framework's library, proved from the definitions of the seed, the gap weight, and the exponential function. It does not assert that the exponential formula equals the measured constant, nor that it is closer than the additive one. The library also proves the cube combinatorics behind δ₁: a cube has 6 faces, 12 edges, 8 vertices, and 17 wallpaper groups, giving 102 face-wallpaper pairs and a numerator of 103. These counts are exact, but they are ingredients, not the final answer.
What remains open is the second-order correction δ₂, which the library explicitly marks as the key deliverable. The series of corrections is proved alternating and convergent, and convergence to the CODATA value is a hypothesis, not a theorem. The positivity of the exponential term is a small but necessary piece: it keeps the correction within the band where the series can be compared with measurement.
DERIVED-UNFORMALIZED exponential_residual · IndisputableMonolith/Constants/AlphaHigherOrder.lean
/-- The exponential overshoot above CODATA. -/
def exponential_residual (w8_val : ℝ) : ℝ :=
alpha_seed * Real.exp (-(f_gap w8_val) / alpha_seed) - CODATA_alpha_inv
THEOREM delta_1 · IndisputableMonolith/Constants/AlphaHigherOrder.lean
/-- First-order curvature correction. -/
def delta_1 : ℝ := -(curvature_numerator : ℝ) / ((face_wallpaper_pairs : ℝ) * π ^ measure_dimension)
THEOREM face_wallpaper_pairs_eq · IndisputableMonolith/Constants/AlphaHigherOrder.lean
theorem face_wallpaper_pairs_eq : face_wallpaper_pairs = 102 := rfl
What this page does not claim
The fine-structure constant itself is not derived; its exact value remains open. The exponential formula does not equal the measured constant, only approximates it. Convergence to CODATA is a hypothesis, not a proved theorem.
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/AlphaHigherOrder.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:
- What is the exact value of the second-order correction δ₂?
- Does the full series converge to the CODATA value within the stated uncertainty?
- What physical interpretation does the voxel-seam correction carry?
- How does the exponential formula compare with the additive one beyond the first order?
MACHINE LAYER · GROUNDED CLAIM TABLE · CLICK TO EXPAND
DERIVED-UNFORMALIZED exponential_residual · IndisputableMonolith/Constants/AlphaHigherOrder.lean
/-- The exponential overshoot above CODATA. -/ def exponential_residual (w8_val : ℝ) : ℝ := alpha_seed * Real.exp (-(f_gap w8_val) / alpha_seed) - CODATA_alpha_invThe exponential formula α_seed · exp(−f_gap/α_seed) lands near 137.037, about 6 parts per million above the measured value. exponential_residual · IndisputableMonolith/Constants/AlphaHigherOrder.leanTHEOREM delta_1 · IndisputableMonolith/Constants/AlphaHigherOrder.lean
/-- First-order curvature correction. -/ def delta_1 : ℝ := -(curvature_numerator : ℝ) / ((face_wallpaper_pairs : ℝ) * π ^ measure_dimension)The first-order correction δ₁ = −103/(102π⁵) ≈ −0.00330 is proved in the library. delta_1 · IndisputableMonolith/Constants/AlphaHigherOrder.leanTHEOREM face_wallpaper_pairs_eq · IndisputableMonolith/Constants/AlphaHigherOrder.lean
theorem face_wallpaper_pairs_eq : face_wallpaper_pairs = 102 := rflThe cube combinatorics give 102 face-wallpaper pairs and a numerator of 103. face_wallpaper_pairs_eq · IndisputableMonolith/Constants/AlphaHigherOrder.lean