-- Module: Mathlib.CategoryTheory.Sites.LeftExact
Goal:
C : Type u
inst : Category.{v, u} C
J : GrothendieckTopology.{v, u} C
D : Type w
inst_1 : Category.{t, w} D
inst_2 : ∀ (P : Functor.{v, t, u, w} Cᵒᵖ D) (X : C) (S : J.Cover X), HasMultiequalizer (S.index P)
inst_3 : ∀ (X : C), HasColimitsOfShape (J.Cover X)ᵒᵖ D
FD : D → D → Type u_1
CD : D → Type t
inst_4 : (X Y : D) → FunLike.{u_1 + 1, t + 1, t + 1} (FD X Y) (CD X) (CD Y)
inst_5 : ConcreteCategory D FD (CC := CD)
inst_6 : ∀ (X : C), PreservesColimitsOfShape (J.Cover X)ᵒᵖ (forget D (FC := FD) (CC := CD))
inst_7 : ∀ (X : C), Small.{t, max u v} (J.Cover X)ᵒᵖ
K : Type s
inst_8 : SmallCategory K
inst_9 : FinCategory K
inst_10 : HasLimitsOfShape.{s, s, t, w} K D
inst_11 : PreservesLimitsOfShape K (forget D (FC := FD) (CC := CD))
inst_12 : ReflectsLimitsOfShape K (forget D (FC := FD) (CC := CD))
F : K ⥤ Functor.{v, t, u, w} Cᵒᵖ D
X : C
S : Cone (F ⋙ J.plusFunctor D ⋙ Functor.obj (evaluation Cᵒᵖ D) (op X))
k : K
e_a :
  Eq (α := (J.plusObj (limit F)).obj (op X) ⟶ (J.plusObj (F.obj k)).obj (op X))
    (NatTrans.app (J.plusMap (limit.π F k)) (op X))
    (CategoryStruct.comp (Y := colimit (limit (F ⋙ J.diagramFunctor D X)))
      (Iso.hom
          (HasColimit.isoOfNatIso
            (IsLimit.conePointUniqueUpToIso (isLimitOfPreserves (J.diagramFunctor D X) (limit.isLimit F))
              (limit.isLimit (F ⋙ J.diagramFunctor D X)))) :
        (J.plusObj (limit F)).obj (op X) ⟶ colimit (limit (F ⋙ J.diagramFunctor D X)))
      (CategoryStruct.comp (Y := limit (colimit (F ⋙ J.diagramFunctor D X).flip))
          (Iso.hom (colimitLimitIso (F ⋙ J.diagramFunctor D X)) :
            colimit (limit (F ⋙ J.diagramFunctor D X)) ⟶ limit (colimit (F ⋙ J.diagramFunctor D X).flip))
          (CategoryStruct.comp (Y := limit (F ⋙ J.plusFunctor D ⋙ Functor.obj (evaluation Cᵒᵖ D) (op X)))
              (Iso.inv
                (HasLimit.isoOfNatIso
                  (Iso.symm
                    (NatIso.ofComponents
                      (fun (k : K) ↦ colimitObjIsoColimitCompEvaluation (F ⋙ J.diagramFunctor D X).flip k) ⋯))))
              (limit.π (F ⋙ J.plusFunctor D ⋙ Functor.obj (evaluation Cᵒᵖ D) (op X)) k) :
            limit (colimit (F ⋙ J.diagramFunctor D X).flip) ⟶ (J.plusObj (F.obj k)).obj (op X)) :
        colimit (limit (F ⋙ J.diagramFunctor D X)) ⟶ (J.plusObj (F.obj k)).obj (op X)))
⊢ Eq (α := limit (F ⋙ J.plusFunctor D ⋙ Functor.obj (evaluation Cᵒᵖ D) (op X)) ⟶ (J.plusObj (F.obj k)).obj (op X))
    (CategoryStruct.comp (Y := (J.plusObj (limit F)).obj (op X))
      (CategoryStruct.comp (Y := limit (colimit (F ⋙ J.diagramFunctor D X).flip))
        (Iso.hom
            (HasLimit.isoOfNatIso
              (Iso.symm
                (NatIso.ofComponents
                  (fun (k : K) ↦ colimitObjIsoColimitCompEvaluation (F ⋙ J.diagramFunctor D X).flip k) ⋯))) :
          limit (F ⋙ J.plusFunctor D ⋙ Functor.obj (evaluation Cᵒᵖ D) (op X)) ⟶
            limit (colimit (F ⋙ J.diagramFunctor D X).flip))
        (CategoryStruct.comp (Y := colimit (limit (F ⋙ J.diagramFunctor D X)))
            (Iso.inv (colimitLimitIso (F ⋙ J.diagramFunctor D X)) :
              limit (colimit (F ⋙ J.diagramFunctor D X).flip) ⟶ colimit (limit (F ⋙ J.diagramFunctor D X)))
            (Iso.inv
                (HasColimit.isoOfNatIso
                  (IsLimit.conePointUniqueUpToIso (isLimitOfPreserves (J.diagramFunctor D X) (limit.isLimit F))
                    (limit.isLimit (F ⋙ J.diagramFunctor D X)))) :
              colimit (limit (F ⋙ J.diagramFunctor D X)) ⟶ (J.plusObj (limit F)).obj (op X)) :
          limit (colimit (F ⋙ J.diagramFunctor D X).flip) ⟶ (J.plusObj (limit F)).obj (op X)))
      (NatTrans.app (J.plusMap (limit.π F k)) (op X)))
    (limit.π (F ⋙ J.plusFunctor D ⋙ Functor.obj (evaluation Cᵒᵖ D) (op X)) k)

Tactic:
rw [Category.assoc, Category.assoc, ← Iso.eq_inv_comp, Iso.inv_comp_eq, Iso.inv_comp_eq]

Premises used: CategoryTheory.Category.assoc, CategoryTheory.Iso.inv_comp_eq, CategoryTheory.Iso.eq_inv_comp