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

feat: Add example for complex lorentz

Browse source
This commit is contained in:
jstoobysmith 2024-10-21 14:05:54 +00:00
parent 1354c14cc8
commit 6c359a3737
2 changed files with 46 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
HepLean/Tensors/Tree/NodeIdentities/ContrSwap.lean
View file

@ -113,7 +113,8 @@ lemma contrMap_swap : q.contrMap = q.swap.contrMap ≫ S.F.map q.contrSwapHom :=
· change _ = ((S.FDiscrete.map (Discrete.eqToHom _)) ≫ S.FDiscrete.map (Discrete.eqToHom _)).hom
( (x (q.swap.i.succAbove q.swap.j)))
rw [← S.FDiscrete.map_comp]
simp
simp only [Nat.succ_eq_add_one, mk_hom, Discrete.functor_obj_eq_as, Function.comp_apply,
eqToHom_trans]
have h1nn' {a b d: Fin n.succ.succ} (hbd : b = d) (h : c d = S.τ (S.τ (c a))):
(S.FDiscrete.map (Discrete.eqToHom (h))).hom (x d) =
(S.FDiscrete.map (eqToHom (by