  52  have : phi * phi⁻¹ = 1 := mul_inv_cancel₀ hphi_ne
  53  nlinarith [this]
  54
  55structure FibonacciCompositionCert where
  56  division_pos : 0 < goldenDivision
  57  division_lt_one : goldenDivision < 1
  58  division_ratio : (1 - goldenDivision) / goldenDivision = phi - 1
  59
  60noncomputable def cert : FibonacciCompositionCert where
  61  division_pos := goldenDivision_pos
  62  division_lt_one := goldenDivision_lt_one
  63  division_ratio := goldenDivision_ratio
  64
  65theorem cert_inhabited : Nonempty FibonacciCompositionCert := ⟨cert⟩
  66
  67end
  68end FibonacciInComposition
  69end ArtHistory
  70end IndisputableMonolith

papers checked against this theorem

No papers in the current corpus map onto this theorem yet.