structure
definition
RSUnits
show as:
view math explainer →
open explainer
Read the cached plain-language explainer.
open lean source
IndisputableMonolith.Constants on GitHub at line 481.
browse module
All declarations in this module, on Recognition.
explainer page
depends on
used by
-
approxEq -
computeRatios -
UnitsKGateCert -
ConeEntropyFacts -
display_null_condition -
display_rate_matches_structural_rate -
display_ratio_scale_invariant -
displays_invariant_under_equivalence -
display_speed_eq_c -
display_speed_eq_c_of_nonzero -
display_speed_positive -
ell0_div_tau0_eq_c -
K_gate_check -
KGateMeasurement -
K_gate_tolerance -
K_gate_units_invariant -
observable_factors_through_quotient -
single_inequality_audit -
tau_rec_display_ne_zero -
tau_rec_display_pos -
UnitsEquivalent -
UnitsEquivalent -
UnitsEquivalent -
UnitsEquivalent -
units_quotient_preserves_K -
K_gate_eqK -
lambda_kin_display -
lambda_kin_display_ratio -
lambda_kin_from_tau_rec -
tau_rec_display -
tau_rec_display_ratio -
c -
K_rs -
lambda_kin -
lambda_kin_eq_K_gate_ratio -
tau_rec -
tau_rec_eq_K_gate_ratio -
U -
c_mul_tau0_eq_ell0 -
cone_bound
formal source
478-/
479
480/-- Minimal RS units used in Core. -/
481structure RSUnits where
482 tau0 : ℝ
483 ell0 : ℝ
484 c : ℝ
485 c_ell0_tau0 : c * tau0 = ell0
486
487/-- Dimensionless bridge ratio \(K\).
488
489Defined (non-circularly) as \(K = \varphi^{1/2}\). -/
490@[simp] noncomputable def K : ℝ := phi ^ (1/2 : ℝ)
491
492@[simp] lemma K_def : K = phi ^ (1/2 : ℝ) := rfl
493
494lemma K_pos : 0 < K := by
495 -- φ > 0, hence φ^(1/2) > 0
496 simpa [K] using Real.rpow_pos_of_pos phi_pos (1/2 : ℝ)
497
498lemma K_nonneg : 0 ≤ K := le_of_lt K_pos
499
500/-- Alias matching parallel-work naming convention. -/
501lemma one_lt_phiPointSixOne : (1.6 : ℝ) < phi := by linarith [phi_gt_onePointSixOne]
502
503/-- Alias: phi_gt_one ≡ one_lt_phi, for parallel-work compat. -/
504lemma phi_gt_one : 1 < phi := one_lt_phi
505
506/-- φ ≈ 1.618 (coarse upper bound used in some modules). -/
507lemma phi_approx : phi < (1.62 : ℝ) := phi_lt_onePointSixTwo
508
509/-- J(φ) = φ - 3/2 (exact, using φ² = φ + 1). -/
510lemma Jcost_phi_val : Cost.Jcost phi = phi - 3 / 2 := by
511 rw [Cost.Jcost_eq_sq phi_ne_zero]