∀ {C : Type u} [inst : CategoryTheory.Category.{v, u} C] {D : Type u₂} [inst_1 : CategoryTheory.Category.{w, u₂} D]
  {F : CategoryTheory.Functor C D} {A B : C} [inst_2 : CategoryTheory.Limits.HasBinaryProduct A B]
  [inst_3 : CategoryTheory.Limits.HasBinaryProduct (F.obj A) (F.obj B)] {H : CategoryTheory.Functor C D}
  [inst_4 : CategoryTheory.Limits.HasBinaryProduct (H.obj A) (H.obj B)] (α : F ⟶ H) {Z : D} (h : H.obj A ⨯ H.obj B ⟶ Z),
  CategoryTheory.CategoryStruct.comp (α.app (A ⨯ B))
      (CategoryTheory.CategoryStruct.comp (CategoryTheory.Limits.prodComparison H A B) h) =
    CategoryTheory.CategoryStruct.comp (CategoryTheory.Limits.prodComparison F A B)
      (CategoryTheory.CategoryStruct.comp (CategoryTheory.Limits.prod.map (α.app A) (α.app B)) h)