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

refactor: Minor golfing

Browse source
This commit is contained in:
jstoobysmith 2024-07-02 10:40:35 -04:00
parent 304c3542b5
commit a4afeba3cd
3 changed files with 11 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -89,7 +89,6 @@ lemma mem_iff_self_mul_dual : Λ ∈ LorentzGroup d ↔ Λ * dual Λ = 1 := by
rw [mem_iff_dual_mul_self]
exact mul_eq_one_comm
lemma mem_iff_transpose : Λ ∈ LorentzGroup d ↔ Λᵀ ∈ LorentzGroup d := by
apply Iff.intro
· intro h
@ -236,7 +235,6 @@ lemma toGL_embedding : Embedding (@toGL d).toFun where
rw [isOpen_induced_iff, isOpen_induced_iff]
exact exists_exists_and_eq_and
instance : TopologicalGroup (LorentzGroup d) :=
Inducing.topologicalGroup toGL toGL_embedding.toInducing
@ -276,9 +274,5 @@ lemma timeComp_mul (Λ Λ' : LorentzGroup d) : timeComp (Λ * Λ') =
erw [Pi.basisFun_apply, mulVec_stdBasis]
simp
end
end LorentzGroup