MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  xpccatid Structured version   Visualization version   GIF version

Theorem xpccatid 17554
Description: The product of two categories is a category. (Contributed by Mario Carneiro, 11-Jan-2017.)
Hypotheses
Ref Expression
xpccat.t 𝑇 = (𝐶 ×c 𝐷)
xpccat.c (𝜑𝐶 ∈ Cat)
xpccat.d (𝜑𝐷 ∈ Cat)
xpccat.x 𝑋 = (Base‘𝐶)
xpccat.y 𝑌 = (Base‘𝐷)
xpccat.i 𝐼 = (Id‘𝐶)
xpccat.j 𝐽 = (Id‘𝐷)
Assertion
Ref Expression
xpccatid (𝜑 → (𝑇 ∈ Cat ∧ (Id‘𝑇) = (𝑥𝑋, 𝑦𝑌 ↦ ⟨(𝐼𝑥), (𝐽𝑦)⟩)))
Distinct variable groups:   𝑥,𝑦,𝐼   𝑥,𝐽,𝑦   𝑥,𝐶,𝑦   𝜑,𝑥,𝑦   𝑥,𝑋,𝑦   𝑥,𝐷,𝑦   𝑥,𝑌,𝑦
Allowed substitution hints:   𝑇(𝑥,𝑦)

