Imports
/-
Copyright (c) 2026 Joseph Tooby-Smith. All rights reserved.
Released under Apache 2.0 license as described in the file LICENSE.
Authors: Joseph Tooby-Smith
-/
module
public import Physlib.Particles.BeyondTheStandardModel.TwoHDM.GramMatrixA polynomial family of orbit representatives for the two Higgs doublet model
Every gauge orbit of the two Higgs doublet model meets the four–real–parameter family
repHiggs X = ⟨(X₀, 0), (X₁ + i X₂, X₃)⟩.
The crucial feature of this family (compared with the normalised representatives of
gaugeGroupI_exists_fst_eq_snd_eq) is that it is a polynomial family: the Gram vector of
repHiggs X is a polynomial in X, with no square roots. Consequently the value of a gauge
invariant potential on any field configuration is V (repHiggs X) for a suitable X, and the
question of whether V is a polynomial in the Gram vector reduces to the purely algebraic question
of whether V ∘ repHiggs lies in the subring generated by the (polynomial) Gram components of the
representative family.
@[expose] public section
A four–real–parameter polynomial family of representatives for the gauge orbits: the first
doublet is (X₀, 0) and the second is (X₁ + i X₂, X₃).
def repHiggs (X : Fin 4 → ℝ) : TwoHiggsDoublet where
Φ1 := !2[(X 0 : ℂ), 0]
Φ2 := !2[(X 1 : ℂ) + Complex.I * (X 2 : ℂ), (X 3 : ℂ)]@[simp]
lemma repHiggs_Φ1 (X : Fin 4 → ℝ) : (repHiggs X).Φ1 = !2[(X 0 : ℂ), 0] := rfl@[simp]
lemma repHiggs_Φ2 (X : Fin 4 → ℝ) :
(repHiggs X).Φ2 = !2[(X 1 : ℂ) + Complex.I * (X 2 : ℂ), (X 3 : ℂ)] := rflX:Fin 4 → ℝ⊢ ‖!₂[↑(X 0), 0].ofLp 0‖ ^ 2 + ‖!₂[↑(X 0), 0].ofLp 1‖ ^ 2 = X 0 ^ 2
simp [Complex.norm_real, Real.norm_eq_abs, sq_abs] All goals completed! 🐙
lemma normSq_repHiggs_Φ2 (X : Fin 4 → ℝ) :
‖(repHiggs X).Φ2‖ ^ 2 = X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2 := by X:Fin 4 → ℝ⊢ ‖(repHiggs X).Φ2‖ ^ 2 = X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2
rw [repHiggs_Φ2, X:Fin 4 → ℝ⊢ ‖!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)]‖ ^ 2 = X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2 X:Fin 4 → ℝ⊢ ‖!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 0‖ ^ 2 + ‖!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 1‖ ^ 2 =
X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2 PiLp.norm_sq_eq_of_L2, X:Fin 4 → ℝ⊢ ∑ i, ‖!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp i‖ ^ 2 = X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2 X:Fin 4 → ℝ⊢ ‖!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 0‖ ^ 2 + ‖!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 1‖ ^ 2 =
X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2 Fin.sum_univ_two X:Fin 4 → ℝ⊢ ‖!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 0‖ ^ 2 + ‖!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 1‖ ^ 2 =
X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2 X:Fin 4 → ℝ⊢ ‖!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 0‖ ^ 2 + ‖!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 1‖ ^ 2 =
X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2] X:Fin 4 → ℝ⊢ ‖!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 0‖ ^ 2 + ‖!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 1‖ ^ 2 =
X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2
rw [← Complex.normSq_eq_norm_sq, X:Fin 4 → ℝ⊢ Complex.normSq (!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 0) + ‖!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 1‖ ^ 2 =
X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2 X:Fin 4 → ℝ⊢ Complex.normSq (!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 0) +
Complex.normSq (!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 1) =
X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2 ← Complex.normSq_eq_norm_sq X:Fin 4 → ℝ⊢ Complex.normSq (!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 0) +
Complex.normSq (!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 1) =
X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2 X:Fin 4 → ℝ⊢ Complex.normSq (!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 0) +
Complex.normSq (!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 1) =
X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2] X:Fin 4 → ℝ⊢ Complex.normSq (!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 0) +
Complex.normSq (!₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 1) =
X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2
simp only [Matrix.cons_val_zero, Matrix.cons_val_one, Complex.normSq_apply,
Complex.add_re, Complex.add_im, Complex.ofReal_re, Complex.ofReal_im, Complex.mul_re,
Complex.mul_im, Complex.I_re, Complex.I_im] X:Fin 4 → ℝ⊢ (X 1 + (0 * X 2 - 1 * 0)) * (X 1 + (0 * X 2 - 1 * 0)) + (0 + (0 * 0 + 1 * X 2)) * (0 + (0 * 0 + 1 * X 2)) +
(X 3 * X 3 + 0 * 0) =
X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2
ring All goals completed! 🐙
lemma inner_repHiggs (X : Fin 4 → ℝ) :
⟪(repHiggs X).Φ1, (repHiggs X).Φ2⟫_ℂ = (X 0 : ℂ) * ((X 1 : ℂ) + Complex.I * (X 2 : ℂ)) := by X:Fin 4 → ℝ⊢ ⟪(repHiggs X).Φ1, (repHiggs X).Φ2⟫_ℂ = ↑(X 0) * (↑(X 1) + Complex.I * ↑(X 2))
rw [repHiggs_Φ1, X:Fin 4 → ℝ⊢ ⟪!₂[↑(X 0), 0], (repHiggs X).Φ2⟫_ℂ = ↑(X 0) * (↑(X 1) + Complex.I * ↑(X 2)) X:Fin 4 → ℝ⊢ ⟪!₂[↑(X 0), 0].ofLp 0, !₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 0⟫_ℂ +
⟪!₂[↑(X 0), 0].ofLp 1, !₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 1⟫_ℂ =
↑(X 0) * (↑(X 1) + Complex.I * ↑(X 2)) repHiggs_Φ2, X:Fin 4 → ℝ⊢ ⟪!₂[↑(X 0), 0], !₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)]⟫_ℂ = ↑(X 0) * (↑(X 1) + Complex.I * ↑(X 2)) X:Fin 4 → ℝ⊢ ⟪!₂[↑(X 0), 0].ofLp 0, !₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 0⟫_ℂ +
⟪!₂[↑(X 0), 0].ofLp 1, !₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 1⟫_ℂ =
↑(X 0) * (↑(X 1) + Complex.I * ↑(X 2)) PiLp.inner_apply, X:Fin 4 → ℝ⊢ ∑ i, ⟪!₂[↑(X 0), 0].ofLp i, !₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp i⟫_ℂ = ↑(X 0) * (↑(X 1) + Complex.I * ↑(X 2)) X:Fin 4 → ℝ⊢ ⟪!₂[↑(X 0), 0].ofLp 0, !₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 0⟫_ℂ +
⟪!₂[↑(X 0), 0].ofLp 1, !₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 1⟫_ℂ =
↑(X 0) * (↑(X 1) + Complex.I * ↑(X 2)) Fin.sum_univ_two X:Fin 4 → ℝ⊢ ⟪!₂[↑(X 0), 0].ofLp 0, !₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 0⟫_ℂ +
⟪!₂[↑(X 0), 0].ofLp 1, !₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 1⟫_ℂ =
↑(X 0) * (↑(X 1) + Complex.I * ↑(X 2)) X:Fin 4 → ℝ⊢ ⟪!₂[↑(X 0), 0].ofLp 0, !₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 0⟫_ℂ +
⟪!₂[↑(X 0), 0].ofLp 1, !₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 1⟫_ℂ =
↑(X 0) * (↑(X 1) + Complex.I * ↑(X 2))] X:Fin 4 → ℝ⊢ ⟪!₂[↑(X 0), 0].ofLp 0, !₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 0⟫_ℂ +
⟪!₂[↑(X 0), 0].ofLp 1, !₂[↑(X 1) + Complex.I * ↑(X 2), ↑(X 3)].ofLp 1⟫_ℂ =
↑(X 0) * (↑(X 1) + Complex.I * ↑(X 2))
simp only [Matrix.cons_val_zero, Matrix.cons_val_one, RCLike.inner_apply,
map_zero, Complex.conj_ofReal] X:Fin 4 → ℝ⊢ (↑(X 1) + Complex.I * ↑(X 2)) * ↑(X 0) + ↑(X 3) * 0 = ↑(X 0) * (↑(X 1) + Complex.I * ↑(X 2))
ring All goals completed! 🐙The Gram vector of a representative
The Gram vector of repHiggs X is an explicit polynomial in the four real parameters X.
@[simp]
lemma gramVector_repHiggs_inl (X : Fin 4 → ℝ) :
(repHiggs X).gramVector (Sum.inl 0) = X 0 ^ 2 + (X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2) := by X:Fin 4 → ℝ⊢ (repHiggs X).gramVector (Sum.inl 0) = X 0 ^ 2 + (X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2)
rw [gramVector_inl_zero_eq, X:Fin 4 → ℝ⊢ ‖(repHiggs X).Φ1‖ ^ 2 + ‖(repHiggs X).Φ2‖ ^ 2 = X 0 ^ 2 + (X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2) All goals completed! 🐙 normSq_repHiggs_Φ1, X:Fin 4 → ℝ⊢ X 0 ^ 2 + ‖(repHiggs X).Φ2‖ ^ 2 = X 0 ^ 2 + (X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2) All goals completed! 🐙 normSq_repHiggs_Φ2 X:Fin 4 → ℝ⊢ X 0 ^ 2 + (X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2) = X 0 ^ 2 + (X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2) All goals completed! 🐙] All goals completed! 🐙
@[simp]
lemma gramVector_repHiggs_inr0 (X : Fin 4 → ℝ) :
(repHiggs X).gramVector (Sum.inr 0) = 2 * X 0 * X 1 := by X:Fin 4 → ℝ⊢ (repHiggs X).gramVector (Sum.inr 0) = 2 * X 0 * X 1
rw [gramVector_inr_zero_eq, X:Fin 4 → ℝ⊢ 2 * (⟪(repHiggs X).Φ1, (repHiggs X).Φ2⟫_ℂ).re = 2 * X 0 * X 1 X:Fin 4 → ℝ⊢ 2 * (↑(X 0) * (↑(X 1) + Complex.I * ↑(X 2))).re = 2 * X 0 * X 1 inner_repHiggs X:Fin 4 → ℝ⊢ 2 * (↑(X 0) * (↑(X 1) + Complex.I * ↑(X 2))).re = 2 * X 0 * X 1 X:Fin 4 → ℝ⊢ 2 * (↑(X 0) * (↑(X 1) + Complex.I * ↑(X 2))).re = 2 * X 0 * X 1] X:Fin 4 → ℝ⊢ 2 * (↑(X 0) * (↑(X 1) + Complex.I * ↑(X 2))).re = 2 * X 0 * X 1
simp only [Complex.mul_re, Complex.add_re, Complex.add_im, Complex.ofReal_re, Complex.ofReal_im,
Complex.I_re, Complex.I_im, Complex.mul_im] X:Fin 4 → ℝ⊢ 2 * (X 0 * (X 1 + (0 * X 2 - 1 * 0)) - 0 * (0 + (0 * 0 + 1 * X 2))) = 2 * X 0 * X 1
ring All goals completed! 🐙
@[simp]
lemma gramVector_repHiggs_inr1 (X : Fin 4 → ℝ) :
(repHiggs X).gramVector (Sum.inr 1) = 2 * X 0 * X 2 := by X:Fin 4 → ℝ⊢ (repHiggs X).gramVector (Sum.inr 1) = 2 * X 0 * X 2
rw [gramVector_inr_one_eq, X:Fin 4 → ℝ⊢ 2 * (⟪(repHiggs X).Φ1, (repHiggs X).Φ2⟫_ℂ).im = 2 * X 0 * X 2 X:Fin 4 → ℝ⊢ 2 * (↑(X 0) * (↑(X 1) + Complex.I * ↑(X 2))).im = 2 * X 0 * X 2 inner_repHiggs X:Fin 4 → ℝ⊢ 2 * (↑(X 0) * (↑(X 1) + Complex.I * ↑(X 2))).im = 2 * X 0 * X 2 X:Fin 4 → ℝ⊢ 2 * (↑(X 0) * (↑(X 1) + Complex.I * ↑(X 2))).im = 2 * X 0 * X 2] X:Fin 4 → ℝ⊢ 2 * (↑(X 0) * (↑(X 1) + Complex.I * ↑(X 2))).im = 2 * X 0 * X 2
simp only [Complex.mul_im, Complex.add_re, Complex.add_im, Complex.ofReal_re, Complex.ofReal_im,
Complex.I_re, Complex.I_im, Complex.mul_re] X:Fin 4 → ℝ⊢ 2 * (X 0 * (0 + (0 * 0 + 1 * X 2)) + 0 * (X 1 + (0 * X 2 - 1 * 0))) = 2 * X 0 * X 2
ring All goals completed! 🐙
@[simp]
lemma gramVector_repHiggs_inr2 (X : Fin 4 → ℝ) :
(repHiggs X).gramVector (Sum.inr 2) = X 0 ^ 2 - (X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2) := by X:Fin 4 → ℝ⊢ (repHiggs X).gramVector (Sum.inr 2) = X 0 ^ 2 - (X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2)
rw [gramVector_inr_two_eq, X:Fin 4 → ℝ⊢ ‖(repHiggs X).Φ1‖ ^ 2 - ‖(repHiggs X).Φ2‖ ^ 2 = X 0 ^ 2 - (X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2) All goals completed! 🐙 normSq_repHiggs_Φ1, X:Fin 4 → ℝ⊢ X 0 ^ 2 - ‖(repHiggs X).Φ2‖ ^ 2 = X 0 ^ 2 - (X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2) All goals completed! 🐙 normSq_repHiggs_Φ2 X:Fin 4 → ℝ⊢ X 0 ^ 2 - (X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2) = X 0 ^ 2 - (X 1 ^ 2 + X 2 ^ 2 + X 3 ^ 2) All goals completed! 🐙] All goals completed! 🐙Every configuration is gauge equivalent to a representative
Every field configuration is in the gauge orbit of a representative repHiggs X. This is the
key fact that lets a gauge invariant potential be evaluated on the polynomial family.
lemma exists_smul_eq_repHiggs (φ : TwoHiggsDoublet) :
∃ (X : Fin 4 → ℝ) (g : GaugeGroupI), g • φ = repHiggs X := by φ:TwoHiggsDoublet⊢ ∃ X g, g • φ = repHiggs X
by_cases h : φ.Φ1 = 0 pos φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ ∃ X g, g • φ = repHiggs Xneg φ:TwoHiggsDoubleth:¬φ.Φ1 = 0⊢ ∃ X g, g • φ = repHiggs X
· pos φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ ∃ X g, g • φ = repHiggs X refine ⟨![0, ‖φ.Φ2‖, 0, 0], HiggsVec.toRealGroupElem φ.Φ2, ?_⟩ pos φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ φ.Φ2.toRealGroupElem • φ = repHiggs ![0, ‖φ.Φ2‖, 0, 0]
ext1 pos.h1 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ (φ.Φ2.toRealGroupElem • φ).Φ1 = (repHiggs ![0, ‖φ.Φ2‖, 0, 0]).Φ1pos.h2 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ (φ.Φ2.toRealGroupElem • φ).Φ2 = (repHiggs ![0, ‖φ.Φ2‖, 0, 0]).Φ2
· pos.h1 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ (φ.Φ2.toRealGroupElem • φ).Φ1 = (repHiggs ![0, ‖φ.Φ2‖, 0, 0]).Φ1 rw [gaugeGroupI_smul_fst, pos.h1 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ φ.Φ2.toRealGroupElem • φ.Φ1 = (repHiggs ![0, ‖φ.Φ2‖, 0, 0]).Φ1 pos.h1 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ 0 = !₂[↑(![0, ‖φ.Φ2‖, 0, 0] 0), 0] h, pos.h1 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ φ.Φ2.toRealGroupElem • 0 = (repHiggs ![0, ‖φ.Φ2‖, 0, 0]).Φ1 pos.h1 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ 0 = !₂[↑(![0, ‖φ.Φ2‖, 0, 0] 0), 0] smul_zero, pos.h1 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ 0 = (repHiggs ![0, ‖φ.Φ2‖, 0, 0]).Φ1pos.h1 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ 0 = !₂[↑(![0, ‖φ.Φ2‖, 0, 0] 0), 0] repHiggs_Φ1 pos.h1 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ 0 = !₂[↑(![0, ‖φ.Φ2‖, 0, 0] 0), 0]pos.h1 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ 0 = !₂[↑(![0, ‖φ.Φ2‖, 0, 0] 0), 0]]pos.h1 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ 0 = !₂[↑(![0, ‖φ.Φ2‖, 0, 0] 0), 0]
ext i pos.h1 φ:TwoHiggsDoubleth:φ.Φ1 = 0i:Fin 2⊢ WithLp.ofLp 0 i = !₂[↑(![0, ‖φ.Φ2‖, 0, 0] 0), 0].ofLp i
fin_cases i pos.h1.«_@».3536537121._hygCtx._hyg.33.«0» φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ WithLp.ofLp 0 ((fun i => i) ⟨0, ⋯⟩) = !₂[↑(![0, ‖φ.Φ2‖, 0, 0] 0), 0].ofLp ((fun i => i) ⟨0, ⋯⟩)pos.h1.«_@».3536537121._hygCtx._hyg.33.«1» φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ WithLp.ofLp 0 ((fun i => i) ⟨1, ⋯⟩) = !₂[↑(![0, ‖φ.Φ2‖, 0, 0] 0), 0].ofLp ((fun i => i) ⟨1, ⋯⟩) <;> pos.h1.«_@».3536537121._hygCtx._hyg.33.«0» φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ WithLp.ofLp 0 ((fun i => i) ⟨0, ⋯⟩) = !₂[↑(![0, ‖φ.Φ2‖, 0, 0] 0), 0].ofLp ((fun i => i) ⟨0, ⋯⟩)pos.h1.«_@».3536537121._hygCtx._hyg.33.«1» φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ WithLp.ofLp 0 ((fun i => i) ⟨1, ⋯⟩) = !₂[↑(![0, ‖φ.Φ2‖, 0, 0] 0), 0].ofLp ((fun i => i) ⟨1, ⋯⟩) simp All goals completed! 🐙
· pos.h2 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ (φ.Φ2.toRealGroupElem • φ).Φ2 = (repHiggs ![0, ‖φ.Φ2‖, 0, 0]).Φ2 rw [gaugeGroupI_smul_snd, pos.h2 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ φ.Φ2.toRealGroupElem • φ.Φ2 = (repHiggs ![0, ‖φ.Φ2‖, 0, 0]).Φ2 pos.h2 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ !₂[↑√(‖φ.Φ2‖ ^ 2), 0] = !₂[↑(![0, ‖φ.Φ2‖, 0, 0] 1) + Complex.I * ↑(![0, ‖φ.Φ2‖, 0, 0] 2), ↑(![0, ‖φ.Φ2‖, 0, 0] 3)] HiggsVec.toRealGroupElem_smul_self, pos.h2 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ HiggsVec.ofReal (‖φ.Φ2‖ ^ 2) = (repHiggs ![0, ‖φ.Φ2‖, 0, 0]).Φ2pos.h2 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ !₂[↑√(‖φ.Φ2‖ ^ 2), 0] = !₂[↑(![0, ‖φ.Φ2‖, 0, 0] 1) + Complex.I * ↑(![0, ‖φ.Φ2‖, 0, 0] 2), ↑(![0, ‖φ.Φ2‖, 0, 0] 3)] repHiggs_Φ2, pos.h2 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ HiggsVec.ofReal (‖φ.Φ2‖ ^ 2) =
!₂[↑(![0, ‖φ.Φ2‖, 0, 0] 1) + Complex.I * ↑(![0, ‖φ.Φ2‖, 0, 0] 2), ↑(![0, ‖φ.Φ2‖, 0, 0] 3)]pos.h2 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ !₂[↑√(‖φ.Φ2‖ ^ 2), 0] = !₂[↑(![0, ‖φ.Φ2‖, 0, 0] 1) + Complex.I * ↑(![0, ‖φ.Φ2‖, 0, 0] 2), ↑(![0, ‖φ.Φ2‖, 0, 0] 3)]
HiggsVec.ofReal pos.h2 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ !₂[↑√(‖φ.Φ2‖ ^ 2), 0] = !₂[↑(![0, ‖φ.Φ2‖, 0, 0] 1) + Complex.I * ↑(![0, ‖φ.Φ2‖, 0, 0] 2), ↑(![0, ‖φ.Φ2‖, 0, 0] 3)]pos.h2 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ !₂[↑√(‖φ.Φ2‖ ^ 2), 0] = !₂[↑(![0, ‖φ.Φ2‖, 0, 0] 1) + Complex.I * ↑(![0, ‖φ.Φ2‖, 0, 0] 2), ↑(![0, ‖φ.Φ2‖, 0, 0] 3)]]pos.h2 φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ !₂[↑√(‖φ.Φ2‖ ^ 2), 0] = !₂[↑(![0, ‖φ.Φ2‖, 0, 0] 1) + Complex.I * ↑(![0, ‖φ.Φ2‖, 0, 0] 2), ↑(![0, ‖φ.Φ2‖, 0, 0] 3)]
ext i pos.h2 φ:TwoHiggsDoubleth:φ.Φ1 = 0i:Fin 2⊢ !₂[↑√(‖φ.Φ2‖ ^ 2), 0].ofLp i =
!₂[↑(![0, ‖φ.Φ2‖, 0, 0] 1) + Complex.I * ↑(![0, ‖φ.Φ2‖, 0, 0] 2), ↑(![0, ‖φ.Φ2‖, 0, 0] 3)].ofLp i
fin_cases i pos.h2.«_@».3536537121._hygCtx._hyg.33.«0» φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ !₂[↑√(‖φ.Φ2‖ ^ 2), 0].ofLp ((fun i => i) ⟨0, ⋯⟩) =
!₂[↑(![0, ‖φ.Φ2‖, 0, 0] 1) + Complex.I * ↑(![0, ‖φ.Φ2‖, 0, 0] 2), ↑(![0, ‖φ.Φ2‖, 0, 0] 3)].ofLp ((fun i => i) ⟨0, ⋯⟩)pos.h2.«_@».3536537121._hygCtx._hyg.33.«1» φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ !₂[↑√(‖φ.Φ2‖ ^ 2), 0].ofLp ((fun i => i) ⟨1, ⋯⟩) =
!₂[↑(![0, ‖φ.Φ2‖, 0, 0] 1) + Complex.I * ↑(![0, ‖φ.Φ2‖, 0, 0] 2), ↑(![0, ‖φ.Φ2‖, 0, 0] 3)].ofLp ((fun i => i) ⟨1, ⋯⟩) <;> pos.h2.«_@».3536537121._hygCtx._hyg.33.«0» φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ !₂[↑√(‖φ.Φ2‖ ^ 2), 0].ofLp ((fun i => i) ⟨0, ⋯⟩) =
!₂[↑(![0, ‖φ.Φ2‖, 0, 0] 1) + Complex.I * ↑(![0, ‖φ.Φ2‖, 0, 0] 2), ↑(![0, ‖φ.Φ2‖, 0, 0] 3)].ofLp ((fun i => i) ⟨0, ⋯⟩)pos.h2.«_@».3536537121._hygCtx._hyg.33.«1» φ:TwoHiggsDoubleth:φ.Φ1 = 0⊢ !₂[↑√(‖φ.Φ2‖ ^ 2), 0].ofLp ((fun i => i) ⟨1, ⋯⟩) =
!₂[↑(![0, ‖φ.Φ2‖, 0, 0] 1) + Complex.I * ↑(![0, ‖φ.Φ2‖, 0, 0] 2), ↑(![0, ‖φ.Φ2‖, 0, 0] 3)].ofLp ((fun i => i) ⟨1, ⋯⟩) simp [Real.sqrt_sq, norm_nonneg] All goals completed! 🐙
· neg φ:TwoHiggsDoubleth:¬φ.Φ1 = 0⊢ ∃ X g, g • φ = repHiggs X obtain ⟨g, h1, h2⟩ := gaugeGroupI_exists_fst_eq_snd_eq h neg φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ ∃ X g, g • φ = repHiggs X
refine ⟨![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ‖φ.Φ1‖).im,
√(φ.gramMatrix.det.re) / ‖φ.Φ1‖], g, ?_⟩ neg φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ g • φ = repHiggs ![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖]
ext1 neg.h1 φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ (g • φ).Φ1 =
(repHiggs ![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖]).Φ1neg.h2 φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ (g • φ).Φ2 =
(repHiggs ![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖]).Φ2
· neg.h1 φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ (g • φ).Φ1 =
(repHiggs ![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖]).Φ1 rw [gaugeGroupI_smul_fst, neg.h1 φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ g • φ.Φ1 =
(repHiggs ![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖]).Φ1 neg.h1 φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ !₂[↑‖φ.Φ1‖, 0] =
!₂[↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 0), 0] h1, neg.h1 φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ !₂[↑‖φ.Φ1‖, 0] =
(repHiggs ![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖]).Φ1neg.h1 φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ !₂[↑‖φ.Φ1‖, 0] =
!₂[↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 0), 0] repHiggs_Φ1 neg.h1 φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ !₂[↑‖φ.Φ1‖, 0] =
!₂[↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 0), 0]neg.h1 φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ !₂[↑‖φ.Φ1‖, 0] =
!₂[↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 0), 0]]neg.h1 φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ !₂[↑‖φ.Φ1‖, 0] =
!₂[↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 0), 0]
ext i neg.h1 φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]i:Fin 2⊢ !₂[↑‖φ.Φ1‖, 0].ofLp i =
!₂[↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 0),
0].ofLp
i
fin_cases i neg.h1.«_@».3536537121._hygCtx._hyg.33.«0» φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ !₂[↑‖φ.Φ1‖, 0].ofLp ((fun i => i) ⟨0, ⋯⟩) =
!₂[↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 0),
0].ofLp
((fun i => i) ⟨0, ⋯⟩)neg.h1.«_@».3536537121._hygCtx._hyg.33.«1» φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ !₂[↑‖φ.Φ1‖, 0].ofLp ((fun i => i) ⟨1, ⋯⟩) =
!₂[↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 0),
0].ofLp
((fun i => i) ⟨1, ⋯⟩) <;> neg.h1.«_@».3536537121._hygCtx._hyg.33.«0» φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ !₂[↑‖φ.Φ1‖, 0].ofLp ((fun i => i) ⟨0, ⋯⟩) =
!₂[↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 0),
0].ofLp
((fun i => i) ⟨0, ⋯⟩)neg.h1.«_@».3536537121._hygCtx._hyg.33.«1» φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ !₂[↑‖φ.Φ1‖, 0].ofLp ((fun i => i) ⟨1, ⋯⟩) =
!₂[↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 0),
0].ofLp
((fun i => i) ⟨1, ⋯⟩) simp All goals completed! 🐙
· neg.h2 φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ (g • φ).Φ2 =
(repHiggs ![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖]).Φ2 rw [gaugeGroupI_smul_snd, neg.h2 φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ g • φ.Φ2 =
(repHiggs ![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖]).Φ2 neg.h2 φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖] =
!₂[↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 1) +
Complex.I *
↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 2),
↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 3)] h2, neg.h2 φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖] =
(repHiggs ![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖]).Φ2neg.h2 φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖] =
!₂[↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 1) +
Complex.I *
↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 2),
↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 3)] repHiggs_Φ2 neg.h2 φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖] =
!₂[↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 1) +
Complex.I *
↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 2),
↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 3)]neg.h2 φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖] =
!₂[↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 1) +
Complex.I *
↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 2),
↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 3)]]neg.h2 φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖] =
!₂[↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 1) +
Complex.I *
↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 2),
↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 3)]
ext i neg.h2 φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]i:Fin 2⊢ !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖].ofLp i =
!₂[↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 1) +
Complex.I *
↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 2),
↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖]
3)].ofLp
i
fin_cases i neg.h2.«_@».3536537121._hygCtx._hyg.33.«0» φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖].ofLp ((fun i => i) ⟨0, ⋯⟩) =
!₂[↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 1) +
Complex.I *
↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 2),
↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖]
3)].ofLp
((fun i => i) ⟨0, ⋯⟩)neg.h2.«_@».3536537121._hygCtx._hyg.33.«1» φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖].ofLp ((fun i => i) ⟨1, ⋯⟩) =
!₂[↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 1) +
Complex.I *
↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 2),
↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖]
3)].ofLp
((fun i => i) ⟨1, ⋯⟩)
· neg.h2.«_@».3536537121._hygCtx._hyg.33.«0» φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖].ofLp ((fun i => i) ⟨0, ⋯⟩) =
!₂[↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 1) +
Complex.I *
↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 2),
↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖]
3)].ofLp
((fun i => i) ⟨0, ⋯⟩) show ⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖ =
↑(⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re + Complex.I * ↑(⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im neg.h2.«_@».3536537121._hygCtx._hyg.33.«0» φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ ⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖ = ↑(⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re + Complex.I * ↑(⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im
rw [mul_comm Complex.I, neg.h2.«_@».3536537121._hygCtx._hyg.33.«0» φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ ⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖ = ↑(⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re + ↑(⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im * Complex.I All goals completed! 🐙 Complex.re_add_im neg.h2.«_@».3536537121._hygCtx._hyg.33.«0» φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ ⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖ = ⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖ All goals completed! 🐙] All goals completed! 🐙
· neg.h2.«_@».3536537121._hygCtx._hyg.33.«1» φ:TwoHiggsDoubleth:¬φ.Φ1 = 0g:GaugeGroupIh1:g • φ.Φ1 = !₂[↑‖φ.Φ1‖, 0]h2:g • φ.Φ2 = !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖]⊢ !₂[⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖, ↑√φ.gramMatrix.det.re / ↑‖φ.Φ1‖].ofLp ((fun i => i) ⟨1, ⋯⟩) =
!₂[↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 1) +
Complex.I *
↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖] 2),
↑(![‖φ.Φ1‖, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).re, (⟪φ.Φ1, φ.Φ2⟫_ℂ / ↑‖φ.Φ1‖).im, √φ.gramMatrix.det.re / ‖φ.Φ1‖]
3)].ofLp
((fun i => i) ⟨1, ⋯⟩) simp [Complex.ofReal_div] All goals completed! 🐙