def
definition
alphaInv
show as:
view math explainer →
open explainer
Read the cached plain-language explainer.
open lean source
IndisputableMonolith.Constants.Alpha on GitHub at line 35.
browse module
All declarations in this module, on Recognition.
explainer page
Derivations using this theorem
depends on
used by
-
alphaInv_dimensionless -
alphaInv_gauge_invariant -
gap3_resolved -
alpha -
alpha_components_derived -
alpha_seed -
alphaInv_def -
alphaInv_of_gap -
alphaInv_of_gap_at_canonical -
alphaInv_positive -
alphaInv_seed_ratio -
exp_factor_bounded -
log_alphaInv_eq -
log_alphaInv_seed_ratio -
alphaInv_predicted_range_check -
alphaInv_pos -
HartreeRydbergScoreCardCert -
row_bohr_over_reduced_compton -
row_bohr_over_reduced_compton_eq -
row_hartree_over_rest_eq -
row_hartree_over_rest_lower -
row_hartree_over_rest_upper -
row_rydberg_over_rest_eq -
row_rydberg_over_rest_lower -
row_rydberg_over_rest_upper -
alphaInv_rs -
NumericalPredictionsCert -
alphaInv_gt -
alphaInv_lt -
alphaInv_lt_strong -
exp_neg_00866_lt -
w8_computed_lt -
alpha_high_precision -
H_AlphaPrecision -
alpha_lower_bound -
alpha_upper_bound -
V_cb_match -
ae_den_pos -
alphaInv_pos -
row_electron_ae_leading_eq
formal source
32/-- Dimensionless inverse fine-structure constant (canonical exponential resummation).
33 This value (~137.036) is derived from the structural seed and gap with zero
34 adjustable parameters. -/
35@[simp] def alphaInv : ℝ := alpha_seed * Real.exp (-(f_gap / alpha_seed))
36
37/-- Fine-structure constant (α_EM). -/
38@[simp] def alpha : ℝ := 1 / alphaInv
39
40/-! ### Numeric Verification
41
42The derived constants in this module are **symbolic formulas**. Any numeric
43evaluation/match-to-CODATA checks are quarantined in
44`IndisputableMonolith/Constants/AlphaNumericsScaffold.lean` so they cannot be
45accidentally pulled into the certified surface.
46-/
47
48/-! ### Provenance Witnesses -/
49
50lemma alpha_components_derived :
51 (∃ (seed gap : ℝ),
52 alphaInv = seed * Real.exp (-(gap / seed)) ∧
53 seed = alpha_seed ∧
54 gap = f_gap) := by
55 refine ⟨alpha_seed, f_gap, ?_⟩
56 simp
57
58end
59
60end Constants
61end IndisputableMonolith