chore: bump to v4.9

HepLean/AnomalyCancellation/MSSMNu/Basic.lean

@@ -538,7 +538,6 @@ def dot  : BiLinearSymm MSSMCharges.Charges := BiLinearSymm.mk₂
     intro S1 S2 T
     simp only [MSSMSpecies_numberCharges, toSMSpecies_apply, Fin.isValue,
       ACCSystemCharges.chargesAddCommMonoid_add, map_add, Hd_apply, Fin.reduceFinMk, Hu_apply]
-    repeat erw [AddHom.map_add]
     rw [Fin.sum_univ_three, Fin.sum_univ_three, Fin.sum_univ_three]
     simp only [Fin.isValue]
     ring)

HepLean/AnomalyCancellation/MSSMNu/OrthogY3B3/PlaneWithY3B3.lean

@@ -152,7 +152,6 @@ lemma lineQuad_smul (R : MSSMACC.AnomalyFreePerp) (a b c d : ℚ) :
   change _ = (d • planeY₃B₃ R _ _ _).val
   rw [← planeY₃B₃_smul]
   rw [lineQuad_val]
-  congr 2
   ring_nf
 
 /-- A helper function to simplify following expressions. -/
@@ -193,7 +192,6 @@ lemma lineCube_smul (R : MSSMACC.AnomalyFreePerp) (a b c d : ℚ) :
   change _ = (d • planeY₃B₃ R _ _ _).val
   rw [← planeY₃B₃_smul]
   change (planeY₃B₃ R _ _ _).val = (planeY₃B₃ R _ _ _).val
-  congr 2
   ring_nf
 
 lemma lineCube_cube (R : MSSMACC.AnomalyFreePerp) (a₁ a₂ a₃ : ℚ) :
@@ -210,7 +208,6 @@ lemma lineCube_quad (R : MSSMACC.AnomalyFreePerp) (a₁ a₂ a₃ : ℚ) :
   rw [α₁, α₂, α₃]
   ring
 
-
 section proj
 
 lemma α₃_proj  (T : MSSMACC.Sols) : α₃ (proj T.1.1) =

HepLean/AnomalyCancellation/SM/NoGrav/One/LinearParameterization.lean

@@ -121,13 +121,11 @@ def bijection : linearParameters ≃ (SMNoGrav 1).LinSols where
   left_inv S := by
     apply linearParameters.ext
     rfl
-    repeat erw [speciesVal]
     simp only [Fin.isValue]
     repeat erw [speciesVal]
     simp only [asCharges, neg_add_rev]
     ring
     simp only [toSpecies_apply]
-    repeat erw [speciesVal]
     rfl
   right_inv S := by
     simp only [Fin.isValue, toSpecies_apply]
@@ -257,7 +255,6 @@ def bijectionLinearParameters :
     field_simp
     ring_nf
     field_simp [hQ, hE]
-    ring_nf
     field_simp
     ring_nf
     field_simp [hQ, hE]