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

Theorem hofcl 18251
Description: Closure of the Hom functor. Note that the codomain is the category SetCat‘𝑈 for any universe 𝑈 which contains each Hom-set. This corresponds to the assertion that 𝐶 be locally small (with respect to 𝑈). (Contributed by Mario Carneiro, 15-Jan-2017.)
Hypotheses
Ref Expression
hofcl.m 𝑀 = (HomF𝐶)
hofcl.o 𝑂 = (oppCat‘𝐶)
hofcl.d 𝐷 = (SetCat‘𝑈)
hofcl.c (𝜑𝐶 ∈ Cat)
hofcl.u (𝜑𝑈𝑉)
hofcl.h (𝜑 → ran (Homf𝐶) ⊆ 𝑈)
Assertion
Ref Expression
hofcl (𝜑𝑀 ∈ ((𝑂 ×c 𝐶) Func 𝐷))

Proof of Theorem hofcl
Dummy variables 𝑓 𝑔 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 hofcl.m . . . 4 𝑀 = (HomF𝐶)
2 hofcl.c . . . 4 (𝜑𝐶 ∈ Cat)
3 eqid 2728 . . . 4 (Base‘𝐶) = (Base‘𝐶)
4 eqid 2728 . . . 4 (Hom ‘𝐶) = (Hom ‘𝐶)
5 eqid 2728 . . . 4 (comp‘𝐶) = (comp‘𝐶)
61, 2, 3, 4, 5hofval 18244 . . 3 (𝜑𝑀 = ⟨(Homf𝐶), (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))))⟩)
7 fvex 6910 . . . . . 6 (Homf𝐶) ∈ V
8 fvex 6910 . . . . . . . 8 (Base‘𝐶) ∈ V
98, 8xpex 7755 . . . . . . 7 ((Base‘𝐶) × (Base‘𝐶)) ∈ V
109, 9mpoex 8084 . . . . . 6 (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)))) ∈ V
117, 10op2ndd 8004 . . . . 5 (𝑀 = ⟨(Homf𝐶), (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))))⟩ → (2nd𝑀) = (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)))))
126, 11syl 17 . . . 4 (𝜑 → (2nd𝑀) = (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)))))
1312opeq2d 4881 . . 3 (𝜑 → ⟨(Homf𝐶), (2nd𝑀)⟩ = ⟨(Homf𝐶), (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))))⟩)
146, 13eqtr4d 2771 . 2 (𝜑𝑀 = ⟨(Homf𝐶), (2nd𝑀)⟩)
15 eqid 2728 . . . . 5 (𝑂 ×c 𝐶) = (𝑂 ×c 𝐶)
16 hofcl.o . . . . . 6 𝑂 = (oppCat‘𝐶)
1716, 3oppcbas 17699 . . . . 5 (Base‘𝐶) = (Base‘𝑂)
1815, 17, 3xpcbas 18169 . . . 4 ((Base‘𝐶) × (Base‘𝐶)) = (Base‘(𝑂 ×c 𝐶))
19 eqid 2728 . . . 4 (Base‘𝐷) = (Base‘𝐷)
20 eqid 2728 . . . 4 (Hom ‘(𝑂 ×c 𝐶)) = (Hom ‘(𝑂 ×c 𝐶))
21 eqid 2728 . . . 4 (Hom ‘𝐷) = (Hom ‘𝐷)
22 eqid 2728 . . . 4 (Id‘(𝑂 ×c 𝐶)) = (Id‘(𝑂 ×c 𝐶))
23 eqid 2728 . . . 4 (Id‘𝐷) = (Id‘𝐷)
24 eqid 2728 . . . 4 (comp‘(𝑂 ×c 𝐶)) = (comp‘(𝑂 ×c 𝐶))
25 eqid 2728 . . . 4 (comp‘𝐷) = (comp‘𝐷)
2616oppccat 17704 . . . . . 6 (𝐶 ∈ Cat → 𝑂 ∈ Cat)
272, 26syl 17 . . . . 5 (𝜑𝑂 ∈ Cat)
2815, 27, 2xpccat 18181 . . . 4 (𝜑 → (𝑂 ×c 𝐶) ∈ Cat)
29 hofcl.u . . . . 5 (𝜑𝑈𝑉)
30 hofcl.d . . . . . 6 𝐷 = (SetCat‘𝑈)
3130setccat 18074 . . . . 5 (𝑈𝑉𝐷 ∈ Cat)
3229, 31syl 17 . . . 4 (𝜑𝐷 ∈ Cat)
33 eqid 2728 . . . . . . . 8 (Homf𝐶) = (Homf𝐶)
3433, 3homffn 17673 . . . . . . 7 (Homf𝐶) Fn ((Base‘𝐶) × (Base‘𝐶))
3534a1i 11 . . . . . 6 (𝜑 → (Homf𝐶) Fn ((Base‘𝐶) × (Base‘𝐶)))
36 hofcl.h . . . . . 6 (𝜑 → ran (Homf𝐶) ⊆ 𝑈)
37 df-f 6552 . . . . . 6 ((Homf𝐶):((Base‘𝐶) × (Base‘𝐶))⟶𝑈 ↔ ((Homf𝐶) Fn ((Base‘𝐶) × (Base‘𝐶)) ∧ ran (Homf𝐶) ⊆ 𝑈))
3835, 36, 37sylanbrc 582 . . . . 5 (𝜑 → (Homf𝐶):((Base‘𝐶) × (Base‘𝐶))⟶𝑈)
3930, 29setcbas 18067 . . . . . 6 (𝜑𝑈 = (Base‘𝐷))
4039feq3d 6709 . . . . 5 (𝜑 → ((Homf𝐶):((Base‘𝐶) × (Base‘𝐶))⟶𝑈 ↔ (Homf𝐶):((Base‘𝐶) × (Base‘𝐶))⟶(Base‘𝐷)))
4138, 40mpbid 231 . . . 4 (𝜑 → (Homf𝐶):((Base‘𝐶) × (Base‘𝐶))⟶(Base‘𝐷))
42 eqid 2728 . . . . . 6 (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)))) = (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))))
43 ovex 7453 . . . . . . 7 ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∈ V
44 ovex 7453 . . . . . . 7 ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ∈ V
4543, 44mpoex 8084 . . . . . 6 (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))) ∈ V
4642, 45fnmpoi 8074 . . . . 5 (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)))) Fn (((Base‘𝐶) × (Base‘𝐶)) × ((Base‘𝐶) × (Base‘𝐶)))
4712fneq1d 6647 . . . . 5 (𝜑 → ((2nd𝑀) Fn (((Base‘𝐶) × (Base‘𝐶)) × ((Base‘𝐶) × (Base‘𝐶))) ↔ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)))) Fn (((Base‘𝐶) × (Base‘𝐶)) × ((Base‘𝐶) × (Base‘𝐶)))))
4846, 47mpbiri 258 . . . 4 (𝜑 → (2nd𝑀) Fn (((Base‘𝐶) × (Base‘𝐶)) × ((Base‘𝐶) × (Base‘𝐶))))
492ad3antrrr 729 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → 𝐶 ∈ Cat)
50 simplrr 777 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))
51 xp1st 8025 . . . . . . . . . . . . . 14 (𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) → (1st𝑦) ∈ (Base‘𝐶))
5250, 51syl 17 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → (1st𝑦) ∈ (Base‘𝐶))
5352adantr 480 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → (1st𝑦) ∈ (Base‘𝐶))
54 simplrl 776 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)))
55 xp1st 8025 . . . . . . . . . . . . . 14 (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) → (1st𝑥) ∈ (Base‘𝐶))
5654, 55syl 17 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → (1st𝑥) ∈ (Base‘𝐶))
5756adantr 480 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → (1st𝑥) ∈ (Base‘𝐶))
58 xp2nd 8026 . . . . . . . . . . . . . 14 (𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) → (2nd𝑦) ∈ (Base‘𝐶))
5950, 58syl 17 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → (2nd𝑦) ∈ (Base‘𝐶))
6059adantr 480 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → (2nd𝑦) ∈ (Base‘𝐶))
61 simplrl 776 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → 𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)))
62 1st2nd2 8032 . . . . . . . . . . . . . . . . 17 (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) → 𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩)
6354, 62syl 17 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → 𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩)
6463adantr 480 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → 𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩)
6564oveq1d 7435 . . . . . . . . . . . . . 14 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → (𝑥(comp‘𝐶)(2nd𝑦)) = (⟨(1st𝑥), (2nd𝑥)⟩(comp‘𝐶)(2nd𝑦)))
6665oveqd 7437 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → (𝑔(𝑥(comp‘𝐶)(2nd𝑦))) = (𝑔(⟨(1st𝑥), (2nd𝑥)⟩(comp‘𝐶)(2nd𝑦))))
67 xp2nd 8026 . . . . . . . . . . . . . . . 16 (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) → (2nd𝑥) ∈ (Base‘𝐶))
6854, 67syl 17 . . . . . . . . . . . . . . 15 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → (2nd𝑥) ∈ (Base‘𝐶))
6968adantr 480 . . . . . . . . . . . . . 14 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → (2nd𝑥) ∈ (Base‘𝐶))
7063fveq2d 6901 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Hom ‘𝐶)‘𝑥) = ((Hom ‘𝐶)‘⟨(1st𝑥), (2nd𝑥)⟩))
71 df-ov 7423 . . . . . . . . . . . . . . . . 17 ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)) = ((Hom ‘𝐶)‘⟨(1st𝑥), (2nd𝑥)⟩)
7270, 71eqtr4di 2786 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Hom ‘𝐶)‘𝑥) = ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)))
7372eleq2d 2815 . . . . . . . . . . . . . . 15 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ( ∈ ((Hom ‘𝐶)‘𝑥) ↔ ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))))
7473biimpa 476 . . . . . . . . . . . . . 14 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)))
75 simplrr 777 . . . . . . . . . . . . . 14 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))
763, 4, 5, 49, 57, 69, 60, 74, 75catcocl 17665 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → (𝑔(⟨(1st𝑥), (2nd𝑥)⟩(comp‘𝐶)(2nd𝑦))) ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑦)))
7766, 76eqeltrd 2829 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → (𝑔(𝑥(comp‘𝐶)(2nd𝑦))) ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑦)))
783, 4, 5, 49, 53, 57, 60, 61, 77catcocl 17665 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓) ∈ ((1st𝑦)(Hom ‘𝐶)(2nd𝑦)))
79 1st2nd2 8032 . . . . . . . . . . . . . . 15 (𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) → 𝑦 = ⟨(1st𝑦), (2nd𝑦)⟩)
8050, 79syl 17 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → 𝑦 = ⟨(1st𝑦), (2nd𝑦)⟩)
8180fveq2d 6901 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Hom ‘𝐶)‘𝑦) = ((Hom ‘𝐶)‘⟨(1st𝑦), (2nd𝑦)⟩))
82 df-ov 7423 . . . . . . . . . . . . 13 ((1st𝑦)(Hom ‘𝐶)(2nd𝑦)) = ((Hom ‘𝐶)‘⟨(1st𝑦), (2nd𝑦)⟩)
8381, 82eqtr4di 2786 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Hom ‘𝐶)‘𝑦) = ((1st𝑦)(Hom ‘𝐶)(2nd𝑦)))
8483adantr 480 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → ((Hom ‘𝐶)‘𝑦) = ((1st𝑦)(Hom ‘𝐶)(2nd𝑦)))
8578, 84eleqtrrd 2832 . . . . . . . . . 10 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓) ∈ ((Hom ‘𝐶)‘𝑦))
8685fmpttd 7125 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)):((Hom ‘𝐶)‘𝑥)⟶((Hom ‘𝐶)‘𝑦))
8729ad2antrr 725 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → 𝑈𝑉)
8833, 3, 4, 56, 68homfval 17672 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((1st𝑥)(Homf𝐶)(2nd𝑥)) = ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)))
8963fveq2d 6901 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Homf𝐶)‘𝑥) = ((Homf𝐶)‘⟨(1st𝑥), (2nd𝑥)⟩))
90 df-ov 7423 . . . . . . . . . . . . 13 ((1st𝑥)(Homf𝐶)(2nd𝑥)) = ((Homf𝐶)‘⟨(1st𝑥), (2nd𝑥)⟩)
9189, 90eqtr4di 2786 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Homf𝐶)‘𝑥) = ((1st𝑥)(Homf𝐶)(2nd𝑥)))
9288, 91, 723eqtr4d 2778 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Homf𝐶)‘𝑥) = ((Hom ‘𝐶)‘𝑥))
9338ad2antrr 725 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → (Homf𝐶):((Base‘𝐶) × (Base‘𝐶))⟶𝑈)
9493, 54ffvelcdmd 7095 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Homf𝐶)‘𝑥) ∈ 𝑈)
9592, 94eqeltrrd 2830 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Hom ‘𝐶)‘𝑥) ∈ 𝑈)
9633, 3, 4, 52, 59homfval 17672 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((1st𝑦)(Homf𝐶)(2nd𝑦)) = ((1st𝑦)(Hom ‘𝐶)(2nd𝑦)))
9780fveq2d 6901 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Homf𝐶)‘𝑦) = ((Homf𝐶)‘⟨(1st𝑦), (2nd𝑦)⟩))
98 df-ov 7423 . . . . . . . . . . . . 13 ((1st𝑦)(Homf𝐶)(2nd𝑦)) = ((Homf𝐶)‘⟨(1st𝑦), (2nd𝑦)⟩)
9997, 98eqtr4di 2786 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Homf𝐶)‘𝑦) = ((1st𝑦)(Homf𝐶)(2nd𝑦)))
10096, 99, 833eqtr4d 2778 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Homf𝐶)‘𝑦) = ((Hom ‘𝐶)‘𝑦))
10193, 50ffvelcdmd 7095 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Homf𝐶)‘𝑦) ∈ 𝑈)
102100, 101eqeltrrd 2830 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Hom ‘𝐶)‘𝑦) ∈ 𝑈)
10330, 87, 21, 95, 102elsetchom 18070 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → (( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)) ∈ (((Hom ‘𝐶)‘𝑥)(Hom ‘𝐷)((Hom ‘𝐶)‘𝑦)) ↔ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)):((Hom ‘𝐶)‘𝑥)⟶((Hom ‘𝐶)‘𝑦)))
10486, 103mpbird 257 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)) ∈ (((Hom ‘𝐶)‘𝑥)(Hom ‘𝐷)((Hom ‘𝐶)‘𝑦)))
10592, 100oveq12d 7438 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → (((Homf𝐶)‘𝑥)(Hom ‘𝐷)((Homf𝐶)‘𝑦)) = (((Hom ‘𝐶)‘𝑥)(Hom ‘𝐷)((Hom ‘𝐶)‘𝑦)))
106104, 105eleqtrrd 2832 . . . . . . 7 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)) ∈ (((Homf𝐶)‘𝑥)(Hom ‘𝐷)((Homf𝐶)‘𝑦)))
107106ralrimivva 3197 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → ∀𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥))∀𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)) ∈ (((Homf𝐶)‘𝑥)(Hom ‘𝐷)((Homf𝐶)‘𝑦)))
108 eqid 2728 . . . . . . 7 (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))) = (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)))
109108fmpo 8072 . . . . . 6 (∀𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥))∀𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)) ∈ (((Homf𝐶)‘𝑥)(Hom ‘𝐷)((Homf𝐶)‘𝑦)) ↔ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))):(((1st𝑦)(Hom ‘𝐶)(1st𝑥)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))⟶(((Homf𝐶)‘𝑥)(Hom ‘𝐷)((Homf𝐶)‘𝑦)))
110107, 109sylib 217 . . . . 5 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))):(((1st𝑦)(Hom ‘𝐶)(1st𝑥)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))⟶(((Homf𝐶)‘𝑥)(Hom ‘𝐷)((Homf𝐶)‘𝑦)))
11112oveqd 7437 . . . . . . 7 (𝜑 → (𝑥(2nd𝑀)𝑦) = (𝑥(𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))))𝑦))
11242ovmpt4g 7568 . . . . . . . 8 ((𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))) ∈ V) → (𝑥(𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))))𝑦) = (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))))
11345, 112mp3an3 1447 . . . . . . 7 ((𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (𝑥(𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))))𝑦) = (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))))
114111, 113sylan9eq 2788 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → (𝑥(2nd𝑀)𝑦) = (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))))
115 eqid 2728 . . . . . . . 8 (Hom ‘𝑂) = (Hom ‘𝑂)
116 simprl 770 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)))
117 simprr 772 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))
11815, 18, 115, 4, 20, 116, 117xpchom 18171 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) = (((1st𝑥)(Hom ‘𝑂)(1st𝑦)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))))
1194, 16oppchom 17696 . . . . . . . 8 ((1st𝑥)(Hom ‘𝑂)(1st𝑦)) = ((1st𝑦)(Hom ‘𝐶)(1st𝑥))
120119xpeq1i 5704 . . . . . . 7 (((1st𝑥)(Hom ‘𝑂)(1st𝑦)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))) = (((1st𝑦)(Hom ‘𝐶)(1st𝑥)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))
121118, 120eqtrdi 2784 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) = (((1st𝑦)(Hom ‘𝐶)(1st𝑥)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))))
122114, 121feq12d 6710 . . . . 5 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → ((𝑥(2nd𝑀)𝑦):(𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦)⟶(((Homf𝐶)‘𝑥)(Hom ‘𝐷)((Homf𝐶)‘𝑦)) ↔ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))):(((1st𝑦)(Hom ‘𝐶)(1st𝑥)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))⟶(((Homf𝐶)‘𝑥)(Hom ‘𝐷)((Homf𝐶)‘𝑦))))
123110, 122mpbird 257 . . . 4 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → (𝑥(2nd𝑀)𝑦):(𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦)⟶(((Homf𝐶)‘𝑥)(Hom ‘𝐷)((Homf𝐶)‘𝑦)))
124 eqid 2728 . . . . . . . . . 10 (Id‘𝐶) = (Id‘𝐶)
1252ad2antrr 725 . . . . . . . . . 10 (((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))) → 𝐶 ∈ Cat)
12655adantl 481 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (1st𝑥) ∈ (Base‘𝐶))
127126adantr 480 . . . . . . . . . 10 (((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))) → (1st𝑥) ∈ (Base‘𝐶))
12867adantl 481 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (2nd𝑥) ∈ (Base‘𝐶))
129128adantr 480 . . . . . . . . . 10 (((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))) → (2nd𝑥) ∈ (Base‘𝐶))
130 simpr 484 . . . . . . . . . 10 (((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))) → 𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)))
1313, 4, 124, 125, 127, 5, 129, 130catlid 17663 . . . . . . . . 9 (((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))) → (((Id‘𝐶)‘(2nd𝑥))(⟨(1st𝑥), (2nd𝑥)⟩(comp‘𝐶)(2nd𝑥))𝑓) = 𝑓)
132131oveq1d 7435 . . . . . . . 8 (((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))) → ((((Id‘𝐶)‘(2nd𝑥))(⟨(1st𝑥), (2nd𝑥)⟩(comp‘𝐶)(2nd𝑥))𝑓)(⟨(1st𝑥), (1st𝑥)⟩(comp‘𝐶)(2nd𝑥))((Id‘𝐶)‘(1st𝑥))) = (𝑓(⟨(1st𝑥), (1st𝑥)⟩(comp‘𝐶)(2nd𝑥))((Id‘𝐶)‘(1st𝑥))))
1333, 4, 124, 125, 127, 5, 129, 130catrid 17664 . . . . . . . 8 (((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))) → (𝑓(⟨(1st𝑥), (1st𝑥)⟩(comp‘𝐶)(2nd𝑥))((Id‘𝐶)‘(1st𝑥))) = 𝑓)
134132, 133eqtrd 2768 . . . . . . 7 (((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))) → ((((Id‘𝐶)‘(2nd𝑥))(⟨(1st𝑥), (2nd𝑥)⟩(comp‘𝐶)(2nd𝑥))𝑓)(⟨(1st𝑥), (1st𝑥)⟩(comp‘𝐶)(2nd𝑥))((Id‘𝐶)‘(1st𝑥))) = 𝑓)
135134mpteq2dva 5248 . . . . . 6 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)) ↦ ((((Id‘𝐶)‘(2nd𝑥))(⟨(1st𝑥), (2nd𝑥)⟩(comp‘𝐶)(2nd𝑥))𝑓)(⟨(1st𝑥), (1st𝑥)⟩(comp‘𝐶)(2nd𝑥))((Id‘𝐶)‘(1st𝑥)))) = (𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)) ↦ 𝑓))
136 df-ov 7423 . . . . . . 7 (((Id‘𝐶)‘(1st𝑥))(⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑥), (2nd𝑥)⟩)((Id‘𝐶)‘(2nd𝑥))) = ((⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑥), (2nd𝑥)⟩)‘⟨((Id‘𝐶)‘(1st𝑥)), ((Id‘𝐶)‘(2nd𝑥))⟩)
1372adantr 480 . . . . . . . 8 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → 𝐶 ∈ Cat)
1383, 4, 124, 137, 126catidcl 17662 . . . . . . . 8 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘𝐶)‘(1st𝑥)) ∈ ((1st𝑥)(Hom ‘𝐶)(1st𝑥)))
1393, 4, 124, 137, 128catidcl 17662 . . . . . . . 8 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘𝐶)‘(2nd𝑥)) ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑥)))
1401, 137, 3, 4, 126, 128, 126, 128, 5, 138, 139hof2val 18248 . . . . . . 7 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (((Id‘𝐶)‘(1st𝑥))(⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑥), (2nd𝑥)⟩)((Id‘𝐶)‘(2nd𝑥))) = (𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)) ↦ ((((Id‘𝐶)‘(2nd𝑥))(⟨(1st𝑥), (2nd𝑥)⟩(comp‘𝐶)(2nd𝑥))𝑓)(⟨(1st𝑥), (1st𝑥)⟩(comp‘𝐶)(2nd𝑥))((Id‘𝐶)‘(1st𝑥)))))
141136, 140eqtr3id 2782 . . . . . 6 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑥), (2nd𝑥)⟩)‘⟨((Id‘𝐶)‘(1st𝑥)), ((Id‘𝐶)‘(2nd𝑥))⟩) = (𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)) ↦ ((((Id‘𝐶)‘(2nd𝑥))(⟨(1st𝑥), (2nd𝑥)⟩(comp‘𝐶)(2nd𝑥))𝑓)(⟨(1st𝑥), (1st𝑥)⟩(comp‘𝐶)(2nd𝑥))((Id‘𝐶)‘(1st𝑥)))))
14262adantl 481 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → 𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩)
143142fveq2d 6901 . . . . . . . . . 10 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Homf𝐶)‘𝑥) = ((Homf𝐶)‘⟨(1st𝑥), (2nd𝑥)⟩))
144143, 90eqtr4di 2786 . . . . . . . . 9 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Homf𝐶)‘𝑥) = ((1st𝑥)(Homf𝐶)(2nd𝑥)))
14533, 3, 4, 126, 128homfval 17672 . . . . . . . . 9 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((1st𝑥)(Homf𝐶)(2nd𝑥)) = ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)))
146144, 145eqtrd 2768 . . . . . . . 8 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Homf𝐶)‘𝑥) = ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)))
147146reseq2d 5985 . . . . . . 7 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ( I ↾ ((Homf𝐶)‘𝑥)) = ( I ↾ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))))
148 mptresid 6054 . . . . . . 7 ( I ↾ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))) = (𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)) ↦ 𝑓)
149147, 148eqtrdi 2784 . . . . . 6 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ( I ↾ ((Homf𝐶)‘𝑥)) = (𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)) ↦ 𝑓))
150135, 141, 1493eqtr4d 2778 . . . . 5 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑥), (2nd𝑥)⟩)‘⟨((Id‘𝐶)‘(1st𝑥)), ((Id‘𝐶)‘(2nd𝑥))⟩) = ( I ↾ ((Homf𝐶)‘𝑥)))
151142, 142oveq12d 7438 . . . . . 6 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (𝑥(2nd𝑀)𝑥) = (⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑥), (2nd𝑥)⟩))
152142fveq2d 6901 . . . . . . 7 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘(𝑂 ×c 𝐶))‘𝑥) = ((Id‘(𝑂 ×c 𝐶))‘⟨(1st𝑥), (2nd𝑥)⟩))
15327adantr 480 . . . . . . . 8 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → 𝑂 ∈ Cat)
154 eqid 2728 . . . . . . . 8 (Id‘𝑂) = (Id‘𝑂)
15515, 153, 137, 17, 3, 154, 124, 22, 126, 128xpcid 18180 . . . . . . 7 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘(𝑂 ×c 𝐶))‘⟨(1st𝑥), (2nd𝑥)⟩) = ⟨((Id‘𝑂)‘(1st𝑥)), ((Id‘𝐶)‘(2nd𝑥))⟩)
15616, 124oppcid 17703 . . . . . . . . . 10 (𝐶 ∈ Cat → (Id‘𝑂) = (Id‘𝐶))
157137, 156syl 17 . . . . . . . . 9 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (Id‘𝑂) = (Id‘𝐶))
158157fveq1d 6899 . . . . . . . 8 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘𝑂)‘(1st𝑥)) = ((Id‘𝐶)‘(1st𝑥)))
159158opeq1d 4880 . . . . . . 7 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ⟨((Id‘𝑂)‘(1st𝑥)), ((Id‘𝐶)‘(2nd𝑥))⟩ = ⟨((Id‘𝐶)‘(1st𝑥)), ((Id‘𝐶)‘(2nd𝑥))⟩)
160152, 155, 1593eqtrd 2772 . . . . . 6 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘(𝑂 ×c 𝐶))‘𝑥) = ⟨((Id‘𝐶)‘(1st𝑥)), ((Id‘𝐶)‘(2nd𝑥))⟩)
161151, 160fveq12d 6904 . . . . 5 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((𝑥(2nd𝑀)𝑥)‘((Id‘(𝑂 ×c 𝐶))‘𝑥)) = ((⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑥), (2nd𝑥)⟩)‘⟨((Id‘𝐶)‘(1st𝑥)), ((Id‘𝐶)‘(2nd𝑥))⟩))
16229adantr 480 . . . . . 6 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → 𝑈𝑉)
16338ffvelcdmda 7094 . . . . . 6 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Homf𝐶)‘𝑥) ∈ 𝑈)
16430, 23, 162, 163setcid 18075 . . . . 5 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘𝐷)‘((Homf𝐶)‘𝑥)) = ( I ↾ ((Homf𝐶)‘𝑥)))
165150, 161, 1643eqtr4d 2778 . . . 4 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((𝑥(2nd𝑀)𝑥)‘((Id‘(𝑂 ×c 𝐶))‘𝑥)) = ((Id‘𝐷)‘((Homf𝐶)‘𝑥)))
16623ad2ant1 1131 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝐶 ∈ Cat)
167293ad2ant1 1131 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑈𝑉)
168363ad2ant1 1131 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ran (Homf𝐶) ⊆ 𝑈)
169 simp21 1204 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)))
170169, 55syl 17 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st𝑥) ∈ (Base‘𝐶))
171169, 67syl 17 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (2nd𝑥) ∈ (Base‘𝐶))
172 simp22 1205 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))
173172, 51syl 17 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st𝑦) ∈ (Base‘𝐶))
174172, 58syl 17 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (2nd𝑦) ∈ (Base‘𝐶))
175 simp23 1206 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶)))
176 xp1st 8025 . . . . . . 7 (𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶)) → (1st𝑧) ∈ (Base‘𝐶))
177175, 176syl 17 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st𝑧) ∈ (Base‘𝐶))
178 xp2nd 8026 . . . . . . 7 (𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶)) → (2nd𝑧) ∈ (Base‘𝐶))
179175, 178syl 17 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (2nd𝑧) ∈ (Base‘𝐶))
180 simp3l 1199 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦))
18115, 18, 115, 4, 20, 169, 172xpchom 18171 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) = (((1st𝑥)(Hom ‘𝑂)(1st𝑦)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))))
182180, 181eleqtrd 2831 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑓 ∈ (((1st𝑥)(Hom ‘𝑂)(1st𝑦)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))))
183 xp1st 8025 . . . . . . . 8 (𝑓 ∈ (((1st𝑥)(Hom ‘𝑂)(1st𝑦)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))) → (1st𝑓) ∈ ((1st𝑥)(Hom ‘𝑂)(1st𝑦)))
184182, 183syl 17 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st𝑓) ∈ ((1st𝑥)(Hom ‘𝑂)(1st𝑦)))
185184, 119eleqtrdi 2839 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st𝑓) ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)))
186 xp2nd 8026 . . . . . . 7 (𝑓 ∈ (((1st𝑥)(Hom ‘𝑂)(1st𝑦)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))) → (2nd𝑓) ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))
187182, 186syl 17 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (2nd𝑓) ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))
188 simp3r 1200 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))
18915, 18, 115, 4, 20, 172, 175xpchom 18171 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧) = (((1st𝑦)(Hom ‘𝑂)(1st𝑧)) × ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧))))
190188, 189eleqtrd 2831 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑔 ∈ (((1st𝑦)(Hom ‘𝑂)(1st𝑧)) × ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧))))
191 xp1st 8025 . . . . . . . 8 (𝑔 ∈ (((1st𝑦)(Hom ‘𝑂)(1st𝑧)) × ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧))) → (1st𝑔) ∈ ((1st𝑦)(Hom ‘𝑂)(1st𝑧)))
192190, 191syl 17 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st𝑔) ∈ ((1st𝑦)(Hom ‘𝑂)(1st𝑧)))
1934, 16oppchom 17696 . . . . . . 7 ((1st𝑦)(Hom ‘𝑂)(1st𝑧)) = ((1st𝑧)(Hom ‘𝐶)(1st𝑦))
194192, 193eleqtrdi 2839 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st𝑔) ∈ ((1st𝑧)(Hom ‘𝐶)(1st𝑦)))
195 xp2nd 8026 . . . . . . 7 (𝑔 ∈ (((1st𝑦)(Hom ‘𝑂)(1st𝑧)) × ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧))) → (2nd𝑔) ∈ ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧)))
196190, 195syl 17 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (2nd𝑔) ∈ ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧)))
1971, 16, 30, 166, 167, 168, 3, 4, 170, 171, 173, 174, 177, 179, 185, 187, 194, 196hofcllem 18250 . . . . 5 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (((1st𝑓)(⟨(1st𝑧), (1st𝑦)⟩(comp‘𝐶)(1st𝑥))(1st𝑔))(⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑧), (2nd𝑧)⟩)((2nd𝑔)(⟨(2nd𝑥), (2nd𝑦)⟩(comp‘𝐶)(2nd𝑧))(2nd𝑓))) = (((1st𝑔)(⟨(1st𝑦), (2nd𝑦)⟩(2nd𝑀)⟨(1st𝑧), (2nd𝑧)⟩)(2nd𝑔))(⟨((1st𝑥)(Hom ‘𝐶)(2nd𝑥)), ((1st𝑦)(Hom ‘𝐶)(2nd𝑦))⟩(comp‘𝐷)((1st𝑧)(Hom ‘𝐶)(2nd𝑧)))((1st𝑓)(⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑦), (2nd𝑦)⟩)(2nd𝑓))))
198169, 62syl 17 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩)
199 1st2nd2 8032 . . . . . . . . 9 (𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶)) → 𝑧 = ⟨(1st𝑧), (2nd𝑧)⟩)
200175, 199syl 17 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑧 = ⟨(1st𝑧), (2nd𝑧)⟩)
201198, 200oveq12d 7438 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑥(2nd𝑀)𝑧) = (⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑧), (2nd𝑧)⟩))
202172, 79syl 17 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑦 = ⟨(1st𝑦), (2nd𝑦)⟩)
203198, 202opeq12d 4882 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ⟨𝑥, 𝑦⟩ = ⟨⟨(1st𝑥), (2nd𝑥)⟩, ⟨(1st𝑦), (2nd𝑦)⟩⟩)
204203, 200oveq12d 7438 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (⟨𝑥, 𝑦⟩(comp‘(𝑂 ×c 𝐶))𝑧) = (⟨⟨(1st𝑥), (2nd𝑥)⟩, ⟨(1st𝑦), (2nd𝑦)⟩⟩(comp‘(𝑂 ×c 𝐶))⟨(1st𝑧), (2nd𝑧)⟩))
205 1st2nd2 8032 . . . . . . . . . 10 (𝑔 ∈ (((1st𝑦)(Hom ‘𝑂)(1st𝑧)) × ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧))) → 𝑔 = ⟨(1st𝑔), (2nd𝑔)⟩)
206190, 205syl 17 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑔 = ⟨(1st𝑔), (2nd𝑔)⟩)
207 1st2nd2 8032 . . . . . . . . . 10 (𝑓 ∈ (((1st𝑥)(Hom ‘𝑂)(1st𝑦)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))) → 𝑓 = ⟨(1st𝑓), (2nd𝑓)⟩)
208182, 207syl 17 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑓 = ⟨(1st𝑓), (2nd𝑓)⟩)
209204, 206, 208oveq123d 7441 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘(𝑂 ×c 𝐶))𝑧)𝑓) = (⟨(1st𝑔), (2nd𝑔)⟩(⟨⟨(1st𝑥), (2nd𝑥)⟩, ⟨(1st𝑦), (2nd𝑦)⟩⟩(comp‘(𝑂 ×c 𝐶))⟨(1st𝑧), (2nd𝑧)⟩)⟨(1st𝑓), (2nd𝑓)⟩))
210 eqid 2728 . . . . . . . . 9 (comp‘𝑂) = (comp‘𝑂)
21115, 17, 3, 115, 4, 170, 171, 173, 174, 210, 5, 24, 177, 179, 184, 187, 192, 196xpcco2 18178 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (⟨(1st𝑔), (2nd𝑔)⟩(⟨⟨(1st𝑥), (2nd𝑥)⟩, ⟨(1st𝑦), (2nd𝑦)⟩⟩(comp‘(𝑂 ×c 𝐶))⟨(1st𝑧), (2nd𝑧)⟩)⟨(1st𝑓), (2nd𝑓)⟩) = ⟨((1st𝑔)(⟨(1st𝑥), (1st𝑦)⟩(comp‘𝑂)(1st𝑧))(1st𝑓)), ((2nd𝑔)(⟨(2nd𝑥), (2nd𝑦)⟩(comp‘𝐶)(2nd𝑧))(2nd𝑓))⟩)
2123, 5, 16, 170, 173, 177oppcco 17698 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((1st𝑔)(⟨(1st𝑥), (1st𝑦)⟩(comp‘𝑂)(1st𝑧))(1st𝑓)) = ((1st𝑓)(⟨(1st𝑧), (1st𝑦)⟩(comp‘𝐶)(1st𝑥))(1st𝑔)))
213212opeq1d 4880 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ⟨((1st𝑔)(⟨(1st𝑥), (1st𝑦)⟩(comp‘𝑂)(1st𝑧))(1st𝑓)), ((2nd𝑔)(⟨(2nd𝑥), (2nd𝑦)⟩(comp‘𝐶)(2nd𝑧))(2nd𝑓))⟩ = ⟨((1st𝑓)(⟨(1st𝑧), (1st𝑦)⟩(comp‘𝐶)(1st𝑥))(1st𝑔)), ((2nd𝑔)(⟨(2nd𝑥), (2nd𝑦)⟩(comp‘𝐶)(2nd𝑧))(2nd𝑓))⟩)
214209, 211, 2133eqtrd 2772 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘(𝑂 ×c 𝐶))𝑧)𝑓) = ⟨((1st𝑓)(⟨(1st𝑧), (1st𝑦)⟩(comp‘𝐶)(1st𝑥))(1st𝑔)), ((2nd𝑔)(⟨(2nd𝑥), (2nd𝑦)⟩(comp‘𝐶)(2nd𝑧))(2nd𝑓))⟩)
215201, 214fveq12d 6904 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑥(2nd𝑀)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘(𝑂 ×c 𝐶))𝑧)𝑓)) = ((⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑧), (2nd𝑧)⟩)‘⟨((1st𝑓)(⟨(1st𝑧), (1st𝑦)⟩(comp‘𝐶)(1st𝑥))(1st𝑔)), ((2nd𝑔)(⟨(2nd𝑥), (2nd𝑦)⟩(comp‘𝐶)(2nd𝑧))(2nd𝑓))⟩))
216 df-ov 7423 . . . . . 6 (((1st𝑓)(⟨(1st𝑧), (1st𝑦)⟩(comp‘𝐶)(1st𝑥))(1st𝑔))(⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑧), (2nd𝑧)⟩)((2nd𝑔)(⟨(2nd𝑥), (2nd𝑦)⟩(comp‘𝐶)(2nd𝑧))(2nd𝑓))) = ((⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑧), (2nd𝑧)⟩)‘⟨((1st𝑓)(⟨(1st𝑧), (1st𝑦)⟩(comp‘𝐶)(1st𝑥))(1st𝑔)), ((2nd𝑔)(⟨(2nd𝑥), (2nd𝑦)⟩(comp‘𝐶)(2nd𝑧))(2nd𝑓))⟩)
217215, 216eqtr4di 2786 . . . . 5 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑥(2nd𝑀)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘(𝑂 ×c 𝐶))𝑧)𝑓)) = (((1st𝑓)(⟨(1st𝑧), (1st𝑦)⟩(comp‘𝐶)(1st𝑥))(1st𝑔))(⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑧), (2nd𝑧)⟩)((2nd𝑔)(⟨(2nd𝑥), (2nd𝑦)⟩(comp‘𝐶)(2nd𝑧))(2nd𝑓))))
218198fveq2d 6901 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf𝐶)‘𝑥) = ((Homf𝐶)‘⟨(1st𝑥), (2nd𝑥)⟩))
219218, 90eqtr4di 2786 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf𝐶)‘𝑥) = ((1st𝑥)(Homf𝐶)(2nd𝑥)))
22033, 3, 4, 170, 171homfval 17672 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((1st𝑥)(Homf𝐶)(2nd𝑥)) = ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)))
221219, 220eqtrd 2768 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf𝐶)‘𝑥) = ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)))
222202fveq2d 6901 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf𝐶)‘𝑦) = ((Homf𝐶)‘⟨(1st𝑦), (2nd𝑦)⟩))
223222, 98eqtr4di 2786 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf𝐶)‘𝑦) = ((1st𝑦)(Homf𝐶)(2nd𝑦)))
22433, 3, 4, 173, 174homfval 17672 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((1st𝑦)(Homf𝐶)(2nd𝑦)) = ((1st𝑦)(Hom ‘𝐶)(2nd𝑦)))
225223, 224eqtrd 2768 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf𝐶)‘𝑦) = ((1st𝑦)(Hom ‘𝐶)(2nd𝑦)))
226221, 225opeq12d 4882 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ⟨((Homf𝐶)‘𝑥), ((Homf𝐶)‘𝑦)⟩ = ⟨((1st𝑥)(Hom ‘𝐶)(2nd𝑥)), ((1st𝑦)(Hom ‘𝐶)(2nd𝑦))⟩)
227200fveq2d 6901 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf𝐶)‘𝑧) = ((Homf𝐶)‘⟨(1st𝑧), (2nd𝑧)⟩))
228 df-ov 7423 . . . . . . . . 9 ((1st𝑧)(Homf𝐶)(2nd𝑧)) = ((Homf𝐶)‘⟨(1st𝑧), (2nd𝑧)⟩)
229227, 228eqtr4di 2786 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf𝐶)‘𝑧) = ((1st𝑧)(Homf𝐶)(2nd𝑧)))
23033, 3, 4, 177, 179homfval 17672 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((1st𝑧)(Homf𝐶)(2nd𝑧)) = ((1st𝑧)(Hom ‘𝐶)(2nd𝑧)))
231229, 230eqtrd 2768 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf𝐶)‘𝑧) = ((1st𝑧)(Hom ‘𝐶)(2nd𝑧)))
232226, 231oveq12d 7438 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (⟨((Homf𝐶)‘𝑥), ((Homf𝐶)‘𝑦)⟩(comp‘𝐷)((Homf𝐶)‘𝑧)) = (⟨((1st𝑥)(Hom ‘𝐶)(2nd𝑥)), ((1st𝑦)(Hom ‘𝐶)(2nd𝑦))⟩(comp‘𝐷)((1st𝑧)(Hom ‘𝐶)(2nd𝑧))))
233202, 200oveq12d 7438 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑦(2nd𝑀)𝑧) = (⟨(1st𝑦), (2nd𝑦)⟩(2nd𝑀)⟨(1st𝑧), (2nd𝑧)⟩))
234233, 206fveq12d 6904 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑦(2nd𝑀)𝑧)‘𝑔) = ((⟨(1st𝑦), (2nd𝑦)⟩(2nd𝑀)⟨(1st𝑧), (2nd𝑧)⟩)‘⟨(1st𝑔), (2nd𝑔)⟩))
235 df-ov 7423 . . . . . . 7 ((1st𝑔)(⟨(1st𝑦), (2nd𝑦)⟩(2nd𝑀)⟨(1st𝑧), (2nd𝑧)⟩)(2nd𝑔)) = ((⟨(1st𝑦), (2nd𝑦)⟩(2nd𝑀)⟨(1st𝑧), (2nd𝑧)⟩)‘⟨(1st𝑔), (2nd𝑔)⟩)
236234, 235eqtr4di 2786 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑦(2nd𝑀)𝑧)‘𝑔) = ((1st𝑔)(⟨(1st𝑦), (2nd𝑦)⟩(2nd𝑀)⟨(1st𝑧), (2nd𝑧)⟩)(2nd𝑔)))
237198, 202oveq12d 7438 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑥(2nd𝑀)𝑦) = (⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑦), (2nd𝑦)⟩))
238237, 208fveq12d 6904 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑥(2nd𝑀)𝑦)‘𝑓) = ((⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑦), (2nd𝑦)⟩)‘⟨(1st𝑓), (2nd𝑓)⟩))
239 df-ov 7423 . . . . . . 7 ((1st𝑓)(⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑦), (2nd𝑦)⟩)(2nd𝑓)) = ((⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑦), (2nd𝑦)⟩)‘⟨(1st𝑓), (2nd𝑓)⟩)
240238, 239eqtr4di 2786 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑥(2nd𝑀)𝑦)‘𝑓) = ((1st𝑓)(⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑦), (2nd𝑦)⟩)(2nd𝑓)))
241232, 236, 240oveq123d 7441 . . . . 5 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (((𝑦(2nd𝑀)𝑧)‘𝑔)(⟨((Homf𝐶)‘𝑥), ((Homf𝐶)‘𝑦)⟩(comp‘𝐷)((Homf𝐶)‘𝑧))((𝑥(2nd𝑀)𝑦)‘𝑓)) = (((1st𝑔)(⟨(1st𝑦), (2nd𝑦)⟩(2nd𝑀)⟨(1st𝑧), (2nd𝑧)⟩)(2nd𝑔))(⟨((1st𝑥)(Hom ‘𝐶)(2nd𝑥)), ((1st𝑦)(Hom ‘𝐶)(2nd𝑦))⟩(comp‘𝐷)((1st𝑧)(Hom ‘𝐶)(2nd𝑧)))((1st𝑓)(⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑦), (2nd𝑦)⟩)(2nd𝑓))))
242197, 217, 2413eqtr4d 2778 . . . 4 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑥(2nd𝑀)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘(𝑂 ×c 𝐶))𝑧)𝑓)) = (((𝑦(2nd𝑀)𝑧)‘𝑔)(⟨((Homf𝐶)‘𝑥), ((Homf𝐶)‘𝑦)⟩(comp‘𝐷)((Homf𝐶)‘𝑧))((𝑥(2nd𝑀)𝑦)‘𝑓)))
24318, 19, 20, 21, 22, 23, 24, 25, 28, 32, 41, 48, 123, 165, 242isfuncd 17851 . . 3 (𝜑 → (Homf𝐶)((𝑂 ×c 𝐶) Func 𝐷)(2nd𝑀))
244 df-br 5149 . . 3 ((Homf𝐶)((𝑂 ×c 𝐶) Func 𝐷)(2nd𝑀) ↔ ⟨(Homf𝐶), (2nd𝑀)⟩ ∈ ((𝑂 ×c 𝐶) Func 𝐷))
245243, 244sylib 217 . 2 (𝜑 → ⟨(Homf𝐶), (2nd𝑀)⟩ ∈ ((𝑂 ×c 𝐶) Func 𝐷))
24614, 245eqeltrd 2829 1 (𝜑𝑀 ∈ ((𝑂 ×c 𝐶) Func 𝐷))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395  w3a 1085   = wceq 1534  wcel 2099  wral 3058  Vcvv 3471  wss 3947  cop 4635   class class class wbr 5148  cmpt 5231   I cid 5575   × cxp 5676  ran crn 5679  cres 5680   Fn wfn 6543  wf 6544  cfv 6548  (class class class)co 7420  cmpo 7422  1st c1st 7991  2nd c2nd 7992  Basecbs 17180  Hom chom 17244  compcco 17245  Catccat 17644  Idccid 17645  Homf chomf 17646  oppCatcoppc 17691   Func cfunc 17840  SetCatcsetc 18064   ×c cxpc 18159  HomFchof 18240
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-11 2147  ax-12 2167  ax-ext 2699  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5365  ax-pr 5429  ax-un 7740  ax-cnex 11195  ax-resscn 11196  ax-1cn 11197  ax-icn 11198  ax-addcl 11199  ax-addrcl 11200  ax-mulcl 11201  ax-mulrcl 11202  ax-mulcom 11203  ax-addass 11204  ax-mulass 11205  ax-distr 11206  ax-i2m1 11207  ax-1ne0 11208  ax-1rid 11209  ax-rnegex 11210  ax-rrecex 11211  ax-cnre 11212  ax-pre-lttri 11213  ax-pre-lttrn 11214  ax-pre-ltadd 11215  ax-pre-mulgt0 11216
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 847  df-3or 1086  df-3an 1087  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2530  df-eu 2559  df-clab 2706  df-cleq 2720  df-clel 2806  df-nfc 2881  df-ne 2938  df-nel 3044  df-ral 3059  df-rex 3068  df-rmo 3373  df-reu 3374  df-rab 3430  df-v 3473  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4324  df-if 4530  df-pw 4605  df-sn 4630  df-pr 4632  df-tp 4634  df-op 4636  df-uni 4909  df-iun 4998  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5576  df-eprel 5582  df-po 5590  df-so 5591  df-fr 5633  df-we 5635  df-xp 5684  df-rel 5685  df-cnv 5686  df-co 5687  df-dm 5688  df-rn 5689  df-res 5690  df-ima 5691  df-pred 6305  df-ord 6372  df-on 6373  df-lim 6374  df-suc 6375  df-iota 6500  df-fun 6550  df-fn 6551  df-f 6552  df-f1 6553  df-fo 6554  df-f1o 6555  df-fv 6556  df-riota 7376  df-ov 7423  df-oprab 7424  df-mpo 7425  df-om 7871  df-1st 7993  df-2nd 7994  df-tpos 8232  df-frecs 8287  df-wrecs 8318  df-recs 8392  df-rdg 8431  df-1o 8487  df-er 8725  df-map 8847  df-ixp 8917  df-en 8965  df-dom 8966  df-sdom 8967  df-fin 8968  df-pnf 11281  df-mnf 11282  df-xr 11283  df-ltxr 11284  df-le 11285  df-sub 11477  df-neg 11478  df-nn 12244  df-2 12306  df-3 12307  df-4 12308  df-5 12309  df-6 12310  df-7 12311  df-8 12312  df-9 12313  df-n0 12504  df-z 12590  df-dec 12709  df-uz 12854  df-fz 13518  df-struct 17116  df-sets 17133  df-slot 17151  df-ndx 17163  df-base 17181  df-hom 17257  df-cco 17258  df-cat 17648  df-cid 17649  df-homf 17650  df-oppc 17692  df-func 17844  df-setc 18065  df-xpc 18163  df-hof 18242
This theorem is referenced by:  oppchofcl  18252  oppcyon  18261  yonedalem1  18264  yonedalem21  18265  yonedalem22  18270
  Copyright terms: Public domain W3C validator