-- Module: Mathlib.Geometry.RingedSpace.PresheafedSpace.HasColimits
Goal:
J : Type u'
inst : Category.{v', u'} J
C : Type u
inst_1 : Category.{v, u} C
inst_2 : HasColimitsOfShape.{v', u', v, v + 1} J TopCat
inst_3 : ∀ (X : TopCat.{v}), HasLimitsOfShape Jᵒᵖ (Presheaf C X)
inst_4 : HasLimitsOfShape.{v', u', v, u} Jᵒᵖ C
F : J ⥤ PresheafedSpace.{v, u, v} C
inst_5 : HasColimit F
U : Opens (↑(↑(Limits.colimit F) : TopCat) : Type v)
X Y : Jᵒᵖ
f : X ⟶ Y
naturality :
  Eq (α :=
    (F.obj (unop X)).presheaf.obj
        (obj (Functor.op (Opens.map (colimit.ι (F ⋙ forget C) (unop X))))
          (obj
            (Functor.op
              (Opens.map
                (Hom.base
                  (Iso.hom
                    (Iso.symm
                      (colimit.isoColimitCocone
                        { cocone := colimitCocone F, isColimit := colimitCoconeIsColimit F : ColimitCocone F }))))))
            (op U))) ⟶
      (F.obj (unop Y)).presheaf.obj (op (obj (Opens.map (Hom.base (colimit.ι F (unop Y)))) U)))
    ((F.map f.unop).c.app
        (obj (Functor.op (Opens.map (colimit.ι (F ⋙ forget C) (unop X))))
          (obj
            (Functor.op
              (Opens.map
                (Hom.base
                  (Iso.hom
                    (Iso.symm
                      (colimit.isoColimitCocone
                        { cocone := colimitCocone F, isColimit := colimitCoconeIsColimit F : ColimitCocone F }))))))
            (op U))) ≫
      (F.obj (unop Y)).presheaf.map
        (CategoryStruct.comp (Y :=
          obj (Functor.op (Opens.map (colimit.ι (F ⋙ forget C) (unop Y))))
            (obj
              (Functor.op
                (Opens.map
                  (Hom.base
                    (Iso.hom
                      (Iso.symm
                        (colimit.isoColimitCocone
                          { cocone := colimitCocone F, isColimit := colimitCoconeIsColimit F : ColimitCocone F }))))))
              (op U)))
          (NatTrans.app
              (Iso.hom
                (NatIso.op
                  (Iso.symm
                    (Opens.mapIso ((F ⋙ forget C).map f.unop ≫ colimit.ι (F ⋙ forget C) (unop X))
                      (colimit.ι (F ⋙ forget C) (unop Y)) ⋯))))
              (obj
                (Functor.op
                  (Opens.map
                    (Hom.base
                      (Iso.hom
                        (Iso.symm
                          (colimit.isoColimitCocone
                            { cocone := colimitCocone F, isColimit := colimitCoconeIsColimit F : ColimitCocone F }))))))
                (op U)) :
            obj (Functor.op (Opens.map ((F ⋙ forget C).map f.unop ≫ colimit.ι (F ⋙ forget C) (unop X))))
                (obj
                  (Functor.op
                    (Opens.map
                      (Hom.base
                        (Iso.hom
                          (Iso.symm
                            (colimit.isoColimitCocone
                              { cocone := colimitCocone F, isColimit := colimitCoconeIsColimit F :
                                ColimitCocone F }))))))
                  (op U)) ⟶
              obj (Functor.op (Opens.map (colimit.ι (F ⋙ forget C) (unop Y))))
                (obj
                  (Functor.op
                    (Opens.map
                      (Hom.base
                        (Iso.hom
                          (Iso.symm
                            (colimit.isoColimitCocone
                              { cocone := colimitCocone F, isColimit := colimitCoconeIsColimit F :
                                ColimitCocone F }))))))
                  (op U)))
          (Iso.hom (eqToIso ⋯) :
            Quiver.Hom (V := (Opens (↑(↑(F.obj (unop Y)) : TopCat) : Type v))ᵒᵖ)
              (obj (Functor.op (Opens.map (colimit.ι (F ⋙ forget C) (unop Y))))
                (obj
                  (Functor.op
                    (Opens.map
                      (Hom.base
                        (Iso.hom
                          (Iso.symm
                            (colimit.isoColimitCocone
                              { cocone := colimitCocone F, isColimit := colimitCoconeIsColimit F :
                                ColimitCocone F }))))))
                  (op U)))
              (op (obj (Opens.map (Hom.base (colimit.ι F (unop Y)))) U)))))
    ((F.map f.unop).c.app
        (obj (Functor.op (Opens.map (colimit.ι (F ⋙ forget C) (unop X))))
          (obj
            (Functor.op
              (Opens.map
                (Hom.base
                  (Iso.hom
                    (Iso.symm
                      (colimit.isoColimitCocone
                        { cocone := colimitCocone F, isColimit := colimitCoconeIsColimit F : ColimitCocone F }))))))
            (op U))) ≫
      (F.obj (unop Y)).presheaf.map ((Opens.map (F.map f.unop).base).op.map (Iso.hom (eqToIso ⋯)) ≫ eqToHom ⋯))
