lemma
proved
one_lt_phi
show as:
view math explainer →
open explainer
Generate a durable explainer page for this declaration.
open lean source
IndisputableMonolith.PhiSupport.Lemmas on GitHub at line 25.
browse module
All declarations in this module, on Recognition.
explainer page
depends on
used by
-
pitchJNDFraction_lt_one -
agronomicTipPoint_lt_one -
resonant_minimization -
preferredAspectRatio_gt_one -
goldenDivision_lt_one -
fastRadioBurstFromBITCert -
ml_from_phi_tier_structure -
ml_matches_stellar_observations -
ml_geometric_bounds -
r_orbit_strict_mono -
bimodal_ratio_lt_phi_nine -
alfvenToSolarWindRatio_gt_one -
J_bit_pos -
covalent_barrier_higher -
angle_bias -
optimalTempRatio_gt_one -
tc_scaling -
thermosphere_above_stratopause_ratio -
horton_bifurcation_ratio_gt_one -
horton_length_ratio_gt_one -
log_bifurcation_ratio_pos -
log_length_ratio_pos -
z_rung_monotone -
z_rung_strictly_increasing -
criticalDamkohler_gt_one -
high_tc_superconductivity_structure -
alphaLock_pos -
hbar_lt_one -
one_lt_phi -
one_lt_phiPointSixOne -
phi_ge_one -
phi_gt_one -
phi_ne_one -
k_R_pos -
vev_implies_phi_ne_one -
vev_phi_window -
alpha_locked_lt_one -
alpha_locked_pos -
display_rate_matches_structural_rate -
tau_rec_display_pos
formal source
22lemma phi_def : Constants.phi = Real.goldenRatio := rfl
23
24/-- φ > 1. -/
25lemma one_lt_phi : 1 < Constants.phi := by simp [phi_def, Real.one_lt_goldenRatio]
26
27/-- φ ≠ 0. -/
28lemma phi_ne_zero : Constants.phi ≠ 0 := by
29 -- goldenRatio = (1+√5)/2 ≠ 0
30 have : Real.goldenRatio ≠ 0 := by
31 have hpos : 0 < Real.goldenRatio := Real.goldenRatio_pos
32 exact ne_of_gt hpos
33 simpa [phi_def] using this
34
35/-- φ^2 = φ + 1 using the closed form. -/
36@[simp] theorem phi_squared : Constants.phi ^ 2 = Constants.phi + 1 := by
37 simp [phi_def, Real.goldenRatio_sq]
38
39/-- φ = 1 + 1/φ as an algebraic corollary. -/
40theorem phi_fixed_point : Constants.phi = 1 + 1 / Constants.phi := by
41 have h_sq : Constants.phi ^ 2 = Constants.phi + 1 := phi_squared
42 have h_ne_zero : Constants.phi ≠ 0 := phi_ne_zero
43 calc
44 Constants.phi = (Constants.phi ^ 2) / Constants.phi := by
45 rw [pow_two, mul_div_cancel_left₀ _ h_ne_zero]
46 _ = (Constants.phi + 1) / Constants.phi := by rw [h_sq]
47 _ = Constants.phi / Constants.phi + 1 / Constants.phi := by rw [add_div]
48 _ = 1 + 1 / Constants.phi := by
49 have : Constants.phi / Constants.phi = 1 := div_self h_ne_zero
50 rw [this]
51
52/-- Uniqueness: if x > 0 and x² = x + 1, then x = φ. -/
53 theorem phi_unique_pos_root (x : ℝ) : (x ^ 2 = x + 1 ∧ 0 < x) ↔ x = Constants.phi := by
54 constructor
55 · intro hx