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

10
HepLean/SpaceTime/LorentzVector/Basic.lean
View file

@ -65,7 +65,7 @@ scoped[LorentzVector] notation "e" => stdBasis
lemma stdBasis_apply (μ ν : Fin 1 ⊕ Fin d) : e μ ν = if μ = ν then 1 else 0 := by
rw [stdBasis]
erw [Pi.basisFun_apply]
simp
exact LinearMap.stdBasis_apply' ℝ μ ν
/-- The standard unit time vector. -/
noncomputable abbrev timeVec : (LorentzVector d) := e (Sum.inl 0)
@ -91,16 +91,14 @@ def spaceReflectionLin : LorentzVector d →ₗ[ℝ] LorentzVector d where
map_add' x y := by
funext i
rcases i with i | i
· simp only [Sum.elim_inl]
apply Eq.refl
· rfl
· simp only [Sum.elim_inr, Pi.neg_apply]
apply neg_add
map_smul' c x := by
funext i
rcases i with i | i
· simp only [Sum.elim_inl, Pi.smul_apply]
apply smul_eq_mul
· simp [ HSMul.hSMul, SMul.smul]
· rfl
· simp [HSMul.hSMul, SMul.smul]
/-- The reflection of space. -/
@[simp]