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

feat: addition elab and node identities

Browse source
This commit is contained in:
jstoobysmith 2024-10-22 11:49:58 +00:00
parent ecb2c7778c
commit 6fbace33da
5 changed files with 165 additions and 70 deletions
Download patch file Download diff file Expand all files Collapse all files

6
HepLean/AnomalyCancellation/SMNu/PlusU1/HyperCharge.lean
View file

@ -95,7 +95,8 @@ lemma on_cubeTriLin (S : (PlusU1 n).Charges) :
lemma on_cubeTriLin_AFL (S : (PlusU1 n).LinSols) :
cubeTriLin (Y n).val (Y n).val S.val = 0 := by
rw [on_cubeTriLin, YYsol S]; simp
rw [on_cubeTriLin, YYsol S]
rfl
lemma on_cubeTriLin' (S : (PlusU1 n).Charges) :
cubeTriLin (Y n).val S S = 6 * accQuad S := by
@ -107,7 +108,8 @@ lemma on_cubeTriLin' (S : (PlusU1 n).Charges) :
lemma on_cubeTriLin'_ALQ (S : (PlusU1 n).QuadSols) :
cubeTriLin (Y n).val S.val S.val = 0 := by
rw [on_cubeTriLin', quadSol S]; simp
rw [on_cubeTriLin', quadSol S]
rfl
lemma add_AFL_cube (S : (PlusU1 n).LinSols) (a b : ℚ) :
accCube (a • S.val + b • (Y n).val) =