⊢ Eq (α :=
    (F.obj (unop X)).presheaf.obj
        (obj (Functor.op (Opens.map (colimit.ι (F ⋙ forget C) (unop X))))
          (obj
            (Functor.op
              (Opens.map
                (Hom.base
                  (Iso.hom
                    (Iso.symm
                      (colimit.isoColimitCocone
                        { cocone := colimitCocone F, isColimit := colimitCoconeIsColimit F : ColimitCocone F }))))))
            (op U))) ⟶
      (F.obj (unop Y)).presheaf.obj (op (obj (Opens.map (Hom.base (colimit.ι F (unop Y)))) U)))
    ((F.map f.unop).c.app
        (obj (Functor.op (Opens.map (colimit.ι (F ⋙ forget C) (unop X))))
          (obj
            (Functor.op
              (Opens.map
                (Hom.base
                  (Iso.hom
                    (Iso.symm
                      (colimit.isoColimitCocone
                        { cocone := colimitCocone F, isColimit := colimitCoconeIsColimit F : ColimitCocone F }))))))
            (op U))) ≫
      CategoryStruct.comp (Y :=
        (F.obj (unop Y)).presheaf.obj
          (obj (Functor.op (Opens.map (colimit.ι (F ⋙ forget C) (unop Y))))
            (obj
              (Functor.op
                (Opens.map
                  (Hom.base
                    (Iso.hom
                      (Iso.symm
                        (colimit.isoColimitCocone
                          { cocone := colimitCocone F, isColimit := colimitCoconeIsColimit F : ColimitCocone F }))))))
              (op U))))
        (NatTrans.app (Iso.hom (pushforwardEq ⋯ (F.obj (unop Y)).presheaf))
            (obj
              (Functor.op
                (Opens.map
                  (Hom.base
                    (Iso.hom
                      (Iso.symm
                        (colimit.isoColimitCocone
                          { cocone := colimitCocone F, isColimit := colimitCoconeIsColimit F : ColimitCocone F }))))))
              (op U)) :
          obj
              (obj (pushforward C ((F ⋙ forget C).map f.unop ≫ colimit.ι (F ⋙ forget C) (unop X)))
                (F.obj (unop Y)).presheaf)
              (obj
                (Functor.op
                  (Opens.map
                    (Hom.base
                      (Iso.hom
                        (Iso.symm
                          (colimit.isoColimitCocone
                            { cocone := colimitCocone F, isColimit := colimitCoconeIsColimit F : ColimitCocone F }))))))
                (op U)) ⟶
            obj (obj (pushforward C (colimit.ι (F ⋙ forget C) (unop Y))) (F.obj (unop Y)).presheaf)
              (obj
                (Functor.op
                  (Opens.map
                    (Hom.base
                      (Iso.hom
                        (Iso.symm
                          (colimit.isoColimitCocone
                            { cocone := colimitCocone F, isColimit := colimitCoconeIsColimit F : ColimitCocone F }))))))
                (op U)))
        ((F.obj (unop Y)).presheaf.map (Iso.hom (eqToIso ⋯)) :
          (F.obj (unop Y)).presheaf.obj
              (obj (Functor.op (Opens.map (colimit.ι (F ⋙ forget C) (unop Y))))
                (obj
                  (Functor.op
                    (Opens.map
                      (Hom.base
                        (Iso.hom
                          (Iso.symm
                            (colimit.isoColimitCocone
                              { cocone := colimitCocone F, isColimit := colimitCoconeIsColimit F :
                                ColimitCocone F }))))))
                  (op U))) ⟶
            (F.obj (unop Y)).presheaf.obj (op (obj (Opens.map (Hom.base (colimit.ι F (unop Y)))) U))))
    (Iso.hom (mapIso (F.obj (unop X)).presheaf (eqToIso ⋯)) ≫ (componentwiseDiagram F U).map f)

Tactic:
erw [← (F.obj (unop Y)).presheaf.map_comp, (F.map f.unop).c.naturality_assoc,
      ← (F.obj (unop Y)).presheaf.map_comp]

Premises used: Quiver.Hom.unop, CategoryTheory.Functor.map, AlgebraicGeometry.PresheafedSpace.presheaf, AlgebraicGeometry.PresheafedSpace.Hom.c, CategoryTheory.Functor.map_comp, Opposite.unop, CategoryTheory.Functor.obj, CategoryTheory.NatTrans.naturality_assoc