-- Lean 4 proof step from Mathlib.AlgebraicGeometry.AffineTransitionLimit (goal)
Goal:
I : Type u
inst : Category.{u, u} I
D : I ⥤ Scheme
c : Cone D
hc : IsLimit c
inst_1 : IsCofiltered I
inst_2 : ∀ {i j : I} (f : i ⟶ j), IsAffineHom (D.map f)
s : (↑Γ(c.pt, ⊤) : Type u)
inst_3 : ∀ (i : I), CompactSpace.{u} ↥(D.obj i)
inst_4 : ∀ (i : I), QuasiSeparatedSpace.{u} ↥(D.obj i)
this_1 : CompactSpace.{u} ↥c.pt
i : (x : ↥c.pt) → I
U : (x : ↥c.pt) → (D.obj (i x)).Opens
hU : ∀ (x : ↥c.pt), IsAffineOpen (U x)
hxU : ∀ (x : ↥c.pt), Membership.mem (α := ↥(D.obj (i x))) (U x) ((c.π.app (i x)) x : ↥(D.obj (i x)))
t : (x : ↥c.pt) → (↑Γ(D.obj (i x), U x) : Type u)
ht :
  ∀ (x : ↥c.pt),
    Eq (α := (↑Γ(c.pt, c.π.app (i x) ⁻¹ᵁ U x) : Type u))
      ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
              CommRingCat.carrier) (Y := Γ(c.pt, c.π.app (i x) ⁻¹ᵁ U x)) (Scheme.Hom.app (c.π.app (i x)) (U x)) :
            (a : (↑Γ(D.obj (i x), U x) : Type u)) → (↑Γ(c.pt, c.π.app (i x) ⁻¹ᵁ U x) : Type u))
          (t x) :
        (↑Γ(c.pt, c.π.app (i x) ⁻¹ᵁ U x) : Type u))
      (TopCat.Presheaf.restrictOpen (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
          CommRingCat.carrier) s (c.π.app (i x) ⁻¹ᵁ U x) ⋯ :
        ToType (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC := CommRingCat.carrier)
          (c.pt.presheaf.obj (Opposite.op (c.π.app (i x) ⁻¹ᵁ U x))))
j : (x y : ↥c.pt) → I
fjx : (x y : ↥c.pt) → j x y ⟶ i x
fjy : (x y : ↥c.pt) → j x y ⟶ i y
hj :
  ∀ (x y : ↥c.pt),
    Eq (α :=
      ToType (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC := CommRingCat.carrier)
        ((D.obj (j x y)).presheaf.obj (Opposite.op (D.map (fjx x y) ⁻¹ᵁ U x ⊓ D.map (fjy x y) ⁻¹ᵁ U y))))
      (TopCat.Presheaf.restrictOpen (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
        CommRingCat.carrier)
        ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
              CommRingCat.carrier) (X := Γ(D.obj (i x), U x)) (Scheme.Hom.app (D.map (fjx x y)) (U x)) :
            (a : (↑Γ(D.obj (i x), U x) : Type u)) → (↑Γ(D.obj (j x y), D.map (fjx x y) ⁻¹ᵁ U x) : Type u))
          (t x))
        (D.map (fjx x y) ⁻¹ᵁ U x ⊓ D.map (fjy x y) ⁻¹ᵁ U y) ⋯)
      (TopCat.Presheaf.restrictOpen (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
        CommRingCat.carrier)
        ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
              CommRingCat.carrier) (X := Γ(D.obj (i y), U y)) (Scheme.Hom.app (D.map (fjy x y)) (U y)) :
            (a : (↑Γ(D.obj (i y), U y) : Type u)) → (↑Γ(D.obj (j x y), D.map (fjy x y) ⁻¹ᵁ U y) : Type u))
          (t y))
        (D.map (fjx x y) ⁻¹ᵁ U x ⊓ D.map (fjy x y) ⁻¹ᵁ U y) ⋯)
