theorem
proved
electron_structural_mass_forced
show as:
view math explainer →
open explainer
Read the cached plain-language explainer.
open lean source
IndisputableMonolith.RRF.Physics.ElectronMass.Defs on GitHub at line 78.
browse module
All declarations in this module, on Recognition.
explainer page
depends on
-
phi_ne_zero -
phi_ne_zero -
phi_ne_zero -
electron_rung -
electron_structural_mass -
electron_structural_mass_forced -
lepton_B -
lepton_R0 -
lepton_yardstick -
electron_rung -
electron_structural_mass -
lepton_B -
lepton_R0 -
lepton_yardstick
used by
formal source
75 = 2^(-22) * φ^51
76
77 Proof: Direct computation shows φ^(-5) * φ^62 * φ^(-6) = φ^51. -/
78theorem electron_structural_mass_forced :
79 electron_structural_mass = (2 : ℝ) ^ (-22 : ℤ) * phi ^ (51 : ℤ) := by
80 unfold electron_structural_mass lepton_yardstick E_coh lepton_B lepton_R0 electron_rung
81 have hne : (phi : ℝ) ≠ 0 := phi_ne_zero
82 have h1 : phi ^ (-5 : ℤ) * phi ^ (62 : ℤ) = phi ^ (57 : ℤ) := by
83 rw [← zpow_add₀ hne]; norm_num
84 have h2 : phi ^ (57 : ℤ) * phi ^ (-6 : ℤ) = phi ^ (51 : ℤ) := by
85 rw [← zpow_add₀ hne]; norm_num
86 have hsub : ((2 : ℤ) - 8 : ℤ) = (-6 : ℤ) := by norm_num
87 simp only [hsub, h1, mul_assoc]
88 rw [h2]
89
90end ElectronMass
91end Physics
92end IndisputableMonolith