Encyclopedia Foundation Foundation Cost Floor Boundary Ratio Floor Gives Cost Floor
ARTICLE 5 claims 5 theorems
Foundation Cost Floor Boundary Ratio Floor Gives Cost Floor
A growth condition on a ladder of costs translates exactly into a floor on each step's recognition cost, and that translation is what the kernel proves.
The cost floor
A recognition cost is the price, in a discrete record of events, of registering one event next to another. The framework's cost function J(x) = (x + 1/x)/2 - 1 measures that price in calibrated units where J(e) = 1. The declaration ratio_floor_gives_cost_floor establishes a precise bridge: if every step in a ladder of positive values grows by at least a fixed ratio ρ (with ρ > 1), then every step's recognition cost is at least J(ρ). In plain language, a guarantee that each rung is at least ρ times the previous one is exactly a guarantee that each rung costs at least J(ρ) to recognize.
The theorem is a boundary result, not a derivation of the golden ratio. It takes a ratio floor as an assumption and converts it into a cost floor. The conversion relies on the fact that J is strictly increasing above 1: larger ratios mean larger costs, so a lower bound on ratios becomes a lower bound on costs. The proof is elementary, using the definition of J and the monotonicity property, and it is machine-checked in the framework's library of formal theorems.
What the theorem does not claim is that any ladder must have such a floor. The banked structure, which packages everything the kernel has forced about scale ladders, admits two different ladders: the φ-ladder with ratios constantly φ, and the integer ladder with ratios converging to 1. The integer ladder's per-step costs are 1/(2(n+1)(n+2)), which tend to zero, so no positive cost floor holds for it. The kernel alone therefore does not force a floor; the floor is a separate premise, and the theorem only states what that premise means in cost terms.
The certified threshold makes the premise concrete. The plastic constant, the root of r³ = r + 1, lies between 13/10 and 133/100, and its J-cost lies between 1/30 and 41/1000, roughly 3 to 4 percent of the cost unit. So the floor the framework's golden-ratio theorem needs is: each rung step costs more than about 4 percent of the unit cost. Any future derivation of that floor must come from structure outside the banked ladder, such as mass-spectrum stability physics, not from the abstract kernel.
The practical upshot is a sharpened division of labor. The framework proves that any ladder growing faster than plastic must converge to φ, and it proves that a ratio floor is equivalent to a cost floor. What remains open is whether the physical world supplies that floor. The theorem turns a vague growth condition into a measurable cost threshold, and it names exactly where the missing premise lives.
THEOREM ratio_floor_gives_cost_floor · IndisputableMonolith/Foundation/CostFloorBoundary.lean
/-- A ratio floor ρ is exactly a per-rung J-cost floor J(ρ): the cost reading
of the recurrence's residual premise. -/
theorem ratio_floor_gives_cost_floor {s : ℕ → ℝ} (hpos : ∀ n, 0 < s n)
{ρ : ℝ} (hρ : 1 < ρ) (hfloor : ∀ n, ρ * s n ≤ s (n + 1)) :
∀ n, Cost.Jcost ρ ≤ Cost.Jcost (s (n + 1) / s n) := by
intro n
have hratio : ρ ≤ s (n + 1) / s n := by
rw [le_div_iff₀ (hpos n)]
exact hfloor n
have hlog : Real.log ρ ≤ Real.log (s (n + 1) / s n) :=
Real.log_le_log (by linarith [hρ]) hratio
rw [Cost.GeometricRoot.jcost_eq_cosh_log_sub_one (by linarith [hρ] : (0 : ℝ) < ρ),
Cost.GeometricRoot.jcost_eq_cosh_log_sub_one (div_pos (hpos (n + 1)) (hpos n))]
exact sub_le_sub_right
(Cost.GeometricRoot.cosh_mono_on_nonneg (Real.log_nonneg (le_of_lt hρ)) hlog) 1
THEOREM jcost_strictMono_one_lt · IndisputableMonolith/Foundation/CostFloorBoundary.lean
/-- J is strictly increasing above 1 (elementary, from the definition). -/
theorem jcost_strictMono_one_lt {a b : ℝ} (ha : 1 ≤ a) (hab : a < b) :
Cost.Jcost a < Cost.Jcost b := by
have hab' : 0 < a := by linarith
have hb : 0 < b := by linarith
have hab1 : 1 < a * b := by nlinarith [ha, hab, hb]
have e : Cost.Jcost b - Cost.Jcost a = (b - a) * (1 - 1 / (a * b)) / 2 := by
unfold Cost.Jcost
field_simp [hab'.ne', hb.ne', ne_of_gt (by positivity : (0 : ℝ) < a * b)]
ring
have hpos : 0 < (b - a) * (1 - 1 / (a * b)) / 2 := by
have h1 : 0 < 1 - 1 / (a * b) := by
rw [sub_pos, div_lt_one (by positivity : (0 : ℝ) < a * b)]
exact hab1
exact div_pos (mul_pos (by linarith) h1) two_pos
rw [← e] at hpos
linarith [hpos]
THEOREM banked_independence · IndisputableMonolith/Foundation/CostFloorBoundary.lean
/-- **The boundary theorem.** The banked structure admits two ladders with
different asymptotic ratios (φ and 1). Hence the ratio floor above plastic —
and a fortiori the per-rung cost floor — is logically independent of
everything the kernel has forced about scale ladders. -/
theorem banked_independence :
∃ L₁ L₂ : BankedLadder,
Tendsto (fun n => L₁.s (n + 1) / L₁.s n) atTop (nhds phi) ∧
Tendsto (fun n => L₂.s (n + 1) / L₂.s n) atTop (nhds 1) ∧ phi ≠ 1 :=
⟨phiLadderBanked, integerLadderBanked, phiLadder_ratio_tendsto,
integerLadder_ratio_tendsto, ne_of_gt one_lt_phi⟩
THEOREM no_kernel_minimal_posting_cost · IndisputableMonolith/Foundation/CostFloorBoundary.lean
/-- **Route (i) is killed as a theorem.** The banked package contains a
ladder whose per-rung adjacent-step costs go below any positive floor:
on the integer ladder the cost of step n is exactly
1/(2(n+1)(n+2)), which tends to zero. There is no minimal posting quantum
in the banked structure. -/
theorem no_kernel_minimal_posting_cost {c : ℝ} (hc : 0 < c) :
∃ n, Cost.Jcost (intLadder (n + 1) / intLadder n) < c := by
obtain ⟨N, hN⟩ := exists_nat_gt (1 / (2 * c))
refine ⟨N, ?_⟩
have hN1 : (0 : ℝ) < (N : ℝ) + 1 := by positivity
have hN2 : (0 : ℝ) < (N : ℝ) + 2 := by positivity
have e : Cost.Jcost (intLadder (N + 1) / intLadder N)
= 1 / (2 * ((N : ℝ) + 1) * ((N : ℝ) + 2)) := by
simp only [intLadder]
push_cast
unfold Cost.Jcost
field_simp [hN1.ne', hN2.ne']
ring
rw [e]
have h1 : 1 / (2 * ((N : ℝ) + 1) * ((N : ℝ) + 2))
< 1 / (2 * ((N : ℝ) + 1)) := by
apply one_div_lt_one_div_of_lt (by positivity : (0 : ℝ) < 2 * ((N : ℝ) + 1))
nlinarith [hN1, hN2]
have h2 : 1 / (2 * ((N : ℝ) + 1)) < c := by
rw [div_lt_iff₀ (by positivity : (0 : ℝ) < 2 * ((N : ℝ) + 1))]
have hc2 : (0 : ℝ) < 2 * c := by positivity
have hw : 1 / (2 * c) * (2 * c) = 1 := by field_simp [ne_of_gt hc2]
nlinarith [hN, hc2, hw, hN1]
linarith [h1, h2]
THEOREM jcost_plastic_certified_bounds · IndisputableMonolith/Foundation/CostFloorBoundary.lean
/-- **The certified threshold.** The plastic constant lies in
(13/10, 133/100), and its J-cost lies in (1/30, 41/1000) — about 3 to 4
percent of the calibrated cost unit (J(e) = 1). The floor T6 needs is:
each rung step costs more than this. -/
theorem jcost_plastic_certified_bounds :
∃ r : ℝ, 1 < r ∧ 1 + r = r ^ 3 ∧
(1 / 30 < Cost.Jcost r ∧ Cost.Jcost r < 41 / 1000) := by
have hcont : ContinuousOn (fun x : ℝ => x ^ 3 - x - 1)
(Set.Icc (13 / 10) (133 / 100)) :=
((continuous_pow 3).sub continuous_id |>.sub continuous_const).continuousOn
have hmem : (0 : ℝ) ∈
Set.Ioo ((13 / 10 : ℝ) ^ 3 - 13 / 10 - 1)
((133 / 100 : ℝ) ^ 3 - 133 / 100 - 1) := by
constructor <;> norm_num
have hivt := intermediate_value_Ioo
(by norm_num : (13 / 10 : ℝ) ≤ 133 / 100) hcont hmem
obtain ⟨r, hr, hfr⟩ := hivt
have hr3 : 1 + r = r ^ 3 := by
have h0 : r ^ 3 - r - 1 = 0 := hfr
linarith
have hr1 : 1 < r := by linarith [hr.1]
refine ⟨r, hr1, hr3, ?_, ?_⟩
· have hmono := jcost_strictMono_one_lt (a := (13 : ℝ) / 10) (b := r)
(by norm_num) hr.1
have hval : Cost.Jcost (13 / 10 : ℝ) = 9 / 260 := by norm_num [Cost.Jcost]
linarith [hmono, hval]
· have hmono := jcost_strictMono_one_lt (a := r) (b := (133 : ℝ) / 100)
(le_of_lt hr1) hr.2
have hval : Cost.Jcost (133 / 100 : ℝ) = 1089 / 26600 := by
norm_num [Cost.Jcost]
linarith [hmono, hval]
What this page does not claim
The kernel forces any ladder to have a ratio floor above plastic. The theorem derives the golden ratio from the banked structure alone. The cost floor J(ρ) is a minimal posting quantum that every ladder must respect.
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/Foundation/CostFloorBoundary.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 physical structure outside the banked ladder could supply the ratio floor above plastic?
- How does mass-spectrum stability physics connect to the per-rung cost floor?
- Does the integer ladder's vanishing cost correspond to any physically realizable recognition process?
- What is the exact relationship between the ratio floor and the recurrence s(n+2) = s(n+1) + s(n)?
MACHINE LAYER · GROUNDED CLAIM TABLE · CLICK TO EXPAND
THEOREM ratio_floor_gives_cost_floor · IndisputableMonolith/Foundation/CostFloorBoundary.lean
/-- A ratio floor ρ is exactly a per-rung J-cost floor J(ρ): the cost reading of the recurrence's residual premise. -/ theorem ratio_floor_gives_cost_floor {s : ℕ → ℝ} (hpos : ∀ n, 0 < s n) {ρ : ℝ} (hρ : 1 < ρ) (hfloor : ∀ n, ρ * s n ≤ s (n + 1)) : ∀ n, Cost.Jcost ρ ≤ Cost.Jcost (s (n + 1) / s n) := by intro n have hratio : ρ ≤ s (n + 1) / s n := by rw [le_div_iff₀ (hpos n)] exact hfloor n have hlog : Real.log ρ ≤ Real.log (s (n + 1) / s n) := Real.log_le_log (by linarith [hρ]) hratio rw [Cost.GeometricRoot.jcost_eq_cosh_log_sub_one (by linarith [hρ] : (0 : ℝ) < ρ), Cost.GeometricRoot.jcost_eq_cosh_log_sub_one (div_pos (hpos (n + 1)) (hpos n))] exact sub_le_sub_right (Cost.GeometricRoot.cosh_mono_on_nonneg (Real.log_nonneg (le_of_lt hρ)) hlog) 1if every step in a ladder of positive values grows by at least a fixed ratio ρ (with ρ > 1), then every step's recognition cost is at least J(ρ) ratio_floor_gives_cost_floor · IndisputableMonolith/Foundation/CostFloorBoundary.leanTHEOREM jcost_strictMono_one_lt · IndisputableMonolith/Foundation/CostFloorBoundary.lean
/-- J is strictly increasing above 1 (elementary, from the definition). -/ theorem jcost_strictMono_one_lt {a b : ℝ} (ha : 1 ≤ a) (hab : a < b) : Cost.Jcost a < Cost.Jcost b := by have hab' : 0 < a := by linarith have hb : 0 < b := by linarith have hab1 : 1 < a * b := by nlinarith [ha, hab, hb] have e : Cost.Jcost b - Cost.Jcost a = (b - a) * (1 - 1 / (a * b)) / 2 := by unfold Cost.Jcost field_simp [hab'.ne', hb.ne', ne_of_gt (by positivity : (0 : ℝ) < a * b)] ring have hpos : 0 < (b - a) * (1 - 1 / (a * b)) / 2 := by have h1 : 0 < 1 - 1 / (a * b) := by rw [sub_pos, div_lt_one (by positivity : (0 : ℝ) < a * b)] exact hab1 exact div_pos (mul_pos (by linarith) h1) two_pos rw [← e] at hpos linarith [hpos]J is strictly increasing above 1 jcost_strictMono_one_lt · IndisputableMonolith/Foundation/CostFloorBoundary.leanTHEOREM banked_independence · IndisputableMonolith/Foundation/CostFloorBoundary.lean
/-- **The boundary theorem.** The banked structure admits two ladders with different asymptotic ratios (φ and 1). Hence the ratio floor above plastic — and a fortiori the per-rung cost floor — is logically independent of everything the kernel has forced about scale ladders. -/ theorem banked_independence : ∃ L₁ L₂ : BankedLadder, Tendsto (fun n => L₁.s (n + 1) / L₁.s n) atTop (nhds phi) ∧ Tendsto (fun n => L₂.s (n + 1) / L₂.s n) atTop (nhds 1) ∧ phi ≠ 1 := ⟨phiLadderBanked, integerLadderBanked, phiLadder_ratio_tendsto, integerLadder_ratio_tendsto, ne_of_gt one_lt_phi⟩the φ-ladder with ratios constantly φ, and the integer ladder with ratios converging to 1 banked_independence · IndisputableMonolith/Foundation/CostFloorBoundary.leanTHEOREM no_kernel_minimal_posting_cost · IndisputableMonolith/Foundation/CostFloorBoundary.lean
/-- **Route (i) is killed as a theorem.** The banked package contains a ladder whose per-rung adjacent-step costs go below any positive floor: on the integer ladder the cost of step n is exactly 1/(2(n+1)(n+2)), which tends to zero. There is no minimal posting quantum in the banked structure. -/ theorem no_kernel_minimal_posting_cost {c : ℝ} (hc : 0 < c) : ∃ n, Cost.Jcost (intLadder (n + 1) / intLadder n) < c := by obtain ⟨N, hN⟩ := exists_nat_gt (1 / (2 * c)) refine ⟨N, ?_⟩ have hN1 : (0 : ℝ) < (N : ℝ) + 1 := by positivity have hN2 : (0 : ℝ) < (N : ℝ) + 2 := by positivity have e : Cost.Jcost (intLadder (N + 1) / intLadder N) = 1 / (2 * ((N : ℝ) + 1) * ((N : ℝ) + 2)) := by simp only [intLadder] push_cast unfold Cost.Jcost field_simp [hN1.ne', hN2.ne'] ring rw [e] have h1 : 1 / (2 * ((N : ℝ) + 1) * ((N : ℝ) + 2)) < 1 / (2 * ((N : ℝ) + 1)) := by apply one_div_lt_one_div_of_lt (by positivity : (0 : ℝ) < 2 * ((N : ℝ) + 1)) nlinarith [hN1, hN2] have h2 : 1 / (2 * ((N : ℝ) + 1)) < c := by rw [div_lt_iff₀ (by positivity : (0 : ℝ) < 2 * ((N : ℝ) + 1))] have hc2 : (0 : ℝ) < 2 * c := by positivity have hw : 1 / (2 * c) * (2 * c) = 1 := by field_simp [ne_of_gt hc2] nlinarith [hN, hc2, hw, hN1] linarith [h1, h2]The integer ladder's per-step costs are 1/(2(n+1)(n+2)), which tend to zero no_kernel_minimal_posting_cost · IndisputableMonolith/Foundation/CostFloorBoundary.leanTHEOREM jcost_plastic_certified_bounds · IndisputableMonolith/Foundation/CostFloorBoundary.lean
/-- **The certified threshold.** The plastic constant lies in (13/10, 133/100), and its J-cost lies in (1/30, 41/1000) — about 3 to 4 percent of the calibrated cost unit (J(e) = 1). The floor T6 needs is: each rung step costs more than this. -/ theorem jcost_plastic_certified_bounds : ∃ r : ℝ, 1 < r ∧ 1 + r = r ^ 3 ∧ (1 / 30 < Cost.Jcost r ∧ Cost.Jcost r < 41 / 1000) := by have hcont : ContinuousOn (fun x : ℝ => x ^ 3 - x - 1) (Set.Icc (13 / 10) (133 / 100)) := ((continuous_pow 3).sub continuous_id |>.sub continuous_const).continuousOn have hmem : (0 : ℝ) ∈ Set.Ioo ((13 / 10 : ℝ) ^ 3 - 13 / 10 - 1) ((133 / 100 : ℝ) ^ 3 - 133 / 100 - 1) := by constructor <;> norm_num have hivt := intermediate_value_Ioo (by norm_num : (13 / 10 : ℝ) ≤ 133 / 100) hcont hmem obtain ⟨r, hr, hfr⟩ := hivt have hr3 : 1 + r = r ^ 3 := by have h0 : r ^ 3 - r - 1 = 0 := hfr linarith have hr1 : 1 < r := by linarith [hr.1] refine ⟨r, hr1, hr3, ?_, ?_⟩ · have hmono := jcost_strictMono_one_lt (a := (13 : ℝ) / 10) (b := r) (by norm_num) hr.1 have hval : Cost.Jcost (13 / 10 : ℝ) = 9 / 260 := by norm_num [Cost.Jcost] linarith [hmono, hval] · have hmono := jcost_strictMono_one_lt (a := r) (b := (133 : ℝ) / 100) (le_of_lt hr1) hr.2 have hval : Cost.Jcost (133 / 100 : ℝ) = 1089 / 26600 := by norm_num [Cost.Jcost] linarith [hmono, hval]the plastic constant, the root of r³ = r + 1, lies between 13/10 and 133/100, and its J-cost lies between 1/30 and 41/1000 jcost_plastic_certified_bounds · IndisputableMonolith/Foundation/CostFloorBoundary.lean