refactor: Lint

HepLean/AnomalyCancellation/LinearMaps.lean

@@ -62,6 +62,8 @@ instance instFun (V : Type) [AddCommMonoid V] [Module ℚ V] :
     cases g
     simp_all
 
+/-- The construction of a symmetric bilinear map from smul and map_add in the first factor,
+and swap. -/
 @[simps!]
 def mk₂ (f : V × V → ℚ) (map_smul : ∀ a S T, f (a • S, T) = a * f (S, T))
     (map_add : ∀ S1 S2 T, f (S1 + S2, T) = f (S1, T) + f (S2, T))
@@ -70,12 +72,12 @@ def mk₂ (f : V × V → ℚ) (map_smul : ∀ a S T, f (a • S, T) = a * f (S,
     toFun := fun T => f (S, T)
     map_add' := by
       intro T1 T2
-      simp
+      simp only
       rw [swap, map_add]
       rw [swap T1 S, swap T2 S]
     map_smul' :=by
       intro a T
-      simp
+      simp only [eq_ratCast, Rat.cast_eq_id, id_eq, smul_eq_mul]
       rw [swap, map_smul]
       rw [swap T S]
   }
@@ -287,7 +289,7 @@ def toCubic {charges : Type} [AddCommMonoid charges] [Module ℚ charges]
     (τ : TriLinearSymm charges) : HomogeneousCubic charges where
   toFun S := τ (S, S, S)
   map_smul' a S := by
-    simp
+    simp only [smul_eq_mul]
     rw [τ.map_smul₁, τ.map_smul₂, τ.map_smul₃]
     ring
 

HepLean/AnomalyCancellation/MSSMNu/Basic.lean

@@ -270,11 +270,12 @@ lemma accYY_ext {S T : MSSMCharges.charges}
   rw [hd, hu]
   rfl
 
+/-- The symmetric bilinear function used to define the quadratic ACC. -/
 @[simps!]
 def quadBiLin  : BiLinearSymm MSSMCharges.charges := BiLinearSymm.mk₂ (
-  fun S => ∑ i, (Q S.1 i *  Q S.2 i + (- 2) * (U S.1 i *  U S.2 i) +
-    D S.1 i *  D S.2 i + (- 1) * (L S.1 i * L S.2 i)  + E S.1 i * E S.2 i) +
-    (- Hd S.1 * Hd S.2 + Hu S.1 * Hu S.2))
+  fun (S, T) => ∑ i, (Q S i *  Q T i + (- 2) * (U S i *  U T i) +
+    D S i *  D T i + (- 1) * (L S i * L T i)  + E S i * E T i) +
+    (- Hd S * Hd T + Hu S * Hu T))
   (by
     intro a S T
     simp only

HepLean/AnomalyCancellation/MSSMNu/OrthogY3B3/PlaneWithY3B3.lean

@@ -146,10 +146,10 @@ def lineQuad (R : MSSMACC.AnomalyFreePerp) (c1 c2 c3 : ℚ) : MSSMACC.QuadSols :
   AnomalyFreeQuadMk' (lineQuadAFL R c1 c2 c3) (lineQuadAFL_quad R c1 c2 c3)
 
 lemma lineQuad_val (R : MSSMACC.AnomalyFreePerp) (c1 c2 c3 : ℚ) :
-  (lineQuad R c1 c2 c3).val = (planeY₃B₃ R
-  (c2 * quadBiLin R.val R.val - 2 * c3 * quadBiLin B₃.val R.val)
-  (2 * c3 * quadBiLin Y₃.val R.val - c1 * quadBiLin R.val R.val)
-  (2 * c1 * quadBiLin B₃.val R.val - 2 * c2 * quadBiLin Y₃.val R.val)).val  := by
+    (lineQuad R c1 c2 c3).val = (planeY₃B₃ R
+    (c2 * quadBiLin R.val R.val - 2 * c3 * quadBiLin B₃.val R.val)
+    (2 * c3 * quadBiLin Y₃.val R.val - c1 * quadBiLin R.val R.val)
+    (2 * c1 * quadBiLin B₃.val R.val - 2 * c2 * quadBiLin Y₃.val R.val)).val := by
   rfl
 
 lemma lineQuad_smul (R : MSSMACC.AnomalyFreePerp) (a b c d : ℚ) :