def
definition
ell0
show as:
view math explainer →
open explainer
Generate a durable explainer page for this declaration.
open lean source
IndisputableMonolith.Constants.Derivation on GitHub at line 71.
browse module
All declarations in this module, on Recognition.
explainer page
depends on
used by
-
BridgeData -
computeRatios -
UnitsKGateCert -
c_ell0_tau0 -
E_coh_pos -
ell0 -
ell0_pos -
kappa_einstein_eq -
lambda_rec -
RSUnits -
canonicalUnits -
ell0_ne_zero -
ell0_pos -
units_self_consistent -
display_rate_matches_structural_rate -
displays_invariant_under_equivalence -
ell0_div_tau0_eq_c -
K_gate_check -
KGateMeasurement -
K_gate_units_invariant -
observable_factors_through_quotient -
single_inequality_audit -
UnitsEquivalent -
UnitsEquivalent -
UnitsEquivalent -
units_quotient_preserves_K -
K_gate_eqK -
lambda_kin_display -
lambda_kin_display_ratio -
lambda_kin_from_tau_rec -
lambda_rec_is_root -
lambda_rec_unique_root -
one_over_sqrt_pi_approx -
planck_gate_identity -
U -
U_ell0 -
c_mul_tau0_eq_ell0 -
a0_phi_ladder_formula -
curvature_bounded_at_R0 -
InflationCert
formal source
68
69/-! ## RS Fundamental Length Scale -/
70
71def ell0 : ℝ := c_codata * tau0
72
73lemma ell0_pos : 0 < ell0 := mul_pos c_codata_pos tau0_pos
74lemma ell0_ne_zero : ell0 ≠ 0 := ne_of_gt ell0_pos
75
76/-! ## RS Unit System Structure -/
77
78structure RSUnitSystem where
79 τ : ℝ
80 ℓ : ℝ
81 φ_val : ℝ
82 τ_pos : 0 < τ
83 ℓ_pos : 0 < ℓ
84 φ_eq : φ_val = (1 + sqrt 5) / 2
85 consistency : c_codata * τ = ℓ
86
87def canonicalUnits : RSUnitSystem where
88 τ := tau0
89 ℓ := ell0
90 φ_val := phi
91 τ_pos := tau0_pos
92 ℓ_pos := ell0_pos
93 φ_eq := rfl
94 consistency := rfl
95
96/-! ## Derived Constants -/
97
98def c_derived (u : RSUnitSystem) : ℝ := u.ℓ / u.τ
99
100theorem c_derived_eq_codata (u : RSUnitSystem) : c_derived u = c_codata := by
101 unfold c_derived