∀ {C : Type u} [inst : CategoryTheory.Category.{v, u} C] {FC : C → C → Type u_1} {CC : C → Type w}
  [inst_1 : (X Y : C) → FunLike (FC X Y) (CC X) (CC Y)] [inst_2 : CategoryTheory.ConcreteCategory C FC] (X₁ X₂ : C)
  [inst_3 : CategoryTheory.Limits.HasBinaryProduct X₁ X₂]
  [inst_4 : CategoryTheory.Limits.PreservesLimit (CategoryTheory.Limits.pair X₁ X₂) (CategoryTheory.forget C)]
  (x : CategoryTheory.ToType X₁ × CategoryTheory.ToType X₂),
  (CategoryTheory.ConcreteCategory.hom CategoryTheory.Limits.prod.fst)
      ((CategoryTheory.Limits.Concrete.prodEquiv X₁ X₂).symm x) =
    x.1