DibyashanuPati/PhysLean
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge branch 'master' into SpaceTime/LorentzGroup

Browse source
This commit is contained in:
jstoobysmith 2024-05-22 09:19:20 -04:00
commit 7107ba8b80
16 changed files with 36 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

4
HepLean/SpaceTime/CliffordAlgebra.lean
View file

@ -11,8 +11,8 @@ This file defines the Gamma matrices.
## TODO
- Prove that the algebra generated by the gamma matrices is ismorphic to the
Clifford algebra assocaited with spacetime.
- Prove that the algebra generated by the gamma matrices is isomorphic to the
Clifford algebra associated with spacetime.
- Include relations for gamma matrices.
-/

12
HepLean/SpaceTime/LorentzGroup/Basic.lean
View file

@ -113,7 +113,7 @@ def lorentzGroup : Subgroup (GL (Fin 4) ℝ) where
instance : TopologicalGroup lorentzGroup :=
Subgroup.instTopologicalGroupSubtypeMem lorentzGroup
/-- The lift of a matrix perserving `ηLin` to a Lorentz Group element. -/
/-- The lift of a matrix preserving `ηLin` to a Lorentz Group element. -/
def PreservesηLin.liftLor {Λ : Matrix (Fin 4) (Fin 4) ℝ} (h : PreservesηLin Λ) :
lorentzGroup := ⟨liftGL h, h⟩
@ -127,24 +127,24 @@ def transpose (Λ : lorentzGroup) : lorentzGroup :=
PreservesηLin.liftLor ((PreservesηLin.iff_transpose Λ.1).mp Λ.2)
/-- The continuous map from `GL (Fin 4) ℝ` to `Matrix (Fin 4) (Fin 4) ℝ` whose kernal is
/-- The continuous map from `GL (Fin 4) ℝ` to `Matrix (Fin 4) (Fin 4) ℝ` whose kernel is
the Lorentz group. -/
def kernalMap : C(GL (Fin 4) ℝ, Matrix (Fin 4) (Fin 4) ℝ) where
def kernelMap : C(GL (Fin 4) ℝ, Matrix (Fin 4) (Fin 4) ℝ) where
toFun Λ := η * Λ.1ᵀ * η * Λ.1
continuous_toFun := by
apply Continuous.mul _ Units.continuous_val
apply Continuous.mul _ continuous_const
exact Continuous.mul continuous_const (Continuous.matrix_transpose (Units.continuous_val))
lemma kernalMap_kernal_eq_lorentzGroup : lorentzGroup = kernalMap ⁻¹' {1} := by
lemma kernelMap_kernel_eq_lorentzGroup : lorentzGroup = kernelMap ⁻¹' {1} := by
ext Λ
erw [mem_iff Λ, PreservesηLin.iff_matrix]
rfl
/-- The Lorentz Group is a closed subset of `GL (Fin 4) ℝ`. -/
theorem isClosed_of_GL4 : IsClosed (lorentzGroup : Set (GL (Fin 4) ℝ)) := by
rw [kernalMap_kernal_eq_lorentzGroup]
exact continuous_iff_isClosed.mp kernalMap.2 {1} isClosed_singleton
rw [kernelMap_kernel_eq_lorentzGroup]
exact continuous_iff_isClosed.mp kernelMap.2 {1} isClosed_singleton
end lorentzGroup