Merge pull request #92 from HEPLean/Update-versions

refactor: Basic lint

HepLean/AnomalyCancellation/Basic.lean

@@ -187,8 +187,7 @@ instance quadSolsMulAction (χ : ACCSystemQuad) : MulAction ℚ χ.QuadSols wher
     intro i
     erw [(χ.quadraticACCs i).map_smul]
     rw [S.quadSol i]
-    simp only [mul_zero]
-    ⟩
+    simp only [mul_zero]⟩
   mul_smul a b S := by
     apply QuadSols.ext
     exact mul_smul _ _ _

HepLean/AnomalyCancellation/GroupActions.lean

@@ -44,8 +44,7 @@ def linSolMap {χ : ACCSystem} (G : ACCSystemGroupAction χ) (g : G.group) :
     χ.LinSols →ₗ[ℚ] χ.LinSols where
   toFun S := ⟨G.rep g S.val, by
    intro i
-   rw [G.linearInvariant, S.linearSol]
-   ⟩
+   rw [G.linearInvariant, S.linearSol]⟩
   map_add' S T := by
     apply ACCSystemLinear.LinSols.ext
     exact (G.rep g).map_add' _ _
@@ -85,8 +84,7 @@ instance quadSolAction {χ : ACCSystem} (G : ACCSystemGroupAction χ) :
   smul f S := ⟨G.linSolRep f S.1, by
    intro i
    simp only [linSolRep_apply_apply_val]
-   rw [G.quadInvariant, S.quadSol]
-  ⟩
+   rw [G.quadInvariant, S.quadSol]⟩
   mul_smul f1 f2 S := by
     apply ACCSystemQuad.QuadSols.ext
     change (G.rep.toFun (f1 * f2)) S.val = _

HepLean/AnomalyCancellation/MSSMNu/Basic.lean

@@ -473,8 +473,7 @@ def AnomalyFreeMk (S : MSSMACC.Charges) (hg : accGrav S = 0)
     intro i
     simp at i
     match i with
-    | 0 => exact hquad
-    ⟩ , by exact hcube ⟩
+    | 0 => exact hquad⟩, hcube⟩
 
 lemma AnomalyFreeMk_val (S : MSSMACC.Charges) (hg : accGrav S = 0)
     (hsu2 : accSU2 S = 0) (hsu3 : accSU3 S = 0) (hyy : accYY S = 0)
@@ -490,8 +489,7 @@ def AnomalyFreeQuadMk' (S : MSSMACC.LinSols) (hquad : accQuad S.val = 0) :
     intro i
     simp at i
     match i with
-    | 0 => exact hquad
-    ⟩
+    | 0 => exact hquad⟩
 
 /-- A `Sol` from a `LinSol` satisfying the quadratic and cubic ACCs. -/
 @[simp]
@@ -501,13 +499,12 @@ def AnomalyFreeMk' (S : MSSMACC.LinSols) (hquad : accQuad S.val = 0)
     intro i
     simp at i
     match i with
-    | 0 => exact hquad
-    ⟩ , by exact hcube ⟩
+    | 0 => exact hquad⟩, hcube⟩
 
 /-- A `Sol` from a `QuadSol` satisfying the cubic ACCs. -/
 @[simp]
 def AnomalyFreeMk'' (S : MSSMACC.QuadSols) (hcube : accCube S.val = 0) : MSSMACC.Sols :=
-  ⟨S , by exact hcube ⟩
+  ⟨S, hcube⟩
 
 lemma AnomalyFreeMk''_val (S : MSSMACC.QuadSols)
     (hcube : accCube S.val = 0) :

scripts/hepLean_style_lint.lean

@@ -84,7 +84,9 @@ def hepLeanLintFile (path : FilePath) : IO Bool := do
     (Array.map (fun (e, n, c) ↦ HepLeanErrorContext.mk e n c path)) (lint lines)))
     #[doubleEmptyLineLinter, doubleSpaceLinter, substringLinter ".-/", substringLinter " )",
     substringLinter "( ", substringLinter "=by", substringLinter "  def ",
-    substringLinter "/-- We "]
+    substringLinter "/-- We ", substringLinter "[ ", substringLinter " ]", substringLinter " ,"
+    , substringLinter "by exact ",
+     substringLinter "⟨ ", substringLinter " ⟩"]
   let errors := allOutput.flatten
   printErrors errors
   return errors.size > 0