refactor: Linting

HepLean/Tensors/Tree/NodeIdentities/Basic.lean

@@ -121,7 +121,7 @@ lemma perm_eq_iff_eq_perm {n m : ℕ} {c : Fin n → S.C} {c1 : Fin m → S.C}
     (perm σ t).tensor = t2.tensor ↔ t.tensor =
     (perm (equivToHomEq (Hom.toEquiv σ).symm (fun x => Hom.toEquiv_comp_apply σ x)) t2).tensor := by
   refine Iff.intro (fun h => ?_) (fun h => ?_)
-  · simp [perm_tensor, ← h]
+  · simp only [mk_hom, perm_tensor, ← h]
     change _ = (S.F.map _ ≫ S.F.map _).hom _
     rw [← S.F.map_comp]
     have h1 : (σ ≫ equivToHomEq (Hom.toEquiv σ).symm

HepLean/Tensors/Tree/NodeIdentities/ContrContr.lean

@@ -281,6 +281,9 @@ lemma contr_contr (t : TensorTree S c) :
 end
 end ContrQuartet
 
+/-- The homomorphism one must apply on swapping the order of contractions.
+  This is identical to `ContrQuartet.contrSwapHom` except manifestly between the correct
+  types. -/
 def contrContrPerm {n : ℕ} {c : Fin n.succ.succ.succ.succ → S.C} {i : Fin n.succ.succ.succ.succ}
     {j : Fin n.succ.succ.succ} {k : Fin n.succ.succ} {l : Fin n.succ}
     (hij : c (i.succAbove j) = S.τ (c i)) (hkl : (c ∘ i.succAbove ∘ j.succAbove) (k.succAbove l) =