σ : Finset ↥c.pt
hσ : Eq.{u + 1} (α := Set ↥c.pt) (⋃ x ∈ σ, (c.π.app (i x) ⁻¹ᵁ U x).carrier) ⊤
σi : (x : ↥c.pt) → ↥c.pt
hσiσ : ∀ (x : ↥c.pt), σi x ∈ σ
hσi :
  ∀ (x : ↥c.pt),
    Membership.mem (γ := Set ↥c.pt)
      (TopologicalSpace.Opens.carrier (c.π.app (i (σi x)) ⁻¹ᵁ U (σi x)) :
        Set ↥(Functor.obj (Functor.obj (Functor.const I) c.pt) (i (σi x))))
      x
S : Finset I := Finset.image i σ ∪ Finset.image₂ j σ σ
hiS : ∀ {x : ↥c.pt} (hx : x ∈ σ), i x ∈ S
hjS : ∀ {x y : ↥c.pt} (hx : x ∈ σ) (hy : y ∈ σ), j x y ∈ S
k : I
fk : {X : I} → X ∈ S → (k ⟶ X)
hk :
  ∀ {X Y : I} (mX : X ∈ S) (mY : Y ∈ S) {f : X ⟶ Y},
    Membership.mem (γ := Finset ((X : I) ×' (Y : I) ×' (_ : X ∈ S) ×' (_ : Y ∈ S) ×' (X ⟶ Y)))
        (Finset.image₂
            (fun (x y : ↥σ) ↦
              PSigma.mk (β := fun (X : I) ↦ (Y : I) ×' (_ : X ∈ S) ×' (_ : Y ∈ S) ×' (X ⟶ Y))
                (j (↑x : ↥c.pt) (↑y : ↥c.pt))
                (PSigma.mk (β := fun (Y : I) ↦
                  (_ : j (↑x : ↥c.pt) (↑y : ↥c.pt) ∈ S) ×' (_ : Y ∈ S) ×' (j (↑x : ↥c.pt) (↑y : ↥c.pt) ⟶ Y))
                  (i (↑x : ↥c.pt))
                  (PSigma.mk (β := fun (x_1 : j (↑x : ↥c.pt) (↑y : ↥c.pt) ∈ S) ↦
                    (_ : i (↑x : ↥c.pt) ∈ S) ×' (j (↑x : ↥c.pt) (↑y : ↥c.pt) ⟶ i (↑x : ↥c.pt))) ⋯
                    (PSigma.mk (β := fun (x_1 : i (↑x : ↥c.pt) ∈ S) ↦ j (↑x : ↥c.pt) (↑y : ↥c.pt) ⟶ i (↑x : ↥c.pt)) ⋯
                      (fjx (↑x : ↥c.pt) (↑y : ↥c.pt))))))
            σ.attach σ.attach ∪
          Finset.image₂
            (fun (x y : ↥σ) ↦
              PSigma.mk (β := fun (X : I) ↦ (Y : I) ×' (_ : X ∈ S) ×' (_ : Y ∈ S) ×' (X ⟶ Y))
                (j (↑x : ↥c.pt) (↑y : ↥c.pt))
                (PSigma.mk (β := fun (Y : I) ↦
                  (_ : j (↑x : ↥c.pt) (↑y : ↥c.pt) ∈ S) ×' (_ : Y ∈ S) ×' (j (↑x : ↥c.pt) (↑y : ↥c.pt) ⟶ Y))
                  (i (↑y : ↥c.pt))
                  (PSigma.mk (β := fun (x_1 : j (↑x : ↥c.pt) (↑y : ↥c.pt) ∈ S) ↦
                    (_ : i (↑y : ↥c.pt) ∈ S) ×' (j (↑x : ↥c.pt) (↑y : ↥c.pt) ⟶ i (↑y : ↥c.pt))) ⋯
                    (PSigma.mk (β := fun (x_1 : i (↑y : ↥c.pt) ∈ S) ↦ j (↑x : ↥c.pt) (↑y : ↥c.pt) ⟶ i (↑y : ↥c.pt)) ⋯
                      (fjy (↑x : ↥c.pt) (↑y : ↥c.pt))))))
            σ.attach σ.attach)
        (PSigma.mk (β := fun (X : I) ↦ (Y : I) ×' (_ : X ∈ S) ×' (_ : Y ∈ S) ×' (X ⟶ Y)) X
          (PSigma.mk (β := fun (Y : I) ↦ (_ : X ∈ S) ×' (_ : Y ∈ S) ×' (X ⟶ Y)) Y
            (PSigma.mk (β := fun (x : X ∈ S) ↦ (_ : Y ∈ S) ×' (X ⟶ Y)) mX
              (PSigma.mk (β := fun (x : Y ∈ S) ↦ X ⟶ Y) mY f)))) →
      fk mX ≫ f = fk mY
hk₁ : ∀ {x y : ↥c.pt} (hx : x ∈ σ) (hy : y ∈ σ), fk ⋯ ≫ fjx x y = fk ⋯
hk₂ : ∀ {x y : ↥c.pt} (hx : x ∈ σ) (hy : y ∈ σ), fk ⋯ ≫ fjy x y = fk ⋯
k' : I
fk'k : k' ⟶ k
hk' : D.map fk'k ⁻¹ᵁ ⨆ (x : ↥c.pt), ⨆ (hx : x ∈ σ), D.map (fk ⋯) ⁻¹ᵁ U x = ⊤
this :
  ∀
    (x :
      (i_1 : ↥σ) →
        ((D.obj k').presheaf ⋙
              forget CommRingCat (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
                CommRingCat.carrier)).obj
          (Opposite.op (D.map (fk'k ≫ fk ⋯) ⁻¹ᵁ U (↑i_1 : ↥c.pt)))),
    Presieve.Arrows.Compatible
        ((D.obj k').presheaf ⋙
          forget CommRingCat (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
            CommRingCat.carrier))
        (B := ⊤) (fun (x : ↥σ) ↦ homOfLE ⋯) x →
      ∃! t :
        (fun (X : Type u) ↦ X)
          (((D.obj k').presheaf ⋙
                forget CommRingCat (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
                  CommRingCat.carrier)).obj
            (Opposite.op ⊤)),
        ∀ (i_1 : ↥σ),
          (ConcreteCategory.hom (FC := TypeCat.Fun)
                  (((D.obj k').presheaf ⋙
                        forget CommRingCat (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
                          CommRingCat.carrier)).map
                    (Quiver.Hom.op (homOfLE ⋯))) :
                (a : (fun (X : Type u) ↦ X) (((D.obj k').presheaf ⋙ forget CommRingCat).obj (Opposite.op ⊤))) →
                  (fun (X : Type u) ↦ X)
                    (((D.obj k').presheaf ⋙ forget CommRingCat).obj
                      (Opposite.op (D.map (fk'k ≫ fk ⋯) ⁻¹ᵁ U (↑i_1 : ↥c.pt)))))
              t =
            x i_1
x y : ↥σ
V : TopologicalSpace.Opens ↥(D.obj k')
fVx : V ⟶ (fun (x : ↥σ) ↦ D.map (fk'k ≫ fk ⋯) ⁻¹ᵁ U (↑x : ↥c.pt)) x
fVy : V ⟶ (fun (x : ↥σ) ↦ D.map (fk'k ≫ fk ⋯) ⁻¹ᵁ U (↑x : ↥c.pt)) y
h :
  Eq (α := V ⟶ ⊤)
    (fVx ≫
      (fun (x : ↥σ) ↦
          (homOfLE ⋯ :
            Quiver.Hom (V := TopologicalSpace.Opens ↥(D.obj k'))
              ((fun (x : ↥σ) ↦ D.map (fk'k ≫ fk ⋯) ⁻¹ᵁ U (↑x : ↥c.pt)) x) ⊤))
        x)
    (fVy ≫
      (fun (x : ↥σ) ↦
          (homOfLE ⋯ :
            Quiver.Hom (V := TopologicalSpace.Opens ↥(D.obj k'))
              ((fun (x : ↥σ) ↦ D.map (fk'k ≫ fk ⋯) ⁻¹ᵁ U (↑x : ↥c.pt)) x) ⊤))
        y)
H :
  V ≤
    D.map (fk'k ≫ fk ⋯) ⁻¹ᵁ
      (D.map (fjx (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑x : ↥c.pt) ⊓
        D.map (fjy (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑y : ↥c.pt))
e_1 :
  (fun (X : Type u) ↦ X)
      (((D.obj k').presheaf ⋙
            forget CommRingCat (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
              CommRingCat.carrier)).obj
        (Opposite.op V)) =
    (↑((D.obj k').presheaf.obj (Opposite.op V)) : Type u)
⊢ Eq (α :=
    ToType (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC := CommRingCat.carrier)
      ((D.obj k').presheaf.obj (Opposite.op V)))
    ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
            CommRingCat.carrier) ((D.obj k').presheaf.map fVy.op) :
          (a : (↑((D.obj k').presheaf.obj (Opposite.op (D.map (fk'k ≫ fk ⋯) ⁻¹ᵁ U (↑y : ↥c.pt)))) : Type u)) →
            (↑((D.obj k').presheaf.obj (Opposite.op V)) : Type u))
        ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
                CommRingCat.carrier) (X := Γ(D.obj (i (↑y : ↥c.pt)), U (↑y : ↥c.pt)))
                (Scheme.Hom.app (D.map (fk'k ≫ fk ⋯)) (U (↑y : ↥c.pt))) :
              (a : (↑Γ(D.obj (i (↑y : ↥c.pt)), U (↑y : ↥c.pt)) : Type u)) →
                (↑Γ(D.obj k', D.map (fk'k ≫ fk ⋯) ⁻¹ᵁ U (↑y : ↥c.pt)) : Type u))
            (t (↑y : ↥c.pt)) :
          (↑Γ(D.obj k', D.map (fk'k ≫ fk ⋯) ⁻¹ᵁ U (↑y : ↥c.pt)) : Type u)) :
      (↑((D.obj k').presheaf.obj (Opposite.op V)) : Type u))
    ((CommRingCat.Hom.hom ((D.obj k').presheaf.map (homOfLE H).op) :
          (a :
              (↑Γ(D.obj k',
                    D.map (fk'k ≫ fk ⋯) ⁻¹ᵁ
                      (D.map (fjx (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑x : ↥c.pt) ⊓
                        D.map (fjy (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑y : ↥c.pt))) :
                Type u)) →
            (↑((D.obj k').presheaf.obj (Opposite.op V)) : Type u))
        ((CommRingCat.Hom.hom
                (Scheme.Hom.app (D.map (fk'k ≫ fk ⋯))
                  (D.map (fjx (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑x : ↥c.pt) ⊓
                    D.map (fjy (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑y : ↥c.pt))) :
              (a :
                  (↑Γ(D.obj (j (↑x : ↥c.pt) (↑y : ↥c.pt)),
                        D.map (fjx (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑x : ↥c.pt) ⊓
                          D.map (fjy (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑y : ↥c.pt)) :
                    Type u)) →
                (↑Γ(D.obj k',
                      D.map (fk'k ≫ fk ⋯) ⁻¹ᵁ
                        (D.map (fjx (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑x : ↥c.pt) ⊓
                          D.map (fjy (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑y : ↥c.pt))) :
                  Type u))
            ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
                    CommRingCat.carrier) (X :=
                    (D.obj (j (↑x : ↥c.pt) (↑y : ↥c.pt))).presheaf.obj
                      (Opposite.op (D.map (fjy (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑y : ↥c.pt))))
                    (Y :=
                    (D.obj (j (↑x : ↥c.pt) (↑y : ↥c.pt))).presheaf.obj
                      (Opposite.op
                        (D.map (fjx (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑x : ↥c.pt) ⊓
                          D.map (fjy (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑y : ↥c.pt))))
                    ((D.obj (j (↑x : ↥c.pt) (↑y : ↥c.pt))).presheaf.map (Quiver.Hom.op (homOfLE ⋯))) :
                  (a :
                      (↑((D.obj (j (↑x : ↥c.pt) (↑y : ↥c.pt))).presheaf.obj
                            (Opposite.op (D.map (fjy (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑y : ↥c.pt)))) :
                        Type u)) →
                    (↑((D.obj (j (↑x : ↥c.pt) (↑y : ↥c.pt))).presheaf.obj
                          (Opposite.op
                            (D.map (fjx (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑x : ↥c.pt) ⊓
                              D.map (fjy (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑y : ↥c.pt)))) :
                      Type u))
                ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
                        CommRingCat.carrier) (X := Γ(D.obj (i (↑y : ↥c.pt)), U (↑y : ↥c.pt))) (Y :=
                        Γ(D.obj (j (↑x : ↥c.pt) (↑y : ↥c.pt)),
                          D.map (fjy (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑y : ↥c.pt)))
                        (Scheme.Hom.app (D.map (fjy (↑x : ↥c.pt) (↑y : ↥c.pt))) (U (↑y : ↥c.pt))) :
                      (a : (↑Γ(D.obj (i (↑y : ↥c.pt)), U (↑y : ↥c.pt)) : Type u)) →
                        (↑Γ(D.obj (j (↑x : ↥c.pt) (↑y : ↥c.pt)),
                              D.map (fjy (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑y : ↥c.pt)) :
                          Type u))
                    (t (↑y : ↥c.pt)) :
                  (↑Γ(D.obj (j (↑x : ↥c.pt) (↑y : ↥c.pt)), D.map (fjy (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑y : ↥c.pt)) :
                    Type u)) :
              (↑((D.obj (j (↑x : ↥c.pt) (↑y : ↥c.pt))).presheaf.obj
                    (Opposite.op
                      (D.map (fjx (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑x : ↥c.pt) ⊓
                        D.map (fjy (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑y : ↥c.pt)))) :
                Type u)) :
          (↑Γ(D.obj k',
                D.map (fk'k ≫ fk ⋯) ⁻¹ᵁ
                  (D.map (fjx (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑x : ↥c.pt) ⊓
                    D.map (fjy (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑y : ↥c.pt))) :
            Type u)) :
      (↑((D.obj k').presheaf.obj (Opposite.op V)) : Type u))
have h : Eq (α :=
  ToType (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC := CommRingCat.carrier)
    ((D.obj k').presheaf.obj (Opposite.op V)))
  ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
          CommRingCat.carrier)
          (Scheme.Hom.app (D.map (fk'k ≫ fk sorry)) (U (↑y : ↥c.pt)) ≫ (D.obj k').presheaf.map fVy.op) :
        (a : (↑Γ(D.obj (i (↑y : ↥c.pt)), U (↑y : ↥c.pt)) : Type u)) →
          (↑((D.obj k').presheaf.obj (Opposite.op V)) : Type u))
      (t (↑y : ↥c.pt)) :
    (↑((D.obj k').presheaf.obj (Opposite.op V)) : Type u))
  ((ConcreteCategory.hom (FC := fun (R S : CommRingCat.{u}) ↦ (↑R : Type u) →+* (↑S : Type u)) (CC :=
          CommRingCat.carrier)
          (((Scheme.Hom.app (D.map (fjy (↑x : ↥c.pt) (↑y : ↥c.pt))) (U (↑y : ↥c.pt)) ≫
                (D.obj (j (↑x : ↥c.pt) (↑y : ↥c.pt))).presheaf.map (Quiver.Hom.op (homOfLE sorry))) ≫
              Scheme.Hom.app (D.map (fk'k ≫ fk sorry))
                (D.map (fjx (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑x : ↥c.pt) ⊓
                  D.map (fjy (↑x : ↥c.pt) (↑y : ↥c.pt)) ⁻¹ᵁ U (↑y : ↥c.pt))) ≫
            (D.obj k').presheaf.map (homOfLE H).op) :
        (a : (↑Γ(D.obj (i (↑y : ↥c.pt)), U (↑y : ↥c.pt)) : Type u)) →
          (↑((D.obj k').presheaf.obj (Opposite.op V)) : Type u))
      (t (↑y : ↥c.pt)) :
    (↑((D.obj k').presheaf.obj (Opposite.op V)) : Type u))
Tactic: simp only [← ConcreteCategory.comp_apply]