-- Module: Mathlib.Topology.Category.TopCat.Limits.Products
Goal:
J : Type v
inst : Category.{w, v} J
X Y : TopCat
S : Cone (pair X Y)
right right₁ :
  Eq (α := S.pt ⟶ Y)
    (ofHom
          {
            toFun := fun (s : (↑S.1 : Type u)) ↦
              ((ConcreteCategory.hom (FC := fun (X Y : TopCat.{u}) ↦ C((↑X : Type u), (↑Y : Type u))) (CC := carrier)
                      (BinaryFan.fst S) :
                    (a : (↑S.pt : Type u)) → (↑X : Type u))
                  s,
                (ConcreteCategory.hom (FC := fun (X Y : TopCat.{u}) ↦ C((↑X : Type u), (↑Y : Type u))) (CC := carrier)
                      (BinaryFan.snd S) :
                    (a : (↑S.pt : Type u)) → (↑Y : Type u))
                  s),
            continuous_toFun := ⋯ : C((↑S.1 : Type u), (↑X : Type u) × (↑Y : Type u)) } ≫
        (X.prodBinaryFan Y).π.app { as := WalkingPair.right } :
      S.pt ⟶ Y)
    (S.π.app { as := WalkingPair.right } :
      Functor.obj (Functor.obj (Functor.const (Discrete WalkingPair)) S.pt)
          { as := WalkingPair.right : Discrete WalkingPair } ⟶
        Functor.obj (pair X Y) { as := WalkingPair.right : Discrete WalkingPair })
right₂ right₃ :
  ∀ (x : (↑S.pt : Type u)),
    Eq (α := (↑Y : Type u))
      (((ConcreteCategory.hom (FC := fun (X Y : TopCat.{u}) ↦ C((↑X : Type u), (↑Y : Type u))) (CC := carrier) (Y := Y)
                (ofHom
                      {
                        toFun := fun (s : (↑S.1 : Type u)) ↦
                          ((ConcreteCategory.hom (FC := fun (X Y : TopCat.{u}) ↦ C((↑X : Type u), (↑Y : Type u))) (CC :=
                                  carrier) (BinaryFan.fst S) :
                                (a : (↑S.pt : Type u)) → (↑X : Type u))
                              s,
                            (ConcreteCategory.hom (FC := fun (X Y : TopCat.{u}) ↦ C((↑X : Type u), (↑Y : Type u)))
                                  (CC := carrier) (BinaryFan.snd S) :
                                (a : (↑S.pt : Type u)) → (↑Y : Type u))
                              s),
                        continuous_toFun := ⋯ : C((↑S.1 : Type u), (↑X : Type u) × (↑Y : Type u)) } ≫
                    (X.prodBinaryFan Y).π.app { as := WalkingPair.right } :
                  S.pt ⟶ Y) :
              C((↑S.pt : Type u), (↑Y : Type u))) :
            (a : (↑S.pt : Type u)) → (↑Y : Type u))
          x :
        (↑Y : Type u))
      (((ConcreteCategory.hom (FC := fun (X Y : TopCat.{u}) ↦ C((↑X : Type u), (↑Y : Type u))) (CC := carrier) (X :=
                S.pt) (Y := Y)
                (S.π.app { as := WalkingPair.right } :
                  Functor.obj (Functor.obj (Functor.const (Discrete WalkingPair)) S.pt)
                      { as := WalkingPair.right : Discrete WalkingPair } ⟶
                    Functor.obj (pair X Y) { as := WalkingPair.right : Discrete WalkingPair }) :
              C((↑S.pt : Type u), (↑Y : Type u))) :
            (a : (↑S.pt : Type u)) → (↑Y : Type u))
          x :
        (↑Y : Type u))
⊢ Eq (α := S.pt ⟶ Functor.obj (pair X Y) { as := WalkingPair.right : Discrete WalkingPair })
    (ofHom
        {
          toFun := fun (s : (↑S.1 : Type u)) ↦
            ((ConcreteCategory.hom (FC := fun (X Y : TopCat.{u}) ↦ C((↑X : Type u), (↑Y : Type u))) (CC := carrier)
                    (BinaryFan.fst S) :
                  (a : (↑(((Functor.const (Discrete WalkingPair)).obj S.pt).obj { as := WalkingPair.left }) : Type u)) →
                    (↑((pair X Y).obj { as := WalkingPair.left }) : Type u))
                s,
              (ConcreteCategory.hom (FC := fun (X Y : TopCat.{u}) ↦ C((↑X : Type u), (↑Y : Type u))) (CC := carrier)
                    (BinaryFan.snd S) :
                  (a :
                      (↑(((Functor.const (Discrete WalkingPair)).obj S.pt).obj { as := WalkingPair.right }) : Type u)) →
                    (↑((pair X Y).obj { as := WalkingPair.right }) : Type u))
                s),
          continuous_toFun := ⋯ : C((↑S.1 : Type u), (↑X : Type u) × (↑Y : Type u)) } ≫
      (X.prodBinaryFan Y).π.app { as := WalkingPair.right })
    (S.π.app { as := WalkingPair.right })

Tactic:
{dsimp; ext; rfl}