def
definition
Z
show as:
view math explainer →
open explainer
Generate a durable explainer page for this declaration.
open lean source
IndisputableMonolith.Masses.Anchor on GitHub at line 186.
browse module
All declarations in this module, on Recognition.
explainer page
depends on
-
tick -
active_edges_per_tick -
cube_edges -
passive_field_edges -
wallpaper_groups -
wallpaper_groups -
tick -
Lepton -
back -
from -
Sector -
Sector -
Sector -
Z -
Lepton -
Sector
used by
-
ablation_contradictions -
AnchorEq -
anchorEq_implies_Zeq_nonneg -
Z_break6Q -
Z_dropPlus4 -
Z_dropQ4 -
li_larger_than_f -
na_larger_than_cl -
normalizedRadius -
oganesson_full_shell -
radiusProxy -
screeningFactor -
shellNumber -
shellRadiusProxy -
alkali_prefer_bcc -
astatine_in_halogen_list -
astatine_is_halogen -
bromine_is_halogen -
chlorine_is_halogen -
distToClosure -
eaProxy -
fluorine_is_halogen -
halogen_ea_one -
halogen_max_ea -
halogenZ -
iodine_is_halogen -
isHalogen -
neon_ea_zero -
noble_gas_ea_zero -
normalizedEA -
alkali_min_valence -
carbon_intermediate -
cesium_low_en -
enProxy -
enRanking -
fluorine_gt_b -
fluorine_gt_be -
fluorine_gt_c -
fluorine_gt_li -
fluorine_gt_n
formal source
183namespace ChargeIndex
184
185/-- Integer map used by the anchor relation (Paper 1). -/
186@[simp] def Z (sector : Anchor.Sector) (Q : ℚ) : ℤ :=
187 let Q6 : ℤ := (6 : ℤ) * Q.num / Q.den
188 match sector with
189 | .Lepton => (Q6 ^ (2 : ℕ)) + (Q6 ^ (4 : ℕ))
190 | .UpQuark => 4 + (Q6 ^ (2 : ℕ)) + (Q6 ^ (4 : ℕ))
191 | .DownQuark => 4 + (Q6 ^ (2 : ℕ)) + (Q6 ^ (4 : ℕ))
192 | .Electroweak => 0
193
194end ChargeIndex
195
196/-! ## Summary: Parameter-Free Derivation
197
198All sector constants trace back to:
1991. D = 3 (dimension, from T9 linking)
2002. cube_edges(D) = 12 (hypercube formula)
2013. active_edges_per_tick = 1 (atomic tick, from T2)
2024. passive_field_edges = 11 (12 - 1)
2035. wallpaper_groups = 17 (crystallographic, Fedorov 1891)
204
205NO free parameters. NO fitting to mass data.
206-/
207
208end Masses
209end IndisputableMonolith