Standard Model Lagrangian, box 2: the scalar-potential terms, the Higgs doublet and
DefinitionSMHiggsPotential_DefsParameters. The coupling , the mass , the Higgs mass and the tadpole coefficient (all real). Derived constants, in Veltman's conventions:
Fields at one spacetime point: real and , and complex with , so .
The scalar terms of box 2. scalarLagrangian is the sum of the purely scalar, non-derivative terms of box 2 of the chart. It excludes the Goldstone mass terms and , which come from gauge fixing:
Higgs doublet. , with Hermitian square norm (doubletNormSq).
How the print is read: the chart prints the cubic coefficient as . Here it is read as . This is the only value for which the scalar terms combine into a potential of the doublet. Division by zero returns in Lean, so and are only meaningful when and .
import Mathlib
/-!
# Standard Model Lagrangian (Veltman form), sector 2: the Higgs potential terms
-/
namespace SMHiggsPotential
open Complex
/-- Veltman's Higgs self-coupling parameter `α_h = m_h² / (4 M²)`. -/
noncomputable def alphaH (M mh : ℝ) : ℝ := mh ^ 2 / (4 * M ^ 2)
/-- The Higgs vacuum expectation value `v = 2 M / g`. -/
noncomputable def vev (g M : ℝ) : ℝ := 2 * M / g
/-- The quartic coupling `λ = g² α_h / 2 = g² m_h² / (8 M²)` of the doublet potential. -/
noncomputable def quarticCoupling (g M mh : ℝ) : ℝ := g ^ 2 * alphaH M mh / 2
/-- The non-derivative, purely scalar terms of sector 2 of the printed Lagrangian, excluding
the gauge-fixing Goldstone mass terms `-M² φ⁺φ⁻` and `-(M²/2c_w²) φ⁰φ⁰`:
```
-½ m_h² H² - β_h [2M²/g² + (2M/g) H + ½(H² + φ⁰φ⁰ + 2φ⁺φ⁻)] + (2M⁴/g²) α_h
- g M α_h [H³ + H φ⁰φ⁰ + 2 H φ⁺φ⁻]
- ⅛ g² α_h [H⁴ + (φ⁰)⁴ + 4(φ⁺φ⁻)² + 4(φ⁰)²φ⁺φ⁻ + 4H²φ⁺φ⁻ + 2(φ⁰)²H²]
```
The coefficient printed as `g α` in the cubic term is read as `g M α_h`.
`H, φ⁰` are real, `φ⁺ = φp` is complex and `φ⁻ = conj φ⁺`, so `φ⁺φ⁻ = |φp|²`. -/
noncomputable def scalarLagrangian (g M mh βh H φ0 : ℝ) (φp : ℂ) : ℝ :=
- (1 / 2) * mh ^ 2 * H ^ 2
- βh * (2 * M ^ 2 / g ^ 2 + 2 * M / g * H + (1 / 2) * (H ^ 2 + φ0 ^ 2 + 2 * normSq φp))
+ 2 * M ^ 4 / g ^ 2 * alphaH M mh
- g * M * alphaH M mh * (H ^ 3 + H * φ0 ^ 2 + 2 * H * normSq φp)
- (1 / 8) * g ^ 2 * alphaH M mh *
(H ^ 4 + φ0 ^ 4 + 4 * normSq φp ^ 2 + 4 * φ0 ^ 2 * normSq φp
+ 4 * H ^ 2 * normSq φp + 2 * φ0 ^ 2 * H ^ 2)
/-- The Higgs doublet `Φ = (φ⁺, (v + H + i φ⁰)/√2) ∈ ℂ²`. -/
noncomputable def higgsDoublet (g M H φ0 : ℝ) (φp : ℂ) : Fin 2 → ℂ :=
![φp, (((vev g M + H : ℝ) : ℂ) + (φ0 : ℂ) * I) / ((Real.sqrt 2 : ℝ) : ℂ)]
/-- The Hermitian square norm `Φ†Φ = |Φ₁|² + |Φ₂|²` of a doublet `Φ ∈ ℂ²`. -/
noncomputable def doubletNormSq (Φ : Fin 2 → ℂ) : ℝ := ∑ i, normSq (Φ i)
end SMHiggsPotential
Read-back
What the Lean code literally says, in plain math · Aristotle (Harmonic) - drafting agent, NON-BLIND (not an independent auditor)
NON-BLIND READ-BACK — NOT INDEPENDENT TESTIMONY. This read-back was written by the same agent (Aristotle, by Harmonic) that drafted the Lean statement, with full knowledge of the intended meaning and of the source image. It was not produced by a blind, independent auditor, and no reviewer should treat it as independent evidence that the formalization is faithful.
All quantities are real unless stated. Division by zero returns , which matters when or .
- ; ; .
- For real and complex , write . Then
- is the function whose first entry is and whose second entry is .
- For any , (a real number).