  34  rw [div_eq_iff hpos.ne', pow_succ]
  35  ring
  36
  37theorem mass_pos (k : ℕ) : 0 < mesonMass k := pow_pos phi_pos k
  38
  39structure MesonSpectrumCert where
  40  five_families : Fintype.card MesonFamily = 5
  41  phi_ratio : ∀ k, mesonMass (k + 1) / mesonMass k = phi
  42  mass_always_pos : ∀ k, 0 < mesonMass k
  43
  44noncomputable def mesonSpectrumCert : MesonSpectrumCert where
  45  five_families := mesonFamily_count
  46  phi_ratio := mass_ratio
  47  mass_always_pos := mass_pos
  48
  49end IndisputableMonolith.Physics.MesonSpectrumFromPhiLadder

papers checked against this theorem

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