abbrev
definition
Z
show as:
view math explainer →
open explainer
Read the cached plain-language explainer.
open lean source
IndisputableMonolith.Physics.AnchorPolicyCertified on GitHub at line 41.
browse module
All declarations in this module, on Recognition.
explainer page
depends on
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
38
39abbrev Species : Type := Fermion
40
41abbrev Z (f : Species) : Int := ZOf f
42
43abbrev Fgap (z : Int) : ℝ := gap z
44
45/-! ## Main certified consequences -/
46
47/-- If an external certificate bounds the per-species residues at the anchor, then every species'
48residue is close to the closed-form display `gap(Z)` (inequality form). -/
49theorem anchor_identity_from_cert
50 (C : AnchorCert Species)
51 (hC : Valid Z Fgap C)
52 (resAtAnchor : Species → ℝ)
53 (hres : ∀ f, memI (C.Ires f) (resAtAnchor f)) :
54 ∀ f : Species, |resAtAnchor f - Fgap (Z f)| ≤ 2 * C.eps (Z f) := by
55 -- Directly reuse the generic lemma.
56 simpa [Species, Z, Fgap] using
57 (anchorIdentity_cert (Z := Z) (Fgap := Fgap) (C := C) hC resAtAnchor hres)
58
59/-- Equal-Z degeneracy bound from a certificate: if two species share the same Z, their residues
60must lie within the certified band. -/
61theorem equalZ_residue_from_cert
62 (C : AnchorCert Species)
63 (hC : Valid Z Fgap C)
64 (resAtAnchor : Species → ℝ)
65 (hres : ∀ f, memI (C.Ires f) (resAtAnchor f))
66 {f g : Species} (hZ : Z f = Z g) :
67 |resAtAnchor f - resAtAnchor g| ≤ 2 * C.eps (Z f) := by
68 simpa [Species, Z, Fgap] using
69 (equalZ_residue_of_cert (Z := Z) (Fgap := Fgap) (C := C) hC resAtAnchor hres hZ)
70
71end