phi_inv

formal source

 107  lt_trans (by norm_num) phi_gt_onePointSixOneEight
 108
 109/-- φ⁻¹ = φ - 1 (a key identity). -/
 110theorem phi_inv : φ⁻¹ = φ - 1 := by
 111  have hphi_ne : φ ≠ 0 := phi_pos.ne'
 112  have h := phi_equation
 113  -- From φ² = φ + 1, divide by φ: φ = 1 + 1/φ, so 1/φ = φ - 1
 114  have h1 : φ^2 / φ = (φ + 1) / φ := by rw [h]
 115  have h2 : φ = 1 + φ⁻¹ := by
 116    field_simp at h1
 117    field_simp
 118    nlinarith [phi_pos]
 119  linarith
 120
 121/-- J(φ) = (2φ - 1)/2 - 1 = φ - 3/2 (cost of the golden ratio).
 122    Note: J(φ) ≠ 0 because φ ≠ 1. -/
 123theorem J_phi : LawOfExistence.J φ = φ - 3/2 := by
 124  simp only [LawOfExistence.J]
 125  rw [phi_inv]
 126  ring
 127
 128/-! ## Self-Similarity -/
 129
 130/-- A self-similar structure with scale ratio r. -/
 131structure SelfSimilar where
 132  /-- The scale ratio -/
 133  ratio : ℝ
 134  ratio_pos : 0 < ratio
 135  ratio_ne_one : ratio ≠ 1
 136  /-- Scale invariance is witnessed by a closed geometric scale sequence. -/
 137  scale_invariant :
 138    ∃ S : PhiForcingDerived.GeometricScaleSequence,
 139      S.ratio = ratio ∧ S.isClosed
 140