Encyclopedia Masses Masses Mass Genesis T10 Run Cone Terminal Wall
ARTICLE 5 claims 5 theorems
Masses Mass Genesis T10 Run Cone Terminal Wall
A machine-checked proof shows that the mass ladder's target value cannot be built from the ledger's own run data, closing a gap in the framework's derivation.
The run-cone wall
The golden ratio φ appears throughout the Recognition Science framework, most importantly as the ratio between rungs on the mass ladder. A particle's mass is tied to a specific power of φ, and the framework's goal is to derive that power from the ledger, a discrete record of recognition events. The module called T10RunConeTerminalWall addresses a precise question: can the target value, φ²¹·(√2/4), be constructed from the run data alone, using only the operations the ledger's own theorems employ?
The answer is no. The module defines a run cone, the set of all real numbers reachable from the ledger's raw data (rational constants like 1, 2, and 16, plus √2 from the holonomy transport) using only field operations and natural powers. It then proves a theorem: no element of this pure run cone equals the target value. The proof works by showing every pure-cone element lives in the field ℚ(√2), while the target value does not. The target contains √5, and a separate calculation shows φ²¹ = 12238 + 5473√5, which cannot be expressed as a + b√2 with rational a and b.
This result has a direct consequence for the framework's structure. An organ arrow is a proposed rule that assigns a level to each octave of the ledger, and the framework requires such rules to satisfy a coupling interface. The module proves that any organ arrow whose levels all lie in the pure run cone fails this interface at every octave. In plain terms, the ledger's own run data cannot generate the missing piece of the mass derivation; the target must come from elsewhere, specifically from the modular operator's spectrum where φ already resides as the cross-rung transport ratio.
The module also handles the J-cost fragment, the term cosh 1 − 1 that represents the per-post recognition cost. It proves that any integer multiple of this term lies in the J-cone, but the full closure of that cone is left to successor modules. The bundled theorem, run_cone_terminal_wall, combines the pure-cone exclusion, the organ-arrow failure, and the J-cost registration into one statement. A separate census script, an instrument rather than a theorem, guards the sweep of run-derived declarations to ensure no new generator slips in unnoticed.
What this establishes is a boundary. The framework's derivation of the mass ladder cannot be completed from the ledger's run data alone; the missing organ must draw on the modular spectrum, which is anchor-family data. This is not a failure but a clarification of where the derivation must look. The wall is terminal for the run cone, and the path forward is already marked by the successor modules that close the J-cost fragment and the full cone.
THEOREM runConePure_ne_intended · IndisputableMonolith/Masses/MassGenesis/T10RunConeTerminalWall.lean
/-- No element of the pure run-record cone equals the factor amplitude. -/
theorem runConePure_ne_intended {x : ℝ} (h : RunCone false x) :
x ≠ intendedGapOneFactorAmplitude :=
fun hx => intended_not_in_QsqrtTwo (hx ▸ runConePure_inQsqrtTwo h)
THEOREM runConePure_inQsqrtTwo · IndisputableMonolith/Masses/MassGenesis/T10RunConeTerminalWall.lean
theorem runConePure_inQsqrtTwo {x : ℝ} (h : RunCone false x) : InQsqrtTwo x := by
have hr : ∀ {j : Bool} {x : ℝ}, RunCone j x → j = false → InQsqrtTwo x := by
intro j x h
induction h with
| rat _ q => intro _; exact inQsqrtTwo_rat q
| sqrtTwo _ => intro _; exact inQsqrtTwo_sqrtTwo
| jcost => intro hj; simp at hj
| add _ _ ihx ihy => intro hj; exact inQsqrtTwo_add (ihx hj) (ihy hj)
| neg _ ihx => intro hj; exact inQsqrtTwo_neg (ihx hj)
| mul _ _ ihx ihy => intro hj; exact inQsqrtTwo_mul (ihx hj) (ihy hj)
| inv _ hx0 ihx => intro hj; exact inQsqrtTwo_inv (ihx hj) hx0
| pow _ n ihx => intro hj; exact inQsqrtTwo_pow n (ihx hj)
exact hr h rfl
THEOREM intended_not_in_QsqrtTwo · IndisputableMonolith/Masses/MassGenesis/T10RunConeTerminalWall.lean
theorem intended_not_in_QsqrtTwo : ¬ InQsqrtTwo intendedGapOneFactorAmplitude := by
rintro ⟨a, b, hf⟩
have hmul := two_sqrt_two_mul_intended
rw [hf, phi21_eq] at hmul
have hsq2 : Real.sqrt 2 * Real.sqrt 2 = 2 := Real.mul_self_sqrt (by norm_num)
have hexp : 2 * Real.sqrt 2 * ((a : ℝ) + (b : ℝ) * Real.sqrt 2) =
4 * (b : ℝ) + 2 * (a : ℝ) * Real.sqrt 2 := by
calc 2 * Real.sqrt 2 * ((a : ℝ) + (b : ℝ) * Real.sqrt 2)
= 2 * (a : ℝ) * Real.sqrt 2 +
2 * (b : ℝ) * (Real.sqrt 2 * Real.sqrt 2) := by ring
_ = 4 * (b : ℝ) + 2 * (a : ℝ) * Real.sqrt 2 := by rw [hsq2]; ring
rw [hexp] at hmul
have hsqrt5_irr : Irrational (Real.sqrt 5) :=
Nat.Prime.irrational_sqrt (by norm_num : Nat.Prime 5)
by_cases ha : a = 0
· subst ha
simp only [Rat.cast_zero, zero_mul, mul_zero, add_zero] at hmul
have h5 : Real.sqrt 5 = (((4 * b - 12238 : ℚ) / 5473 : ℚ) : ℝ) := by
push_cast
rw [eq_div_iff (by norm_num : (5473 : ℝ) ≠ 0)]
linarith [hmul]
exact hsqrt5_irr ⟨_, h5.symm⟩
· have ha0 : (a : ℝ) ≠ 0 := by exact_mod_cast ha
have hd0 : (5473 / (2 * a) : ℚ) ≠ 0 :=
div_ne_zero (by norm_num) (mul_ne_zero (by norm_num) ha)
have hmul' : 2 * (a : ℝ) * Real.sqrt 2 =
(12238 - 4 * (b : ℝ)) + 5473 * Real.sqrt 5 := by
linarith [hmul]
have hsqrt2 : Real.sqrt 2 =
(((12238 - 4 * b) / (2 * a) : ℚ) : ℝ) +
((5473 / (2 * a) : ℚ) : ℝ) * Real.sqrt 5 := by
have h2 : Real.sqrt 2 =
((12238 - 4 * (b : ℝ)) + 5473 * Real.sqrt 5) / (2 * (a : ℝ)) := by
rw [eq_div_iff (mul_ne_zero (by norm_num : (2 : ℝ) ≠ 0) ha0)]
linarith [hmul']
rw [h2]
push_cast
rw [div_mul_eq_mul_div, div_add_div_same]
have hsq5 : (Real.sqrt 5) ^ 2 = 5 := Real.sq_sqrt (by norm_num)
have hsq : (2 : ℝ) = (((12238 - 4 * b) / (2 * a) : ℚ) : ℝ) ^ 2 +
5 * (((5473 / (2 * a) : ℚ) : ℝ) ^ 2) +
2 * (((12238 - 4 * b) / (2 * a) : ℚ) : ℝ) *
(((5473 / (2 * a)) : ℚ) : ℝ) * Real.sqrt 5 := by
have h1 : (Real.sqrt 2) ^ 2 =
((((12238 - 4 * b) / (2 * a) : ℚ) : ℝ) +
((5473 / (2 * a) : ℚ) : ℝ) * Real.sqrt 5) ^ 2 := by rw [hsqrt2]
rw [Real.sq_sqrt (by norm_num : (0 : ℝ) ≤ 2)] at h1
refine h1.trans ?_
rw [add_sq, mul_pow, hsq5]
ring
by_cases hc : ((12238 - 4 * b) / (2 * a) : ℚ) = 0
· have h2d : (2 : ℝ) = 5 * (((5473 / (2 * a)) : ℚ) : ℝ) ^ 2 := by
rw [hc] at hsq
simpa using hsq
have h10 : ((5 * (5473 / (2 * a)) : ℚ) : ℝ) ^ 2 = (10 : ℝ) := by
push_cast at h2d ⊢
have h25 : (5 * (5473 / (2 * (a : ℝ)))) ^ 2 =
25 * ((5473 / (2 * (a : ℝ))) ^ 2) := by ring
rw [h25]
linarith [h2d]
exact rat_sq_ne_nat not_isSquare_ten h10
· have hCD : (2 : ℝ) * ((((12238 - 4 * b) / (2 * a) : ℚ) : ℝ) *
(((5473 / (2 * a)) : ℚ) : ℝ)) ≠ 0 :=
mul_ne_zero (by norm_num : (2 : ℝ) ≠ 0)
(mul_ne_zero (by exact_mod_cast hc) (by exact_mod_cast hd0))
have h5r : Real.sqrt 5 =
(((2 - ((12238 - 4 * b) / (2 * a) : ℚ) ^ 2 -
5 * ((5473 / (2 * a) : ℚ)) ^ 2) /
(2 * ((12238 - 4 * b) / (2 * a) : ℚ) * ((5473 / (2 * a) : ℚ))) :
ℚ) : ℝ) := by
have h1 : (((2 - ((12238 - 4 * b) / (2 * a) : ℚ) ^ 2 -
5 * ((5473 / (2 * a) : ℚ)) ^ 2) /
(2 * ((12238 - 4 * b) / (2 * a) : ℚ) * ((5473 / (2 * a) : ℚ))) :
ℚ) : ℝ) =
(2 - (((12238 - 4 * b) / (2 * a) : ℚ) : ℝ) ^ 2 -
5 * (((5473 / (2 * a)) : ℚ) : ℝ) ^ 2) /
((2 : ℝ) * ((((12238 - 4 * b) / (2 * a) : ℚ) : ℝ) *
(((5473 / (2 * a)) : ℚ) : ℝ))) := by
push_cast
ring
rw [h1, eq_div_iff hCD]
linarith [hsq]
exact hsqrt5_irr ⟨_, h5r.symm⟩
THEOREM conePure_organ_fails_interface · IndisputableMonolith/Masses/MassGenesis/T10RunConeTerminalWall.lean
/-- Any organ arrow whose level is pure-cone valued at every octave
fails the four-witness interface at every octave. -/
theorem conePure_organ_fails_interface
(A : OrganArrowReduction.OrganArrow)
(hA : ∀ o : Q3SettledLedgerOctave, RunCone false (A.level (A.W o)))
(o : Q3SettledLedgerOctave) :
¬ RunPatternScaleCouplingInterface A.filter o := by
intro hiface
have hlevel := ((OrganArrowReduction.organArrow_interface_iff A o).1 hiface).1
exact runConePure_ne_intended (hA o) hlevel
THEOREM coneJ_atomic · IndisputableMonolith/Masses/MassGenesis/T10RunConeTerminalWall.lean
theorem coneJ_atomic (K : ℕ) : RunCone true ((K : ℝ) * (Real.cosh 1 - 1)) := by
exact_mod_cast RunCone.mul (RunCone.rat true (K : ℚ)) RunCone.jcost
What this page does not claim
This module does not prove the J-cost fragment is closed; that is left to successor modules. This module does not derive the target value φ²¹·(√2/4) from the run cone. This module does not introduce a new provenance predicate beyond the cone itself.
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/Masses/MassGenesis/T10RunConeTerminalWall.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 does the successor module T10ExpTranscendental prove about the transcendental nature of the J-cost fragment?
- How does the full cone wall, runCone_ne_intended, close the remaining cases in T10RunConeFullWall?
- What is the modular operator's spectrum, and why does it contain φ as the cross-rung transport ratio?
- How does the census script t10_run_reals_census.py ensure no new run-derived generator is introduced?
MACHINE LAYER · GROUNDED CLAIM TABLE · CLICK TO EXPAND
THEOREM runConePure_ne_intended · IndisputableMonolith/Masses/MassGenesis/T10RunConeTerminalWall.lean
/-- No element of the pure run-record cone equals the factor amplitude. -/ theorem runConePure_ne_intended {x : ℝ} (h : RunCone false x) : x ≠ intendedGapOneFactorAmplitude := fun hx => intended_not_in_QsqrtTwo (hx ▸ runConePure_inQsqrtTwo h)no element of this pure run cone equals the target value runConePure_ne_intended · IndisputableMonolith/Masses/MassGenesis/T10RunConeTerminalWall.leanTHEOREM runConePure_inQsqrtTwo · IndisputableMonolith/Masses/MassGenesis/T10RunConeTerminalWall.lean
theorem runConePure_inQsqrtTwo {x : ℝ} (h : RunCone false x) : InQsqrtTwo x := by have hr : ∀ {j : Bool} {x : ℝ}, RunCone j x → j = false → InQsqrtTwo x := by intro j x h induction h with | rat _ q => intro _; exact inQsqrtTwo_rat q | sqrtTwo _ => intro _; exact inQsqrtTwo_sqrtTwo | jcost => intro hj; simp at hj | add _ _ ihx ihy => intro hj; exact inQsqrtTwo_add (ihx hj) (ihy hj) | neg _ ihx => intro hj; exact inQsqrtTwo_neg (ihx hj) | mul _ _ ihx ihy => intro hj; exact inQsqrtTwo_mul (ihx hj) (ihy hj) | inv _ hx0 ihx => intro hj; exact inQsqrtTwo_inv (ihx hj) hx0 | pow _ n ihx => intro hj; exact inQsqrtTwo_pow n (ihx hj) exact hr h rflevery pure-cone element lives in the field ℚ(√2) runConePure_inQsqrtTwo · IndisputableMonolith/Masses/MassGenesis/T10RunConeTerminalWall.leanTHEOREM intended_not_in_QsqrtTwo · IndisputableMonolith/Masses/MassGenesis/T10RunConeTerminalWall.lean
theorem intended_not_in_QsqrtTwo : ¬ InQsqrtTwo intendedGapOneFactorAmplitude := by rintro ⟨a, b, hf⟩ have hmul := two_sqrt_two_mul_intended rw [hf, phi21_eq] at hmul have hsq2 : Real.sqrt 2 * Real.sqrt 2 = 2 := Real.mul_self_sqrt (by norm_num) have hexp : 2 * Real.sqrt 2 * ((a : ℝ) + (b : ℝ) * Real.sqrt 2) = 4 * (b : ℝ) + 2 * (a : ℝ) * Real.sqrt 2 := by calc 2 * Real.sqrt 2 * ((a : ℝ) + (b : ℝ) * Real.sqrt 2) = 2 * (a : ℝ) * Real.sqrt 2 + 2 * (b : ℝ) * (Real.sqrt 2 * Real.sqrt 2) := by ring _ = 4 * (b : ℝ) + 2 * (a : ℝ) * Real.sqrt 2 := by rw [hsq2]; ring rw [hexp] at hmul have hsqrt5_irr : Irrational (Real.sqrt 5) := Nat.Prime.irrational_sqrt (by norm_num : Nat.Prime 5) by_cases ha : a = 0 · subst ha simp only [Rat.cast_zero, zero_mul, mul_zero, add_zero] at hmul have h5 : Real.sqrt 5 = (((4 * b - 12238 : ℚ) / 5473 : ℚ) : ℝ) := by push_cast rw [eq_div_iff (by norm_num : (5473 : ℝ) ≠ 0)] linarith [hmul] exact hsqrt5_irr ⟨_, h5.symm⟩ · have ha0 : (a : ℝ) ≠ 0 := by exact_mod_cast ha have hd0 : (5473 / (2 * a) : ℚ) ≠ 0 := div_ne_zero (by norm_num) (mul_ne_zero (by norm_num) ha) have hmul' : 2 * (a : ℝ) * Real.sqrt 2 = (12238 - 4 * (b : ℝ)) + 5473 * Real.sqrt 5 := by linarith [hmul] have hsqrt2 : Real.sqrt 2 = (((12238 - 4 * b) / (2 * a) : ℚ) : ℝ) + ((5473 / (2 * a) : ℚ) : ℝ) * Real.sqrt 5 := by have h2 : Real.sqrt 2 = ((12238 - 4 * (b : ℝ)) + 5473 * Real.sqrt 5) / (2 * (a : ℝ)) := by rw [eq_div_iff (mul_ne_zero (by norm_num : (2 : ℝ) ≠ 0) ha0)] linarith [hmul'] rw [h2] push_cast rw [div_mul_eq_mul_div, div_add_div_same] have hsq5 : (Real.sqrt 5) ^ 2 = 5 := Real.sq_sqrt (by norm_num) have hsq : (2 : ℝ) = (((12238 - 4 * b) / (2 * a) : ℚ) : ℝ) ^ 2 + 5 * (((5473 / (2 * a) : ℚ) : ℝ) ^ 2) + 2 * (((12238 - 4 * b) / (2 * a) : ℚ) : ℝ) * (((5473 / (2 * a)) : ℚ) : ℝ) * Real.sqrt 5 := by have h1 : (Real.sqrt 2) ^ 2 = ((((12238 - 4 * b) / (2 * a) : ℚ) : ℝ) + ((5473 / (2 * a) : ℚ) : ℝ) * Real.sqrt 5) ^ 2 := by rw [hsqrt2] rw [Real.sq_sqrt (by norm_num : (0 : ℝ) ≤ 2)] at h1 refine h1.trans ?_ rw [add_sq, mul_pow, hsq5] ring by_cases hc : ((12238 - 4 * b) / (2 * a) : ℚ) = 0 · have h2d : (2 : ℝ) = 5 * (((5473 / (2 * a)) : ℚ) : ℝ) ^ 2 := by rw [hc] at hsq simpa using hsq have h10 : ((5 * (5473 / (2 * a)) : ℚ) : ℝ) ^ 2 = (10 : ℝ) := by push_cast at h2d ⊢ have h25 : (5 * (5473 / (2 * (a : ℝ)))) ^ 2 = 25 * ((5473 / (2 * (a : ℝ))) ^ 2) := by ring rw [h25] linarith [h2d] exact rat_sq_ne_nat not_isSquare_ten h10 · have hCD : (2 : ℝ) * ((((12238 - 4 * b) / (2 * a) : ℚ) : ℝ) * (((5473 / (2 * a)) : ℚ) : ℝ)) ≠ 0 := mul_ne_zero (by norm_num : (2 : ℝ) ≠ 0) (mul_ne_zero (by exact_mod_cast hc) (by exact_mod_cast hd0)) have h5r : Real.sqrt 5 = (((2 - ((12238 - 4 * b) / (2 * a) : ℚ) ^ 2 - 5 * ((5473 / (2 * a) : ℚ)) ^ 2) / (2 * ((12238 - 4 * b) / (2 * a) : ℚ) * ((5473 / (2 * a) : ℚ))) : ℚ) : ℝ) := by have h1 : (((2 - ((12238 - 4 * b) / (2 * a) : ℚ) ^ 2 - 5 * ((5473 / (2 * a) : ℚ)) ^ 2) / (2 * ((12238 - 4 * b) / (2 * a) : ℚ) * ((5473 / (2 * a) : ℚ))) : ℚ) : ℝ) = (2 - (((12238 - 4 * b) / (2 * a) : ℚ) : ℝ) ^ 2 - 5 * (((5473 / (2 * a)) : ℚ) : ℝ) ^ 2) / ((2 : ℝ) * ((((12238 - 4 * b) / (2 * a) : ℚ) : ℝ) * (((5473 / (2 * a)) : ℚ) : ℝ))) := by push_cast ring rw [h1, eq_div_iff hCD] linarith [hsq] exact hsqrt5_irr ⟨_, h5r.symm⟩the target value does not intended_not_in_QsqrtTwo · IndisputableMonolith/Masses/MassGenesis/T10RunConeTerminalWall.leanTHEOREM conePure_organ_fails_interface · IndisputableMonolith/Masses/MassGenesis/T10RunConeTerminalWall.lean
/-- Any organ arrow whose level is pure-cone valued at every octave fails the four-witness interface at every octave. -/ theorem conePure_organ_fails_interface (A : OrganArrowReduction.OrganArrow) (hA : ∀ o : Q3SettledLedgerOctave, RunCone false (A.level (A.W o))) (o : Q3SettledLedgerOctave) : ¬ RunPatternScaleCouplingInterface A.filter o := by intro hiface have hlevel := ((OrganArrowReduction.organArrow_interface_iff A o).1 hiface).1 exact runConePure_ne_intended (hA o) hlevelany organ arrow whose levels all lie in the pure run cone fails this interface at every octave conePure_organ_fails_interface · IndisputableMonolith/Masses/MassGenesis/T10RunConeTerminalWall.leanTHEOREM coneJ_atomic · IndisputableMonolith/Masses/MassGenesis/T10RunConeTerminalWall.lean
theorem coneJ_atomic (K : ℕ) : RunCone true ((K : ℝ) * (Real.cosh 1 - 1)) := by exact_mod_cast RunCone.mul (RunCone.rat true (K : ℚ)) RunCone.jcostany integer multiple of this term lies in the J-cone coneJ_atomic · IndisputableMonolith/Masses/MassGenesis/T10RunConeTerminalWall.lean