Proof of Theorem xpccatid
Dummy variables 𝑓 𝑔 𝑠 𝑡 𝑢 𝑣 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 xpccat.t . . . . 5 𝑇 = (𝐶 ×c 𝐷)
2 xpccat.x . . . . 5 𝑋 = (Base‘𝐶)
3 xpccat.y . . . . 5 𝑌 = (Base‘𝐷)
41, 2, 3xpcbas 17544 . . . 4 (𝑋 × 𝑌) = (Base‘𝑇)
54a1i 11 . . 3 (𝜑 → (𝑋 × 𝑌) = (Base‘𝑇))
6 eqidd 2739 . . 3 (𝜑 → (Hom ‘𝑇) = (Hom ‘𝑇))
7 eqidd 2739 . . 3 (𝜑 → (comp‘𝑇) = (comp‘𝑇))
81ovexi 7204 . . . 4 𝑇 ∈ V
98a1i 11 . . 3 (𝜑𝑇 ∈ V)
10 biid 264 . . 3 (((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣))) ↔ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣))))
11 eqid 2738 . . . . . 6 (Hom ‘𝐶) = (Hom ‘𝐶)
12 xpccat.i . . . . . 6 𝐼 = (Id‘𝐶)
13 xpccat.c . . . . . . 7 (𝜑𝐶 ∈ Cat)
1413adantr 484 . . . . . 6 ((𝜑𝑡 ∈ (𝑋 × 𝑌)) → 𝐶 ∈ Cat)
15 xp1st 7746 . . . . . . 7 (𝑡 ∈ (𝑋 × 𝑌) → (1st𝑡) ∈ 𝑋)
1615adantl 485 . . . . . 6 ((𝜑𝑡 ∈ (𝑋 × 𝑌)) → (1st𝑡) ∈ 𝑋)
172, 11, 12, 14, 16catidcl 17056 . . . . 5 ((𝜑𝑡 ∈ (𝑋 × 𝑌)) → (𝐼‘(1st𝑡)) ∈ ((1st𝑡)(Hom ‘𝐶)(1st𝑡)))
18 eqid 2738 . . . . . 6 (Hom ‘𝐷) = (Hom ‘𝐷)
19 xpccat.j . . . . . 6 𝐽 = (Id‘𝐷)
20 xpccat.d . . . . . . 7 (𝜑𝐷 ∈ Cat)
2120adantr 484 . . . . . 6 ((𝜑𝑡 ∈ (𝑋 × 𝑌)) → 𝐷 ∈ Cat)
22 xp2nd 7747 . . . . . . 7 (𝑡 ∈ (𝑋 × 𝑌) → (2nd𝑡) ∈ 𝑌)
2322adantl 485 . . . . . 6 ((𝜑𝑡 ∈ (𝑋 × 𝑌)) → (2nd𝑡) ∈ 𝑌)
243, 18, 19, 21, 23catidcl 17056 . . . . 5 ((𝜑𝑡 ∈ (𝑋 × 𝑌)) → (𝐽‘(2nd𝑡)) ∈ ((2nd𝑡)(Hom ‘𝐷)(2nd𝑡)))
2517, 24opelxpd 5563 . . . 4 ((𝜑𝑡 ∈ (𝑋 × 𝑌)) → ⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩ ∈ (((1st𝑡)(Hom ‘𝐶)(1st𝑡)) × ((2nd𝑡)(Hom ‘𝐷)(2nd𝑡))))
26 eqid 2738 . . . . 5 (Hom ‘𝑇) = (Hom ‘𝑇)
27 simpr 488 . . . . 5 ((𝜑𝑡 ∈ (𝑋 × 𝑌)) → 𝑡 ∈ (𝑋 × 𝑌))
281, 4, 11, 18, 26, 27, 27xpchom 17546 . . . 4 ((𝜑𝑡 ∈ (𝑋 × 𝑌)) → (𝑡(Hom ‘𝑇)𝑡) = (((1st𝑡)(Hom ‘𝐶)(1st𝑡)) × ((2nd𝑡)(Hom ‘𝐷)(2nd𝑡))))
2925, 28eleqtrrd 2836 . . 3 ((𝜑𝑡 ∈ (𝑋 × 𝑌)) → ⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩ ∈ (𝑡(Hom ‘𝑇)𝑡))
30 fvex 6687 . . . . . . . 8 (𝐼‘(1st𝑡)) ∈ V
31 fvex 6687 . . . . . . . 8 (𝐽‘(2nd𝑡)) ∈ V
3230, 31op1st 7722 . . . . . . 7 (1st ‘⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩) = (𝐼‘(1st𝑡))
3332oveq1i 7180 . . . . . 6 ((1st ‘⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩)(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑡))(1st𝑓)) = ((𝐼‘(1st𝑡))(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑡))(1st𝑓))
3413adantr 484 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → 𝐶 ∈ Cat)
35 simpr1l 1231 . . . . . . . 8 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → 𝑠 ∈ (𝑋 × 𝑌))
36 xp1st 7746 . . . . . . . 8 (𝑠 ∈ (𝑋 × 𝑌) → (1st𝑠) ∈ 𝑋)
3735, 36syl 17 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (1st𝑠) ∈ 𝑋)
38 eqid 2738 . . . . . . 7 (comp‘𝐶) = (comp‘𝐶)
39 simpr1r 1232 . . . . . . . 8 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → 𝑡 ∈ (𝑋 × 𝑌))
4039, 15syl 17 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (1st𝑡) ∈ 𝑋)
41 simpr31 1264 . . . . . . . . 9 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → 𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡))
421, 4, 11, 18, 26, 35, 39xpchom 17546 . . . . . . . . 9 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (𝑠(Hom ‘𝑇)𝑡) = (((1st𝑠)(Hom ‘𝐶)(1st𝑡)) × ((2nd𝑠)(Hom ‘𝐷)(2nd𝑡))))
4341, 42eleqtrd 2835 . . . . . . . 8 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → 𝑓 ∈ (((1st𝑠)(Hom ‘𝐶)(1st𝑡)) × ((2nd𝑠)(Hom ‘𝐷)(2nd𝑡))))
44 xp1st 7746 . . . . . . . 8 (𝑓 ∈ (((1st𝑠)(Hom ‘𝐶)(1st𝑡)) × ((2nd𝑠)(Hom ‘𝐷)(2nd𝑡))) → (1st𝑓) ∈ ((1st𝑠)(Hom ‘𝐶)(1st𝑡)))
4543, 44syl 17 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (1st𝑓) ∈ ((1st𝑠)(Hom ‘𝐶)(1st𝑡)))
462, 11, 12, 34, 37, 38, 40, 45catlid 17057 . . . . . 6 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((𝐼‘(1st𝑡))(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑡))(1st𝑓)) = (1st𝑓))
4733, 46syl5eq 2785 . . . . 5 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((1st ‘⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩)(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑡))(1st𝑓)) = (1st𝑓))
4830, 31op2nd 7723 . . . . . . 7 (2nd ‘⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩) = (𝐽‘(2nd𝑡))
4948oveq1i 7180 . . . . . 6 ((2nd ‘⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩)(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑡))(2nd𝑓)) = ((𝐽‘(2nd𝑡))(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑡))(2nd𝑓))
5020adantr 484 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → 𝐷 ∈ Cat)
51 xp2nd 7747 . . . . . . . 8 (𝑠 ∈ (𝑋 × 𝑌) → (2nd𝑠) ∈ 𝑌)
5235, 51syl 17 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (2nd𝑠) ∈ 𝑌)
53 eqid 2738 . . . . . . 7 (comp‘𝐷) = (comp‘𝐷)
5439, 22syl 17 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (2nd𝑡) ∈ 𝑌)
55 xp2nd 7747 . . . . . . . 8 (𝑓 ∈ (((1st𝑠)(Hom ‘𝐶)(1st𝑡)) × ((2nd𝑠)(Hom ‘𝐷)(2nd𝑡))) → (2nd𝑓) ∈ ((2nd𝑠)(Hom ‘𝐷)(2nd𝑡)))
5643, 55syl 17 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (2nd𝑓) ∈ ((2nd𝑠)(Hom ‘𝐷)(2nd𝑡)))
573, 18, 19, 50, 52, 53, 54, 56catlid 17057 . . . . . 6 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((𝐽‘(2nd𝑡))(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑡))(2nd𝑓)) = (2nd𝑓))
5849, 57syl5eq 2785 . . . . 5 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((2nd ‘⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩)(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑡))(2nd𝑓)) = (2nd𝑓))
5947, 58opeq12d 4769 . . . 4 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ⟨((1st ‘⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩)(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑡))(1st𝑓)), ((2nd ‘⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩)(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑡))(2nd𝑓))⟩ = ⟨(1st𝑓), (2nd𝑓)⟩)
60 eqid 2738 . . . . 5 (comp‘𝑇) = (comp‘𝑇)
6139, 29syldan 594 . . . . 5 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩ ∈ (𝑡(Hom ‘𝑇)𝑡))
621, 4, 26, 38, 53, 60, 35, 39, 39, 41, 61xpcco 17549 . . . 4 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩(⟨𝑠, 𝑡⟩(comp‘𝑇)𝑡)𝑓) = ⟨((1st ‘⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩)(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑡))(1st𝑓)), ((2nd ‘⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩)(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑡))(2nd𝑓))⟩)
63 1st2nd2 7753 . . . . 5 (𝑓 ∈ (((1st𝑠)(Hom ‘𝐶)(1st𝑡)) × ((2nd𝑠)(Hom ‘𝐷)(2nd𝑡))) → 𝑓 = ⟨(1st𝑓), (2nd𝑓)⟩)
6443, 63syl 17 . . . 4 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → 𝑓 = ⟨(1st𝑓), (2nd𝑓)⟩)
6559, 62, 643eqtr4d 2783 . . 3 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩(⟨𝑠, 𝑡⟩(comp‘𝑇)𝑡)𝑓) = 𝑓)
6632oveq2i 7181 . . . . . 6 ((1st𝑔)(⟨(1st𝑡), (1st𝑡)⟩(comp‘𝐶)(1st𝑢))(1st ‘⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩)) = ((1st𝑔)(⟨(1st𝑡), (1st𝑡)⟩(comp‘𝐶)(1st𝑢))(𝐼‘(1st𝑡)))
67 simpr2l 1233 . . . . . . . 8 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → 𝑢 ∈ (𝑋 × 𝑌))
68 xp1st 7746 . . . . . . . 8 (𝑢 ∈ (𝑋 × 𝑌) → (1st𝑢) ∈ 𝑋)
6967, 68syl 17 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (1st𝑢) ∈ 𝑋)
70 simpr32 1265 . . . . . . . . 9 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢))
711, 4, 11, 18, 26, 39, 67xpchom 17546 . . . . . . . . 9 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (𝑡(Hom ‘𝑇)𝑢) = (((1st𝑡)(Hom ‘𝐶)(1st𝑢)) × ((2nd𝑡)(Hom ‘𝐷)(2nd𝑢))))
7270, 71eleqtrd 2835 . . . . . . . 8 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → 𝑔 ∈ (((1st𝑡)(Hom ‘𝐶)(1st𝑢)) × ((2nd𝑡)(Hom ‘𝐷)(2nd𝑢))))
73 xp1st 7746 . . . . . . . 8 (𝑔 ∈ (((1st𝑡)(Hom ‘𝐶)(1st𝑢)) × ((2nd𝑡)(Hom ‘𝐷)(2nd𝑢))) → (1st𝑔) ∈ ((1st𝑡)(Hom ‘𝐶)(1st𝑢)))
7472, 73syl 17 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (1st𝑔) ∈ ((1st𝑡)(Hom ‘𝐶)(1st𝑢)))
752, 11, 12, 34, 40, 38, 69, 74catrid 17058 . . . . . 6 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((1st𝑔)(⟨(1st𝑡), (1st𝑡)⟩(comp‘𝐶)(1st𝑢))(𝐼‘(1st𝑡))) = (1st𝑔))
7666, 75syl5eq 2785 . . . . 5 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((1st𝑔)(⟨(1st𝑡), (1st𝑡)⟩(comp‘𝐶)(1st𝑢))(1st ‘⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩)) = (1st𝑔))
7748oveq2i 7181 . . . . . 6 ((2nd𝑔)(⟨(2nd𝑡), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑢))(2nd ‘⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩)) = ((2nd𝑔)(⟨(2nd𝑡), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑢))(𝐽‘(2nd𝑡)))
78 xp2nd 7747 . . . . . . . 8 (𝑢 ∈ (𝑋 × 𝑌) → (2nd𝑢) ∈ 𝑌)
7967, 78syl 17 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (2nd𝑢) ∈ 𝑌)
80 xp2nd 7747 . . . . . . . 8 (𝑔 ∈ (((1st𝑡)(Hom ‘𝐶)(1st𝑢)) × ((2nd𝑡)(Hom ‘𝐷)(2nd𝑢))) → (2nd𝑔) ∈ ((2nd𝑡)(Hom ‘𝐷)(2nd𝑢)))
8172, 80syl 17 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (2nd𝑔) ∈ ((2nd𝑡)(Hom ‘𝐷)(2nd𝑢)))
823, 18, 19, 50, 54, 53, 79, 81catrid 17058 . . . . . 6 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((2nd𝑔)(⟨(2nd𝑡), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑢))(𝐽‘(2nd𝑡))) = (2nd𝑔))
8377, 82syl5eq 2785 . . . . 5 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((2nd𝑔)(⟨(2nd𝑡), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑢))(2nd ‘⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩)) = (2nd𝑔))
8476, 83opeq12d 4769 . . . 4 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ⟨((1st𝑔)(⟨(1st𝑡), (1st𝑡)⟩(comp‘𝐶)(1st𝑢))(1st ‘⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩)), ((2nd𝑔)(⟨(2nd𝑡), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑢))(2nd ‘⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩))⟩ = ⟨(1st𝑔), (2nd𝑔)⟩)
851, 4, 26, 38, 53, 60, 39, 39, 67, 61, 70xpcco 17549 . . . 4 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (𝑔(⟨𝑡, 𝑡⟩(comp‘𝑇)𝑢)⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩) = ⟨((1st𝑔)(⟨(1st𝑡), (1st𝑡)⟩(comp‘𝐶)(1st𝑢))(1st ‘⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩)), ((2nd𝑔)(⟨(2nd𝑡), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑢))(2nd ‘⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩))⟩)
86 1st2nd2 7753 . . . . 5 (𝑔 ∈ (((1st𝑡)(Hom ‘𝐶)(1st𝑢)) × ((2nd𝑡)(Hom ‘𝐷)(2nd𝑢))) → 𝑔 = ⟨(1st𝑔), (2nd𝑔)⟩)
8772, 86syl 17 . . . 4 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → 𝑔 = ⟨(1st𝑔), (2nd𝑔)⟩)
8884, 85, 873eqtr4d 2783 . . 3 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (𝑔(⟨𝑡, 𝑡⟩(comp‘𝑇)𝑢)⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩) = 𝑔)
892, 11, 38, 34, 37, 40, 69, 45, 74catcocl 17059 . . . . 5 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((1st𝑔)(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑢))(1st𝑓)) ∈ ((1st𝑠)(Hom ‘𝐶)(1st𝑢)))
903, 18, 53, 50, 52, 54, 79, 56, 81catcocl 17059 . . . . 5 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((2nd𝑔)(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑢))(2nd𝑓)) ∈ ((2nd𝑠)(Hom ‘𝐷)(2nd𝑢)))
9189, 90opelxpd 5563 . . . 4 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ⟨((1st𝑔)(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑢))(1st𝑓)), ((2nd𝑔)(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑢))(2nd𝑓))⟩ ∈ (((1st𝑠)(Hom ‘𝐶)(1st𝑢)) × ((2nd𝑠)(Hom ‘𝐷)(2nd𝑢))))
921, 4, 26, 38, 53, 60, 35, 39, 67, 41, 70xpcco 17549 . . . 4 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (𝑔(⟨𝑠, 𝑡⟩(comp‘𝑇)𝑢)𝑓) = ⟨((1st𝑔)(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑢))(1st𝑓)), ((2nd𝑔)(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑢))(2nd𝑓))⟩)
931, 4, 11, 18, 26, 35, 67xpchom 17546 . . . 4 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (𝑠(Hom ‘𝑇)𝑢) = (((1st𝑠)(Hom ‘𝐶)(1st𝑢)) × ((2nd𝑠)(Hom ‘𝐷)(2nd𝑢))))
9491, 92, 933eltr4d 2848 . . 3 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (𝑔(⟨𝑠, 𝑡⟩(comp‘𝑇)𝑢)𝑓) ∈ (𝑠(Hom ‘𝑇)𝑢))
95 simpr2r 1234 . . . . . . . 8 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → 𝑣 ∈ (𝑋 × 𝑌))
96 xp1st 7746 . . . . . . . 8 (𝑣 ∈ (𝑋 × 𝑌) → (1st𝑣) ∈ 𝑋)
9795, 96syl 17 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (1st𝑣) ∈ 𝑋)
98 simpr33 1266 . . . . . . . . 9 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ∈ (𝑢(Hom ‘𝑇)𝑣))
991, 4, 11, 18, 26, 67, 95xpchom 17546 . . . . . . . . 9 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (𝑢(Hom ‘𝑇)𝑣) = (((1st𝑢)(Hom ‘𝐶)(1st𝑣)) × ((2nd𝑢)(Hom ‘𝐷)(2nd𝑣))))
10098, 99eleqtrd 2835 . . . . . . . 8 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ∈ (((1st𝑢)(Hom ‘𝐶)(1st𝑣)) × ((2nd𝑢)(Hom ‘𝐷)(2nd𝑣))))
101 xp1st 7746 . . . . . . . 8 ( ∈ (((1st𝑢)(Hom ‘𝐶)(1st𝑣)) × ((2nd𝑢)(Hom ‘𝐷)(2nd𝑣))) → (1st) ∈ ((1st𝑢)(Hom ‘𝐶)(1st𝑣)))
102100, 101syl 17 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (1st) ∈ ((1st𝑢)(Hom ‘𝐶)(1st𝑣)))
1032, 11, 38, 34, 37, 40, 69, 45, 74, 97, 102catass 17060 . . . . . 6 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (((1st)(⟨(1st𝑡), (1st𝑢)⟩(comp‘𝐶)(1st𝑣))(1st𝑔))(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑣))(1st𝑓)) = ((1st)(⟨(1st𝑠), (1st𝑢)⟩(comp‘𝐶)(1st𝑣))((1st𝑔)(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑢))(1st𝑓))))
1041, 4, 26, 38, 53, 60, 39, 67, 95, 70, 98xpcco 17549 . . . . . . . . 9 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((⟨𝑡, 𝑢⟩(comp‘𝑇)𝑣)𝑔) = ⟨((1st)(⟨(1st𝑡), (1st𝑢)⟩(comp‘𝐶)(1st𝑣))(1st𝑔)), ((2nd)(⟨(2nd𝑡), (2nd𝑢)⟩(comp‘𝐷)(2nd𝑣))(2nd𝑔))⟩)
105104fveq2d 6678 . . . . . . . 8 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (1st ‘((⟨𝑡, 𝑢⟩(comp‘𝑇)𝑣)𝑔)) = (1st ‘⟨((1st)(⟨(1st𝑡), (1st𝑢)⟩(comp‘𝐶)(1st𝑣))(1st𝑔)), ((2nd)(⟨(2nd𝑡), (2nd𝑢)⟩(comp‘𝐷)(2nd𝑣))(2nd𝑔))⟩))
106 ovex 7203 . . . . . . . . 9 ((1st)(⟨(1st𝑡), (1st𝑢)⟩(comp‘𝐶)(1st𝑣))(1st𝑔)) ∈ V
107 ovex 7203 . . . . . . . . 9 ((2nd)(⟨(2nd𝑡), (2nd𝑢)⟩(comp‘𝐷)(2nd𝑣))(2nd𝑔)) ∈ V
108106, 107op1st 7722 . . . . . . . 8 (1st ‘⟨((1st)(⟨(1st𝑡), (1st𝑢)⟩(comp‘𝐶)(1st𝑣))(1st𝑔)), ((2nd)(⟨(2nd𝑡), (2nd𝑢)⟩(comp‘𝐷)(2nd𝑣))(2nd𝑔))⟩) = ((1st)(⟨(1st𝑡), (1st𝑢)⟩(comp‘𝐶)(1st𝑣))(1st𝑔))
109105, 108eqtrdi 2789 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (1st ‘((⟨𝑡, 𝑢⟩(comp‘𝑇)𝑣)𝑔)) = ((1st)(⟨(1st𝑡), (1st𝑢)⟩(comp‘𝐶)(1st𝑣))(1st𝑔)))
110109oveq1d 7185 . . . . . 6 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((1st ‘((⟨𝑡, 𝑢⟩(comp‘𝑇)𝑣)𝑔))(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑣))(1st𝑓)) = (((1st)(⟨(1st𝑡), (1st𝑢)⟩(comp‘𝐶)(1st𝑣))(1st𝑔))(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑣))(1st𝑓)))
11192fveq2d 6678 . . . . . . . 8 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (1st ‘(𝑔(⟨𝑠, 𝑡⟩(comp‘𝑇)𝑢)𝑓)) = (1st ‘⟨((1st𝑔)(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑢))(1st𝑓)), ((2nd𝑔)(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑢))(2nd𝑓))⟩))
112 ovex 7203 . . . . . . . . 9 ((1st𝑔)(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑢))(1st𝑓)) ∈ V
113 ovex 7203 . . . . . . . . 9 ((2nd𝑔)(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑢))(2nd𝑓)) ∈ V
114112, 113op1st 7722 . . . . . . . 8 (1st ‘⟨((1st𝑔)(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑢))(1st𝑓)), ((2nd𝑔)(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑢))(2nd𝑓))⟩) = ((1st𝑔)(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑢))(1st𝑓))
115111, 114eqtrdi 2789 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (1st ‘(𝑔(⟨𝑠, 𝑡⟩(comp‘𝑇)𝑢)𝑓)) = ((1st𝑔)(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑢))(1st𝑓)))
116115oveq2d 7186 . . . . . 6 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((1st)(⟨(1st𝑠), (1st𝑢)⟩(comp‘𝐶)(1st𝑣))(1st ‘(𝑔(⟨𝑠, 𝑡⟩(comp‘𝑇)𝑢)𝑓))) = ((1st)(⟨(1st𝑠), (1st𝑢)⟩(comp‘𝐶)(1st𝑣))((1st𝑔)(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑢))(1st𝑓))))
117103, 110, 1163eqtr4d 2783 . . . . 5 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((1st ‘((⟨𝑡, 𝑢⟩(comp‘𝑇)𝑣)𝑔))(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑣))(1st𝑓)) = ((1st)(⟨(1st𝑠), (1st𝑢)⟩(comp‘𝐶)(1st𝑣))(1st ‘(𝑔(⟨𝑠, 𝑡⟩(comp‘𝑇)𝑢)𝑓))))
118 xp2nd 7747 . . . . . . . 8 (𝑣 ∈ (𝑋 × 𝑌) → (2nd𝑣) ∈ 𝑌)
11995, 118syl 17 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (2nd𝑣) ∈ 𝑌)
120 xp2nd 7747 . . . . . . . 8 ( ∈ (((1st𝑢)(Hom ‘𝐶)(1st𝑣)) × ((2nd𝑢)(Hom ‘𝐷)(2nd𝑣))) → (2nd) ∈ ((2nd𝑢)(Hom ‘𝐷)(2nd𝑣)))
121100, 120syl 17 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (2nd) ∈ ((2nd𝑢)(Hom ‘𝐷)(2nd𝑣)))
1223, 18, 53, 50, 52, 54, 79, 56, 81, 119, 121catass 17060 . . . . . 6 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (((2nd)(⟨(2nd𝑡), (2nd𝑢)⟩(comp‘𝐷)(2nd𝑣))(2nd𝑔))(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑣))(2nd𝑓)) = ((2nd)(⟨(2nd𝑠), (2nd𝑢)⟩(comp‘𝐷)(2nd𝑣))((2nd𝑔)(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑢))(2nd𝑓))))
123104fveq2d 6678 . . . . . . . 8 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (2nd ‘((⟨𝑡, 𝑢⟩(comp‘𝑇)𝑣)𝑔)) = (2nd ‘⟨((1st)(⟨(1st𝑡), (1st𝑢)⟩(comp‘𝐶)(1st𝑣))(1st𝑔)), ((2nd)(⟨(2nd𝑡), (2nd𝑢)⟩(comp‘𝐷)(2nd𝑣))(2nd𝑔))⟩))
124106, 107op2nd 7723 . . . . . . . 8 (2nd ‘⟨((1st)(⟨(1st𝑡), (1st𝑢)⟩(comp‘𝐶)(1st𝑣))(1st𝑔)), ((2nd)(⟨(2nd𝑡), (2nd𝑢)⟩(comp‘𝐷)(2nd𝑣))(2nd𝑔))⟩) = ((2nd)(⟨(2nd𝑡), (2nd𝑢)⟩(comp‘𝐷)(2nd𝑣))(2nd𝑔))
125123, 124eqtrdi 2789 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (2nd ‘((⟨𝑡, 𝑢⟩(comp‘𝑇)𝑣)𝑔)) = ((2nd)(⟨(2nd𝑡), (2nd𝑢)⟩(comp‘𝐷)(2nd𝑣))(2nd𝑔)))
126125oveq1d 7185 . . . . . 6 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((2nd ‘((⟨𝑡, 𝑢⟩(comp‘𝑇)𝑣)𝑔))(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑣))(2nd𝑓)) = (((2nd)(⟨(2nd𝑡), (2nd𝑢)⟩(comp‘𝐷)(2nd𝑣))(2nd𝑔))(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑣))(2nd𝑓)))
12792fveq2d 6678 . . . . . . . 8 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (2nd ‘(𝑔(⟨𝑠, 𝑡⟩(comp‘𝑇)𝑢)𝑓)) = (2nd ‘⟨((1st𝑔)(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑢))(1st𝑓)), ((2nd𝑔)(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑢))(2nd𝑓))⟩))
128112, 113op2nd 7723 . . . . . . . 8 (2nd ‘⟨((1st𝑔)(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑢))(1st𝑓)), ((2nd𝑔)(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑢))(2nd𝑓))⟩) = ((2nd𝑔)(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑢))(2nd𝑓))
129127, 128eqtrdi 2789 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (2nd ‘(𝑔(⟨𝑠, 𝑡⟩(comp‘𝑇)𝑢)𝑓)) = ((2nd𝑔)(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑢))(2nd𝑓)))
130129oveq2d 7186 . . . . . 6 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((2nd)(⟨(2nd𝑠), (2nd𝑢)⟩(comp‘𝐷)(2nd𝑣))(2nd ‘(𝑔(⟨𝑠, 𝑡⟩(comp‘𝑇)𝑢)𝑓))) = ((2nd)(⟨(2nd𝑠), (2nd𝑢)⟩(comp‘𝐷)(2nd𝑣))((2nd𝑔)(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑢))(2nd𝑓))))
131122, 126, 1303eqtr4d 2783 . . . . 5 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((2nd ‘((⟨𝑡, 𝑢⟩(comp‘𝑇)𝑣)𝑔))(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑣))(2nd𝑓)) = ((2nd)(⟨(2nd𝑠), (2nd𝑢)⟩(comp‘𝐷)(2nd𝑣))(2nd ‘(𝑔(⟨𝑠, 𝑡⟩(comp‘𝑇)𝑢)𝑓))))
132117, 131opeq12d 4769 . . . 4 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ⟨((1st ‘((⟨𝑡, 𝑢⟩(comp‘𝑇)𝑣)𝑔))(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑣))(1st𝑓)), ((2nd ‘((⟨𝑡, 𝑢⟩(comp‘𝑇)𝑣)𝑔))(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑣))(2nd𝑓))⟩ = ⟨((1st)(⟨(1st𝑠), (1st𝑢)⟩(comp‘𝐶)(1st𝑣))(1st ‘(𝑔(⟨𝑠, 𝑡⟩(comp‘𝑇)𝑢)𝑓))), ((2nd)(⟨(2nd𝑠), (2nd𝑢)⟩(comp‘𝐷)(2nd𝑣))(2nd ‘(𝑔(⟨𝑠, 𝑡⟩(comp‘𝑇)𝑢)𝑓)))⟩)
1332, 11, 38, 34, 40, 69, 97, 74, 102catcocl 17059 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((1st)(⟨(1st𝑡), (1st𝑢)⟩(comp‘𝐶)(1st𝑣))(1st𝑔)) ∈ ((1st𝑡)(Hom ‘𝐶)(1st𝑣)))
1343, 18, 53, 50, 54, 79, 119, 81, 121catcocl 17059 . . . . . . 7 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((2nd)(⟨(2nd𝑡), (2nd𝑢)⟩(comp‘𝐷)(2nd𝑣))(2nd𝑔)) ∈ ((2nd𝑡)(Hom ‘𝐷)(2nd𝑣)))
135133, 134opelxpd 5563 . . . . . 6 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ⟨((1st)(⟨(1st𝑡), (1st𝑢)⟩(comp‘𝐶)(1st𝑣))(1st𝑔)), ((2nd)(⟨(2nd𝑡), (2nd𝑢)⟩(comp‘𝐷)(2nd𝑣))(2nd𝑔))⟩ ∈ (((1st𝑡)(Hom ‘𝐶)(1st𝑣)) × ((2nd𝑡)(Hom ‘𝐷)(2nd𝑣))))
1361, 4, 11, 18, 26, 39, 95xpchom 17546 . . . . . 6 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (𝑡(Hom ‘𝑇)𝑣) = (((1st𝑡)(Hom ‘𝐶)(1st𝑣)) × ((2nd𝑡)(Hom ‘𝐷)(2nd𝑣))))
137135, 104, 1363eltr4d 2848 . . . . 5 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((⟨𝑡, 𝑢⟩(comp‘𝑇)𝑣)𝑔) ∈ (𝑡(Hom ‘𝑇)𝑣))
1381, 4, 26, 38, 53, 60, 35, 39, 95, 41, 137xpcco 17549 . . . 4 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (((⟨𝑡, 𝑢⟩(comp‘𝑇)𝑣)𝑔)(⟨𝑠, 𝑡⟩(comp‘𝑇)𝑣)𝑓) = ⟨((1st ‘((⟨𝑡, 𝑢⟩(comp‘𝑇)𝑣)𝑔))(⟨(1st𝑠), (1st𝑡)⟩(comp‘𝐶)(1st𝑣))(1st𝑓)), ((2nd ‘((⟨𝑡, 𝑢⟩(comp‘𝑇)𝑣)𝑔))(⟨(2nd𝑠), (2nd𝑡)⟩(comp‘𝐷)(2nd𝑣))(2nd𝑓))⟩)
1391, 4, 26, 38, 53, 60, 35, 67, 95, 94, 98xpcco 17549 . . . 4 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → ((⟨𝑠, 𝑢⟩(comp‘𝑇)𝑣)(𝑔(⟨𝑠, 𝑡⟩(comp‘𝑇)𝑢)𝑓)) = ⟨((1st)(⟨(1st𝑠), (1st𝑢)⟩(comp‘𝐶)(1st𝑣))(1st ‘(𝑔(⟨𝑠, 𝑡⟩(comp‘𝑇)𝑢)𝑓))), ((2nd)(⟨(2nd𝑠), (2nd𝑢)⟩(comp‘𝐷)(2nd𝑣))(2nd ‘(𝑔(⟨𝑠, 𝑡⟩(comp‘𝑇)𝑢)𝑓)))⟩)
140132, 138, 1393eqtr4d 2783 . . 3 ((𝜑 ∧ ((𝑠 ∈ (𝑋 × 𝑌) ∧ 𝑡 ∈ (𝑋 × 𝑌)) ∧ (𝑢 ∈ (𝑋 × 𝑌) ∧ 𝑣 ∈ (𝑋 × 𝑌)) ∧ (𝑓 ∈ (𝑠(Hom ‘𝑇)𝑡) ∧ 𝑔 ∈ (𝑡(Hom ‘𝑇)𝑢) ∧ ∈ (𝑢(Hom ‘𝑇)𝑣)))) → (((⟨𝑡, 𝑢⟩(comp‘𝑇)𝑣)𝑔)(⟨𝑠, 𝑡⟩(comp‘𝑇)𝑣)𝑓) = ((⟨𝑠, 𝑢⟩(comp‘𝑇)𝑣)(𝑔(⟨𝑠, 𝑡⟩(comp‘𝑇)𝑢)𝑓)))
1415, 6, 7, 9, 10, 29, 65, 88, 94, 140iscatd2 17055 . 2 (𝜑 → (𝑇 ∈ Cat ∧ (Id‘𝑇) = (𝑡 ∈ (𝑋 × 𝑌) ↦ ⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩)))
142 vex 3402 . . . . . . . 8 𝑥 ∈ V
143 vex 3402 . . . . . . . 8 𝑦 ∈ V
144142, 143op1std 7724 . . . . . . 7 (𝑡 = ⟨𝑥, 𝑦⟩ → (1st𝑡) = 𝑥)
145144fveq2d 6678 . . . . . 6 (𝑡 = ⟨𝑥, 𝑦⟩ → (𝐼‘(1st𝑡)) = (𝐼𝑥))
146142, 143op2ndd 7725 . . . . . . 7 (𝑡 = ⟨𝑥, 𝑦⟩ → (2nd𝑡) = 𝑦)
147146fveq2d 6678 . . . . . 6 (𝑡 = ⟨𝑥, 𝑦⟩ → (𝐽‘(2nd𝑡)) = (𝐽𝑦))
148145, 147opeq12d 4769 . . . . 5 (𝑡 = ⟨𝑥, 𝑦⟩ → ⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩ = ⟨(𝐼𝑥), (𝐽𝑦)⟩)
149148mpompt 7280 . . . 4 (𝑡 ∈ (𝑋 × 𝑌) ↦ ⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩) = (𝑥𝑋, 𝑦𝑌 ↦ ⟨(𝐼𝑥), (𝐽𝑦)⟩)
150149eqeq2i 2751 . . 3 ((Id‘𝑇) = (𝑡 ∈ (𝑋 × 𝑌) ↦ ⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩) ↔ (Id‘𝑇) = (𝑥𝑋, 𝑦𝑌 ↦ ⟨(𝐼𝑥), (𝐽𝑦)⟩))
151150anbi2i 626 . 2 ((𝑇 ∈ Cat ∧ (Id‘𝑇) = (𝑡 ∈ (𝑋 × 𝑌) ↦ ⟨(𝐼‘(1st𝑡)), (𝐽‘(2nd𝑡))⟩)) ↔ (𝑇 ∈ Cat ∧ (Id‘𝑇) = (𝑥𝑋, 𝑦𝑌 ↦ ⟨(𝐼𝑥), (𝐽𝑦)⟩)))
152141, 151sylib 221 1 (𝜑 → (𝑇 ∈ Cat ∧ (Id‘𝑇) = (𝑥𝑋, 𝑦𝑌 ↦ ⟨(𝐼𝑥), (𝐽𝑦)⟩)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 399  w3a 1088   = wceq 1542  wcel 2114  Vcvv 3398  cop 4522  cmpt 5110   × cxp 5523  cfv 6339  (class class class)co 7170  cmpo 7172  1st c1st 7712  2nd c2nd 7713  Basecbs 16586  Hom chom 16679  compcco 16680  Catccat 17038  Idccid 17039   ×c cxpc 17534
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1975  ax-7 2020  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2162  ax-12 2179  ax-ext 2710  ax-rep 5154  ax-sep 5167  ax-nul 5174  ax-pow 5232  ax-pr 5296  ax-un 7479  ax-cnex 10671  ax-resscn 10672  ax-1cn 10673  ax-icn 10674  ax-addcl 10675  ax-addrcl 10676  ax-mulcl 10677  ax-mulrcl 10678  ax-mulcom 10679  ax-addass 10680  ax-mulass 10681  ax-distr 10682  ax-i2m1 10683  ax-1ne0 10684  ax-1rid 10685  ax-rnegex 10686  ax-rrecex 10687  ax-cnre 10688  ax-pre-lttri 10689  ax-pre-lttrn 10690  ax-pre-ltadd 10691  ax-pre-mulgt0 10692
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2075  df-mo 2540  df-eu 2570  df-clab 2717  df-cleq 2730  df-clel 2811  df-nfc 2881  df-ne 2935  df-nel 3039  df-ral 3058  df-rex 3059  df-reu 3060  df-rmo 3061  df-rab 3062  df-v 3400  df-sbc 3681  df-csb 3791  df-dif 3846  df-un 3848  df-in 3850  df-ss 3860  df-pss 3862  df-nul 4212  df-if 4415  df-pw 4490  df-sn 4517  df-pr 4519  df-tp 4521  df-op 4523  df-uni 4797  df-iun 4883  df-br 5031  df-opab 5093  df-mpt 5111  df-tr 5137  df-id 5429  df-eprel 5434  df-po 5442  df-so 5443  df-fr 5483  df-we 5485  df-xp 5531  df-rel 5532  df-cnv 5533  df-co 5534  df-dm 5535  df-rn 5536  df-res 5537  df-ima 5538  df-pred 6129  df-ord 6175  df-on 6176  df-lim 6177  df-suc 6178  df-iota 6297  df-fun 6341  df-fn 6342  df-f 6343  df-f1 6344  df-fo 6345  df-f1o 6346  df-fv 6347  df-riota 7127  df-ov 7173  df-oprab 7174  df-mpo 7175  df-om 7600  df-1st 7714  df-2nd 7715  df-wrecs 7976  df-recs 8037  df-rdg 8075  df-1o 8131  df-er 8320  df-en 8556  df-dom 8557  df-sdom 8558  df-fin 8559  df-pnf 10755  df-mnf 10756  df-xr 10757  df-ltxr 10758  df-le 10759  df-sub 10950  df-neg 10951  df-nn 11717  df-2 11779  df-3 11780  df-4 11781  df-5 11782  df-6 11783  df-7 11784  df-8 11785  df-9 11786  df-n0 11977  df-z 12063  df-dec 12180  df-uz 12325  df-fz 12982  df-struct 16588  df-ndx 16589  df-slot 16590  df-base 16592  df-hom 16692  df-cco 16693  df-cat 17042  df-cid 17043  df-xpc 17538
This theorem is referenced by:  xpcid  17555  xpccat  17556
  Copyright terms: Public domain W3C validator