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

refactor: More simps

Browse source
This commit is contained in:
jstoobysmith 2024-10-12 08:16:24 +00:00
parent 1651b265e7
commit 4a396783ab
17 changed files with 138 additions and 87 deletions
Download patch file Download diff file Expand all files Collapse all files

6
HepLean/AnomalyCancellation/MSSMNu/B3.lean
View file

@ -70,10 +70,12 @@ lemma doublePoint_B₃_B₃ (R : MSSMACC.LinSols) : cubeTriLin B₃.val B₃.val
simp only [mul_one, Fin.isValue, toSMSpecies_apply, one_mul, mul_neg, neg_neg, neg_mul, Hd_apply,
Fin.reduceFinMk, Hu_apply]
have hLin := R.linearSol
simp at hLin
simp only [MSSMACC_numberLinear, MSSMACC_linearACCs, Nat.reduceMul, Fin.isValue,
Fin.reduceFinMk] at hLin
have h0 := hLin 0
have h2 := hLin 2
simp [Fin.sum_univ_three] at h0 h2
simp only [Fin.isValue, Fin.sum_univ_three, Prod.mk_zero_zero, Prod.mk_one_one, LinearMap.coe_mk,
AddHom.coe_mk] at h0 h2
linear_combination (norm := ring_nf) 9 * (h0) - 24 * (h2)
simp only [Fin.isValue, Prod.mk_zero_zero, Prod.mk_one_one, add_add_sub_cancel, add_neg_cancel]