def
definition
alpha
show as:
view math explainer →
open explainer
Generate a durable explainer page for this declaration.
open lean source
IndisputableMonolith.Constants.Alpha on GitHub at line 38.
browse module
All declarations in this module, on Recognition.
explainer page
Derivations using this theorem
depends on
used by
-
phi_cubed_in_theta_band -
rs_pattern_sqrt_components_neutral -
H_RSZeroParameterStatus -
cubicConstraint -
hexagonalConstraint -
LatticeParams -
monoclinicConstraint -
orthorhombicConstraint -
tetragonalConstraint -
trigonalConstraint -
geometric_seed_eq -
row_hartree_over_rest -
row_hartree_over_rest_eq -
row_rydberg_over_rest -
row_rydberg_over_rest_eq -
alpha_over_pi_small -
Lambda_no_fine_tuning -
Omega_Lambda_RS -
Omega_Lambda_RS_well_defined -
alpha_over_pi_bounds -
dark_energy_base_value -
dark_energy_match -
Omega_L_pred -
love_changes_individual_sigma -
love_equilibrates -
loveOperator -
alphaInverseRS -
codata_in_band -
a_baryon_keplerian -
btfr_mass_velocity_relation -
C_ilg_prefactor_pos -
eight_tick_period -
ParamProps -
Params -
w_t_ge_one -
w_t_nonneg -
w_t_nonneg_with -
w_t_with -
rotational_flatness_forced -
rotational_flatness_implies_nonzero_vflat
formal source
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