Encyclopedia Constants Constants Alpha Genesis Resummation Forcing Dressed Coupling Forced
ARTICLE 4 claims 4 theorems
Constants Alpha Genesis Resummation Forcing Dressed Coupling Forced
When a coupling budget is taxed, the fraction that survives is not a choice: it is forced to be an exponential decay.
The forced dressing
In physics, a coupling constant such as the fine-structure constant is not a fixed number but a budget that changes with energy scale, a process called dressing. The question is how the budget shrinks when it pays a cost. The Recognition Science framework answers with a theorem: any dressing response that factorizes over independent costs and has unit linear response at zero cost must be exactly the exponential decay g(ε) = exp(−ε). The declaration dressedCoupling_forced states this result for the full coupling: a seed value S multiplied by the forced response at a normalized cost δ/S gives the dressed coupling S · exp(−δ/S).
The two premises are not invented for this result. Factorization, meaning that the survival fraction for two independent costs is the product of the survival fractions, is the same ledger additivity that forces the framework's measure. Unit linear response, meaning that a tiny cost reduces the budget by exactly that cost, is the calibration condition. The theorem proves that these two plain conditions leave no freedom: the additive approximation 1 − ε, which might seem natural, fails factorization outright because (1 − 1)(1 − 1) = 0 but 1 − 2 = −1. The exponential form is the unique admissible response, and the additive form is only its first-order truncation.
The result matters because it unifies the fine-structure constant with the framework's measure. The same function that dresses the coupling is the weight that forces the measure, evaluated at a spectral gap load. The theorem alphaInv_eq_seed_mul_forced_weight shows that the inverse fine-structure constant equals the seed 44π multiplied by the forced measure at the load w₈/(44π). This is a theorem about the framework's internal structure, not a comparison with experiment. The framework derives the form of the dressing, but the identification of the seed 44π is a definitional choice, not a derived coupling.
What the declaration does not claim is just as important as what it proves. It does not prove that the fine-structure constant has the measured value 137.035999177; that comparison is an empirical check, not a theorem. It does not claim that the additive form is a valid alternative that the framework rejects on aesthetic grounds; the additive form is excluded by the factorization law itself. And it does not claim that the seed 44π is derived from the forcing chain; the seed is an identification, and the exact derivation of the fine-structure constant remains open.
THEOREM response_forced · IndisputableMonolith/Constants/AlphaGenesis/ResummationForcing.lean
/-- **RESUMMATION FORCING.** Any factorizing dressing response with unit
linear response is exactly the exponential: `g(ε) = exp(−ε)`. There is no
resummation freedom. -/
theorem response_forced : ∀ ε : ℝ, R.g ε = Real.exp (-ε) := by
-- h(x) = g(x)·exp(x) has zero derivative everywhere, hence is constant 1.
have hd : ∀ x : ℝ, HasDerivAt (fun y : ℝ => R.g y * Real.exp y) 0 x := by
intro x
have hmul := (R.hasDerivAt_neg_self x).mul (Real.hasDerivAt_exp x)
convert hmul using 1
ring
have hdiff : Differentiable ℝ (fun y : ℝ => R.g y * Real.exp y) :=
fun x => (hd x).differentiableAt
have hderiv : ∀ x : ℝ, deriv (fun y : ℝ => R.g y * Real.exp y) x = 0 :=
fun x => (hd x).deriv
have hconst : ∀ x : ℝ, R.g x * Real.exp x = R.g 0 * Real.exp 0 := by
intro x
exact is_const_of_deriv_eq_zero hdiff hderiv x 0
intro ε
have hε : R.g ε * Real.exp ε = 1 := by
have hx := hconst ε
simpa [R.g_zero] using hx
have hexp : Real.exp ε ≠ 0 := (Real.exp_pos ε).ne'
have hgε : R.g ε = (Real.exp ε)⁻¹ := by
have h2 := congrArg (· * (Real.exp ε)⁻¹) hε
simpa [mul_assoc, mul_inv_cancel₀ hexp] using h2
rw [hgε, ← Real.exp_neg]
THEOREM additive_map_not_factorizing · IndisputableMonolith/Constants/AlphaGenesis/ResummationForcing.lean
/-- The additive map fails the factorization law outright (independent of any
response structure). -/
theorem additive_map_not_factorizing :
¬ (∀ x y : ℝ, (1 - (x + y)) = (1 - x) * (1 - y)) := by
intro h
have h11 := h 1 1
norm_num at h11
THEOREM dressedCoupling_forced · IndisputableMonolith/Constants/AlphaGenesis/ResummationForcing.lean
/-- Any dressing response yields exactly the form-(E) dressed coupling. -/
theorem dressedCoupling_forced (R : DressingResponse) (S δ : ℝ) :
S * R.g (δ / S) = dressedCoupling S δ := by
rw [R.response_forced (δ / S)]
rfl
THEOREM alphaInv_eq_seed_mul_forced_weight · IndisputableMonolith/Constants/AlphaGenesis/ResummationForcing.lean
/-- **THE UNIFICATION COROLLARY.** The certified `alphaInv` is the channel
budget multiplied by the **T9 forced measure** at the spectral gap load per
channel (in rung units):
`α⁻¹ = (4π·11) · contWeight(w₈ / (4π·11))`.
The α dressing factor is not α-specific structure. It is the unique
recognition weight `φ⁻ᵗ` forced by factorization + self-similar calibration
(`Foundation.MeasureForcing.continuum_weight_forced`), evaluated at
`t = w₈/(44π)` rungs. -/
theorem alphaInv_eq_seed_mul_forced_weight :
Constants.alphaInv =
Constants.alpha_seed *
Foundation.MeasureForcing.contWeight
(Constants.w8_from_eight_tick / Constants.alpha_seed) := by
rw [Foundation.MeasureForcing.contWeight_gibbs]
simp only [Constants.alphaInv]
have hgap : Constants.f_gap = Constants.w8_from_eight_tick * Real.log Constants.phi := rfl
rw [hgap]
congr 1
congr 1
ring
What this page does not claim
The measured value of the fine-structure constant is not proved by this theorem; it is an empirical check. The seed 44π is an identification, not a derived coupling. The additive form 1 − ε is not a valid alternative response; it is excluded by the factorization law.
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/ResummationForcing.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:
- How does the forced exponential dressing relate to the measured running of the fine-structure constant in quantum electrodynamics?
- What physical mechanism identifies the seed 44π as the starting budget for the fine-structure constant?
- Does the same factorization premise force the dressing of other coupling constants in the framework?
MACHINE LAYER · GROUNDED CLAIM TABLE · CLICK TO EXPAND
THEOREM response_forced · IndisputableMonolith/Constants/AlphaGenesis/ResummationForcing.lean
/-- **RESUMMATION FORCING.** Any factorizing dressing response with unit linear response is exactly the exponential: `g(ε) = exp(−ε)`. There is no resummation freedom. -/ theorem response_forced : ∀ ε : ℝ, R.g ε = Real.exp (-ε) := by -- h(x) = g(x)·exp(x) has zero derivative everywhere, hence is constant 1. have hd : ∀ x : ℝ, HasDerivAt (fun y : ℝ => R.g y * Real.exp y) 0 x := by intro x have hmul := (R.hasDerivAt_neg_self x).mul (Real.hasDerivAt_exp x) convert hmul using 1 ring have hdiff : Differentiable ℝ (fun y : ℝ => R.g y * Real.exp y) := fun x => (hd x).differentiableAt have hderiv : ∀ x : ℝ, deriv (fun y : ℝ => R.g y * Real.exp y) x = 0 := fun x => (hd x).deriv have hconst : ∀ x : ℝ, R.g x * Real.exp x = R.g 0 * Real.exp 0 := by intro x exact is_const_of_deriv_eq_zero hdiff hderiv x 0 intro ε have hε : R.g ε * Real.exp ε = 1 := by have hx := hconst ε simpa [R.g_zero] using hx have hexp : Real.exp ε ≠ 0 := (Real.exp_pos ε).ne' have hgε : R.g ε = (Real.exp ε)⁻¹ := by have h2 := congrArg (· * (Real.exp ε)⁻¹) hε simpa [mul_assoc, mul_inv_cancel₀ hexp] using h2 rw [hgε, ← Real.exp_neg]Any dressing response that factorizes over independent costs and has unit linear response at zero cost must be exactly the exponential decay g(ε) = exp(−ε). response_forced · IndisputableMonolith/Constants/AlphaGenesis/ResummationForcing.leanTHEOREM additive_map_not_factorizing · IndisputableMonolith/Constants/AlphaGenesis/ResummationForcing.lean
/-- The additive map fails the factorization law outright (independent of any response structure). -/ theorem additive_map_not_factorizing : ¬ (∀ x y : ℝ, (1 - (x + y)) = (1 - x) * (1 - y)) := by intro h have h11 := h 1 1 norm_num at h11The additive approximation 1 − ε fails factorization outright. additive_map_not_factorizing · IndisputableMonolith/Constants/AlphaGenesis/ResummationForcing.leanTHEOREM dressedCoupling_forced · IndisputableMonolith/Constants/AlphaGenesis/ResummationForcing.lean
/-- Any dressing response yields exactly the form-(E) dressed coupling. -/ theorem dressedCoupling_forced (R : DressingResponse) (S δ : ℝ) : S * R.g (δ / S) = dressedCoupling S δ := by rw [R.response_forced (δ / S)] rflAny dressing response yields exactly the form-(E) dressed coupling. dressedCoupling_forced · IndisputableMonolith/Constants/AlphaGenesis/ResummationForcing.leanTHEOREM alphaInv_eq_seed_mul_forced_weight · IndisputableMonolith/Constants/AlphaGenesis/ResummationForcing.lean
/-- **THE UNIFICATION COROLLARY.** The certified `alphaInv` is the channel budget multiplied by the **T9 forced measure** at the spectral gap load per channel (in rung units): `α⁻¹ = (4π·11) · contWeight(w₈ / (4π·11))`. The α dressing factor is not α-specific structure. It is the unique recognition weight `φ⁻ᵗ` forced by factorization + self-similar calibration (`Foundation.MeasureForcing.continuum_weight_forced`), evaluated at `t = w₈/(44π)` rungs. -/ theorem alphaInv_eq_seed_mul_forced_weight : Constants.alphaInv = Constants.alpha_seed * Foundation.MeasureForcing.contWeight (Constants.w8_from_eight_tick / Constants.alpha_seed) := by rw [Foundation.MeasureForcing.contWeight_gibbs] simp only [Constants.alphaInv] have hgap : Constants.f_gap = Constants.w8_from_eight_tick * Real.log Constants.phi := rfl rw [hgap] congr 1 congr 1 ringThe inverse fine-structure constant equals the seed 44π multiplied by the forced measure at the load w₈/(44π). alphaInv_eq_seed_mul_forced_weight · IndisputableMonolith/Constants/AlphaGenesis/ResummationForcing.lean