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

Theorem hofcl 16946
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 2651 . . . 4 (Base‘𝐶) = (Base‘𝐶)
4 eqid 2651 . . . 4 (Hom ‘𝐶) = (Hom ‘𝐶)
5 eqid 2651 . . . 4 (comp‘𝐶) = (comp‘𝐶)
61, 2, 3, 4, 5hofval 16939 . . 3 (𝜑𝑀 = ⟨(Homf𝐶), (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))))⟩)
7 fvex 6239 . . . . . 6 (Homf𝐶) ∈ V
8 fvex 6239 . . . . . . . 8 (Base‘𝐶) ∈ V
98, 8xpex 7004 . . . . . . 7 ((Base‘𝐶) × (Base‘𝐶)) ∈ V
109, 9mpt2ex 7292 . . . . . 6 (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)))) ∈ V
117, 10op2ndd 7221 . . . . 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 4440 . . 3 (𝜑 → ⟨(Homf𝐶), (2nd𝑀)⟩ = ⟨(Homf𝐶), (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))))⟩)
146, 13eqtr4d 2688 . 2 (𝜑𝑀 = ⟨(Homf𝐶), (2nd𝑀)⟩)
15 eqid 2651 . . . . 5 (𝑂 ×c 𝐶) = (𝑂 ×c 𝐶)
16 hofcl.o . . . . . 6 𝑂 = (oppCat‘𝐶)
1716, 3oppcbas 16425 . . . . 5 (Base‘𝐶) = (Base‘𝑂)
1815, 17, 3xpcbas 16865 . . . 4 ((Base‘𝐶) × (Base‘𝐶)) = (Base‘(𝑂 ×c 𝐶))
19 eqid 2651 . . . 4 (Base‘𝐷) = (Base‘𝐷)
20 eqid 2651 . . . 4 (Hom ‘(𝑂 ×c 𝐶)) = (Hom ‘(𝑂 ×c 𝐶))
21 eqid 2651 . . . 4 (Hom ‘𝐷) = (Hom ‘𝐷)
22 eqid 2651 . . . 4 (Id‘(𝑂 ×c 𝐶)) = (Id‘(𝑂 ×c 𝐶))
23 eqid 2651 . . . 4 (Id‘𝐷) = (Id‘𝐷)
24 eqid 2651 . . . 4 (comp‘(𝑂 ×c 𝐶)) = (comp‘(𝑂 ×c 𝐶))
25 eqid 2651 . . . 4 (comp‘𝐷) = (comp‘𝐷)
2616oppccat 16429 . . . . . 6 (𝐶 ∈ Cat → 𝑂 ∈ Cat)
272, 26syl 17 . . . . 5 (𝜑𝑂 ∈ Cat)
2815, 27, 2xpccat 16877 . . . 4 (𝜑 → (𝑂 ×c 𝐶) ∈ Cat)
29 hofcl.u . . . . 5 (𝜑𝑈𝑉)
30 hofcl.d . . . . . 6 𝐷 = (SetCat‘𝑈)
3130setccat 16782 . . . . 5 (𝑈𝑉𝐷 ∈ Cat)
3229, 31syl 17 . . . 4 (𝜑𝐷 ∈ Cat)
33 eqid 2651 . . . . . . . 8 (Homf𝐶) = (Homf𝐶)
3433, 3homffn 16400 . . . . . . 7 (Homf𝐶) Fn ((Base‘𝐶) × (Base‘𝐶))
3534a1i 11 . . . . . 6 (𝜑 → (Homf𝐶) Fn ((Base‘𝐶) × (Base‘𝐶)))
36 hofcl.h . . . . . 6 (𝜑 → ran (Homf𝐶) ⊆ 𝑈)
37 df-f 5930 . . . . . 6 ((Homf𝐶):((Base‘𝐶) × (Base‘𝐶))⟶𝑈 ↔ ((Homf𝐶) Fn ((Base‘𝐶) × (Base‘𝐶)) ∧ ran (Homf𝐶) ⊆ 𝑈))
3835, 36, 37sylanbrc 699 . . . . 5 (𝜑 → (Homf𝐶):((Base‘𝐶) × (Base‘𝐶))⟶𝑈)
3930, 29setcbas 16775 . . . . . 6 (𝜑𝑈 = (Base‘𝐷))
4039feq3d 6070 . . . . 5 (𝜑 → ((Homf𝐶):((Base‘𝐶) × (Base‘𝐶))⟶𝑈 ↔ (Homf𝐶):((Base‘𝐶) × (Base‘𝐶))⟶(Base‘𝐷)))
4138, 40mpbid 222 . . . 4 (𝜑 → (Homf𝐶):((Base‘𝐶) × (Base‘𝐶))⟶(Base‘𝐷))
42 eqid 2651 . . . . . 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 6718 . . . . . . 7 ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∈ V
44 ovex 6718 . . . . . . 7 ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ∈ V
4543, 44mpt2ex 7292 . . . . . 6 (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))) ∈ V
4642, 45fnmpt2i 7284 . . . . 5 (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)))) Fn (((Base‘𝐶) × (Base‘𝐶)) × ((Base‘𝐶) × (Base‘𝐶)))
4712fneq1d 6019 . . . . 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 248 . . . 4 (𝜑 → (2nd𝑀) Fn (((Base‘𝐶) × (Base‘𝐶)) × ((Base‘𝐶) × (Base‘𝐶))))
492ad3antrrr 766 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → 𝐶 ∈ Cat)
50 simplrr 818 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))
51 xp1st 7242 . . . . . . . . . . . . . 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 817 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)))
55 xp1st 7242 . . . . . . . . . . . . . 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 7243 . . . . . . . . . . . . . 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 817 . . . . . . . . . . . 12 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → 𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)))
62 1st2nd2 7249 . . . . . . . . . . . . . . . . 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 6705 . . . . . . . . . . . . . 14 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → (𝑥(comp‘𝐶)(2nd𝑦)) = (⟨(1st𝑥), (2nd𝑥)⟩(comp‘𝐶)(2nd𝑦)))
6665oveqd 6707 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → (𝑔(𝑥(comp‘𝐶)(2nd𝑦))) = (𝑔(⟨(1st𝑥), (2nd𝑥)⟩(comp‘𝐶)(2nd𝑦))))
67 xp2nd 7243 . . . . . . . . . . . . . . . 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 6233 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Hom ‘𝐶)‘𝑥) = ((Hom ‘𝐶)‘⟨(1st𝑥), (2nd𝑥)⟩))
71 df-ov 6693 . . . . . . . . . . . . . . . . 17 ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)) = ((Hom ‘𝐶)‘⟨(1st𝑥), (2nd𝑥)⟩)
7270, 71syl6eqr 2703 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Hom ‘𝐶)‘𝑥) = ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)))
7372eleq2d 2716 . . . . . . . . . . . . . . 15 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ( ∈ ((Hom ‘𝐶)‘𝑥) ↔ ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))))
7473biimpa 500 . . . . . . . . . . . . . 14 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)))
75 simplrr 818 . . . . . . . . . . . . . 14 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))
763, 4, 5, 49, 57, 69, 60, 74, 75catcocl 16393 . . . . . . . . . . . . 13 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → (𝑔(⟨(1st𝑥), (2nd𝑥)⟩(comp‘𝐶)(2nd𝑦))) ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑦)))
7766, 76eqeltrd 2730 . . . . . . . . . . . 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 16393 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓) ∈ ((1st𝑦)(Hom ‘𝐶)(2nd𝑦)))
79 1st2nd2 7249 . . . . . . . . . . . . . . 15 (𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) → 𝑦 = ⟨(1st𝑦), (2nd𝑦)⟩)
8050, 79syl 17 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → 𝑦 = ⟨(1st𝑦), (2nd𝑦)⟩)
8180fveq2d 6233 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Hom ‘𝐶)‘𝑦) = ((Hom ‘𝐶)‘⟨(1st𝑦), (2nd𝑦)⟩))
82 df-ov 6693 . . . . . . . . . . . . 13 ((1st𝑦)(Hom ‘𝐶)(2nd𝑦)) = ((Hom ‘𝐶)‘⟨(1st𝑦), (2nd𝑦)⟩)
8381, 82syl6eqr 2703 . . . . . . . . . . . 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 2733 . . . . . . . . . 10 ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) ∧ ∈ ((Hom ‘𝐶)‘𝑥)) → ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓) ∈ ((Hom ‘𝐶)‘𝑦))
86 eqid 2651 . . . . . . . . . 10 ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)) = ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))
8785, 86fmptd 6425 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)):((Hom ‘𝐶)‘𝑥)⟶((Hom ‘𝐶)‘𝑦))
8829ad2antrr 762 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → 𝑈𝑉)
8933, 3, 4, 56, 68homfval 16399 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((1st𝑥)(Homf𝐶)(2nd𝑥)) = ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)))
9063fveq2d 6233 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Homf𝐶)‘𝑥) = ((Homf𝐶)‘⟨(1st𝑥), (2nd𝑥)⟩))
91 df-ov 6693 . . . . . . . . . . . . 13 ((1st𝑥)(Homf𝐶)(2nd𝑥)) = ((Homf𝐶)‘⟨(1st𝑥), (2nd𝑥)⟩)
9290, 91syl6eqr 2703 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Homf𝐶)‘𝑥) = ((1st𝑥)(Homf𝐶)(2nd𝑥)))
9389, 92, 723eqtr4d 2695 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Homf𝐶)‘𝑥) = ((Hom ‘𝐶)‘𝑥))
9438ad2antrr 762 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → (Homf𝐶):((Base‘𝐶) × (Base‘𝐶))⟶𝑈)
9594, 54ffvelrnd 6400 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Homf𝐶)‘𝑥) ∈ 𝑈)
9693, 95eqeltrrd 2731 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Hom ‘𝐶)‘𝑥) ∈ 𝑈)
9733, 3, 4, 52, 59homfval 16399 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((1st𝑦)(Homf𝐶)(2nd𝑦)) = ((1st𝑦)(Hom ‘𝐶)(2nd𝑦)))
9880fveq2d 6233 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Homf𝐶)‘𝑦) = ((Homf𝐶)‘⟨(1st𝑦), (2nd𝑦)⟩))
99 df-ov 6693 . . . . . . . . . . . . 13 ((1st𝑦)(Homf𝐶)(2nd𝑦)) = ((Homf𝐶)‘⟨(1st𝑦), (2nd𝑦)⟩)
10098, 99syl6eqr 2703 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Homf𝐶)‘𝑦) = ((1st𝑦)(Homf𝐶)(2nd𝑦)))
10197, 100, 833eqtr4d 2695 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Homf𝐶)‘𝑦) = ((Hom ‘𝐶)‘𝑦))
10294, 50ffvelrnd 6400 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Homf𝐶)‘𝑦) ∈ 𝑈)
103101, 102eqeltrrd 2731 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ((Hom ‘𝐶)‘𝑦) ∈ 𝑈)
10430, 88, 21, 96, 103elsetchom 16778 . . . . . . . . 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 ‘𝐶)‘𝑦)))
10587, 104mpbird 247 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)) ∈ (((Hom ‘𝐶)‘𝑥)(Hom ‘𝐷)((Hom ‘𝐶)‘𝑦)))
10693, 101oveq12d 6708 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → (((Homf𝐶)‘𝑥)(Hom ‘𝐷)((Homf𝐶)‘𝑦)) = (((Hom ‘𝐶)‘𝑥)(Hom ‘𝐷)((Hom ‘𝐶)‘𝑦)))
107105, 106eleqtrrd 2733 . . . . . . 7 (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)) ∧ 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))) → ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)) ∈ (((Homf𝐶)‘𝑥)(Hom ‘𝐷)((Homf𝐶)‘𝑦)))
108107ralrimivva 3000 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → ∀𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥))∀𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓)) ∈ (((Homf𝐶)‘𝑥)(Hom ‘𝐷)((Homf𝐶)‘𝑦)))
109 eqid 2651 . . . . . . 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𝑦))𝑓)))
110109fmpt2 7282 . . . . . 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𝐶)‘𝑦)))
111108, 110sylib 208 . . . . 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𝐶)‘𝑦)))
11212oveqd 6707 . . . . . . 7 (𝜑 → (𝑥(2nd𝑀)𝑦) = (𝑥(𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))))𝑦))
11342ovmpt4g 6825 . . . . . . . 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𝑦))𝑓))))
11445, 113mp3an3 1453 . . . . . . 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𝑦))𝑓))))
115112, 114sylan9eq 2705 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → (𝑥(2nd𝑀)𝑦) = (𝑓 ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ( ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd𝑦)))(⟨(1st𝑦), (1st𝑥)⟩(comp‘𝐶)(2nd𝑦))𝑓))))
116 eqid 2651 . . . . . . . 8 (Hom ‘𝑂) = (Hom ‘𝑂)
117 simprl 809 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)))
118 simprr 811 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))
11915, 18, 116, 4, 20, 117, 118xpchom 16867 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) = (((1st𝑥)(Hom ‘𝑂)(1st𝑦)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))))
1204, 16oppchom 16422 . . . . . . . 8 ((1st𝑥)(Hom ‘𝑂)(1st𝑦)) = ((1st𝑦)(Hom ‘𝐶)(1st𝑥))
121120xpeq1i 5169 . . . . . . 7 (((1st𝑥)(Hom ‘𝑂)(1st𝑦)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))) = (((1st𝑦)(Hom ‘𝐶)(1st𝑥)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))
122119, 121syl6eq 2701 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) = (((1st𝑦)(Hom ‘𝐶)(1st𝑥)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))))
123115, 122feq12d 6071 . . . . 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𝐶)‘𝑦))))
124111, 123mpbird 247 . . . 4 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → (𝑥(2nd𝑀)𝑦):(𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦)⟶(((Homf𝐶)‘𝑥)(Hom ‘𝐷)((Homf𝐶)‘𝑦)))
125 eqid 2651 . . . . . . . . . 10 (Id‘𝐶) = (Id‘𝐶)
1262ad2antrr 762 . . . . . . . . . 10 (((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))) → 𝐶 ∈ Cat)
12755adantl 481 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (1st𝑥) ∈ (Base‘𝐶))
128127adantr 480 . . . . . . . . . 10 (((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))) → (1st𝑥) ∈ (Base‘𝐶))
12967adantl 481 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (2nd𝑥) ∈ (Base‘𝐶))
130129adantr 480 . . . . . . . . . 10 (((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))) → (2nd𝑥) ∈ (Base‘𝐶))
131 simpr 476 . . . . . . . . . 10 (((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))) → 𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)))
1323, 4, 125, 126, 128, 5, 130, 131catlid 16391 . . . . . . . . 9 (((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))) → (((Id‘𝐶)‘(2nd𝑥))(⟨(1st𝑥), (2nd𝑥)⟩(comp‘𝐶)(2nd𝑥))𝑓) = 𝑓)
133132oveq1d 6705 . . . . . . . 8 (((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))) → ((((Id‘𝐶)‘(2nd𝑥))(⟨(1st𝑥), (2nd𝑥)⟩(comp‘𝐶)(2nd𝑥))𝑓)(⟨(1st𝑥), (1st𝑥)⟩(comp‘𝐶)(2nd𝑥))((Id‘𝐶)‘(1st𝑥))) = (𝑓(⟨(1st𝑥), (1st𝑥)⟩(comp‘𝐶)(2nd𝑥))((Id‘𝐶)‘(1st𝑥))))
1343, 4, 125, 126, 128, 5, 130, 131catrid 16392 . . . . . . . 8 (((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))) → (𝑓(⟨(1st𝑥), (1st𝑥)⟩(comp‘𝐶)(2nd𝑥))((Id‘𝐶)‘(1st𝑥))) = 𝑓)
135133, 134eqtrd 2685 . . . . . . 7 (((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))) → ((((Id‘𝐶)‘(2nd𝑥))(⟨(1st𝑥), (2nd𝑥)⟩(comp‘𝐶)(2nd𝑥))𝑓)(⟨(1st𝑥), (1st𝑥)⟩(comp‘𝐶)(2nd𝑥))((Id‘𝐶)‘(1st𝑥))) = 𝑓)
136135mpteq2dva 4777 . . . . . 6 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)) ↦ ((((Id‘𝐶)‘(2nd𝑥))(⟨(1st𝑥), (2nd𝑥)⟩(comp‘𝐶)(2nd𝑥))𝑓)(⟨(1st𝑥), (1st𝑥)⟩(comp‘𝐶)(2nd𝑥))((Id‘𝐶)‘(1st𝑥)))) = (𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)) ↦ 𝑓))
137 df-ov 6693 . . . . . . 7 (((Id‘𝐶)‘(1st𝑥))(⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑥), (2nd𝑥)⟩)((Id‘𝐶)‘(2nd𝑥))) = ((⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑥), (2nd𝑥)⟩)‘⟨((Id‘𝐶)‘(1st𝑥)), ((Id‘𝐶)‘(2nd𝑥))⟩)
1382adantr 480 . . . . . . . 8 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → 𝐶 ∈ Cat)
1393, 4, 125, 138, 127catidcl 16390 . . . . . . . 8 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘𝐶)‘(1st𝑥)) ∈ ((1st𝑥)(Hom ‘𝐶)(1st𝑥)))
1403, 4, 125, 138, 129catidcl 16390 . . . . . . . 8 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘𝐶)‘(2nd𝑥)) ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑥)))
1411, 138, 3, 4, 127, 129, 127, 129, 5, 139, 140hof2val 16943 . . . . . . 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𝑥)))))
142137, 141syl5eqr 2699 . . . . . 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𝑥)))))
14362adantl 481 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → 𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩)
144143fveq2d 6233 . . . . . . . . . 10 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Homf𝐶)‘𝑥) = ((Homf𝐶)‘⟨(1st𝑥), (2nd𝑥)⟩))
145144, 91syl6eqr 2703 . . . . . . . . 9 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Homf𝐶)‘𝑥) = ((1st𝑥)(Homf𝐶)(2nd𝑥)))
14633, 3, 4, 127, 129homfval 16399 . . . . . . . . 9 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((1st𝑥)(Homf𝐶)(2nd𝑥)) = ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)))
147145, 146eqtrd 2685 . . . . . . . 8 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Homf𝐶)‘𝑥) = ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)))
148147reseq2d 5428 . . . . . . 7 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ( I ↾ ((Homf𝐶)‘𝑥)) = ( I ↾ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥))))
149 mptresid 5491 . . . . . . 7 (𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)) ↦ 𝑓) = ( I ↾ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)))
150148, 149syl6eqr 2703 . . . . . 6 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ( I ↾ ((Homf𝐶)‘𝑥)) = (𝑓 ∈ ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)) ↦ 𝑓))
151136, 142, 1503eqtr4d 2695 . . . . 5 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑥), (2nd𝑥)⟩)‘⟨((Id‘𝐶)‘(1st𝑥)), ((Id‘𝐶)‘(2nd𝑥))⟩) = ( I ↾ ((Homf𝐶)‘𝑥)))
152143, 143oveq12d 6708 . . . . . 6 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (𝑥(2nd𝑀)𝑥) = (⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑥), (2nd𝑥)⟩))
153143fveq2d 6233 . . . . . . 7 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘(𝑂 ×c 𝐶))‘𝑥) = ((Id‘(𝑂 ×c 𝐶))‘⟨(1st𝑥), (2nd𝑥)⟩))
15427adantr 480 . . . . . . . 8 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → 𝑂 ∈ Cat)
155 eqid 2651 . . . . . . . 8 (Id‘𝑂) = (Id‘𝑂)
15615, 154, 138, 17, 3, 155, 125, 22, 127, 129xpcid 16876 . . . . . . 7 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘(𝑂 ×c 𝐶))‘⟨(1st𝑥), (2nd𝑥)⟩) = ⟨((Id‘𝑂)‘(1st𝑥)), ((Id‘𝐶)‘(2nd𝑥))⟩)
15716, 125oppcid 16428 . . . . . . . . . 10 (𝐶 ∈ Cat → (Id‘𝑂) = (Id‘𝐶))
158138, 157syl 17 . . . . . . . . 9 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (Id‘𝑂) = (Id‘𝐶))
159158fveq1d 6231 . . . . . . . 8 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘𝑂)‘(1st𝑥)) = ((Id‘𝐶)‘(1st𝑥)))
160159opeq1d 4439 . . . . . . 7 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ⟨((Id‘𝑂)‘(1st𝑥)), ((Id‘𝐶)‘(2nd𝑥))⟩ = ⟨((Id‘𝐶)‘(1st𝑥)), ((Id‘𝐶)‘(2nd𝑥))⟩)
161153, 156, 1603eqtrd 2689 . . . . . 6 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘(𝑂 ×c 𝐶))‘𝑥) = ⟨((Id‘𝐶)‘(1st𝑥)), ((Id‘𝐶)‘(2nd𝑥))⟩)
162152, 161fveq12d 6235 . . . . 5 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((𝑥(2nd𝑀)𝑥)‘((Id‘(𝑂 ×c 𝐶))‘𝑥)) = ((⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑥), (2nd𝑥)⟩)‘⟨((Id‘𝐶)‘(1st𝑥)), ((Id‘𝐶)‘(2nd𝑥))⟩))
16329adantr 480 . . . . . 6 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → 𝑈𝑉)
16438ffvelrnda 6399 . . . . . 6 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Homf𝐶)‘𝑥) ∈ 𝑈)
16530, 23, 163, 164setcid 16783 . . . . 5 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘𝐷)‘((Homf𝐶)‘𝑥)) = ( I ↾ ((Homf𝐶)‘𝑥)))
166151, 162, 1653eqtr4d 2695 . . . 4 ((𝜑𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((𝑥(2nd𝑀)𝑥)‘((Id‘(𝑂 ×c 𝐶))‘𝑥)) = ((Id‘𝐷)‘((Homf𝐶)‘𝑥)))
16723ad2ant1 1102 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝐶 ∈ Cat)
168293ad2ant1 1102 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑈𝑉)
169363ad2ant1 1102 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ran (Homf𝐶) ⊆ 𝑈)
170 simp21 1114 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)))
171170, 55syl 17 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st𝑥) ∈ (Base‘𝐶))
172170, 67syl 17 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (2nd𝑥) ∈ (Base‘𝐶))
173 simp22 1115 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))
174173, 51syl 17 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st𝑦) ∈ (Base‘𝐶))
175173, 58syl 17 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (2nd𝑦) ∈ (Base‘𝐶))
176 simp23 1116 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶)))
177 xp1st 7242 . . . . . . 7 (𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶)) → (1st𝑧) ∈ (Base‘𝐶))
178176, 177syl 17 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st𝑧) ∈ (Base‘𝐶))
179 xp2nd 7243 . . . . . . 7 (𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶)) → (2nd𝑧) ∈ (Base‘𝐶))
180176, 179syl 17 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (2nd𝑧) ∈ (Base‘𝐶))
181 simp3l 1109 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦))
18215, 18, 116, 4, 20, 170, 173xpchom 16867 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) = (((1st𝑥)(Hom ‘𝑂)(1st𝑦)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))))
183181, 182eleqtrd 2732 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑓 ∈ (((1st𝑥)(Hom ‘𝑂)(1st𝑦)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))))
184 xp1st 7242 . . . . . . . 8 (𝑓 ∈ (((1st𝑥)(Hom ‘𝑂)(1st𝑦)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))) → (1st𝑓) ∈ ((1st𝑥)(Hom ‘𝑂)(1st𝑦)))
185183, 184syl 17 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st𝑓) ∈ ((1st𝑥)(Hom ‘𝑂)(1st𝑦)))
186185, 120syl6eleq 2740 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st𝑓) ∈ ((1st𝑦)(Hom ‘𝐶)(1st𝑥)))
187 xp2nd 7243 . . . . . . 7 (𝑓 ∈ (((1st𝑥)(Hom ‘𝑂)(1st𝑦)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))) → (2nd𝑓) ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))
188183, 187syl 17 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (2nd𝑓) ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)))
189 simp3r 1110 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))
19015, 18, 116, 4, 20, 173, 176xpchom 16867 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧) = (((1st𝑦)(Hom ‘𝑂)(1st𝑧)) × ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧))))
191189, 190eleqtrd 2732 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑔 ∈ (((1st𝑦)(Hom ‘𝑂)(1st𝑧)) × ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧))))
192 xp1st 7242 . . . . . . . 8 (𝑔 ∈ (((1st𝑦)(Hom ‘𝑂)(1st𝑧)) × ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧))) → (1st𝑔) ∈ ((1st𝑦)(Hom ‘𝑂)(1st𝑧)))
193191, 192syl 17 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st𝑔) ∈ ((1st𝑦)(Hom ‘𝑂)(1st𝑧)))
1944, 16oppchom 16422 . . . . . . 7 ((1st𝑦)(Hom ‘𝑂)(1st𝑧)) = ((1st𝑧)(Hom ‘𝐶)(1st𝑦))
195193, 194syl6eleq 2740 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st𝑔) ∈ ((1st𝑧)(Hom ‘𝐶)(1st𝑦)))
196 xp2nd 7243 . . . . . . 7 (𝑔 ∈ (((1st𝑦)(Hom ‘𝑂)(1st𝑧)) × ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧))) → (2nd𝑔) ∈ ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧)))
197191, 196syl 17 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (2nd𝑔) ∈ ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧)))
1981, 16, 30, 167, 168, 169, 3, 4, 171, 172, 174, 175, 178, 180, 186, 188, 195, 197hofcllem 16945 . . . . 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𝑓))))
199170, 62syl 17 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩)
200 1st2nd2 7249 . . . . . . . . 9 (𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶)) → 𝑧 = ⟨(1st𝑧), (2nd𝑧)⟩)
201176, 200syl 17 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑧 = ⟨(1st𝑧), (2nd𝑧)⟩)
202199, 201oveq12d 6708 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑥(2nd𝑀)𝑧) = (⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑧), (2nd𝑧)⟩))
203173, 79syl 17 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑦 = ⟨(1st𝑦), (2nd𝑦)⟩)
204199, 203opeq12d 4441 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ⟨𝑥, 𝑦⟩ = ⟨⟨(1st𝑥), (2nd𝑥)⟩, ⟨(1st𝑦), (2nd𝑦)⟩⟩)
205204, 201oveq12d 6708 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (⟨𝑥, 𝑦⟩(comp‘(𝑂 ×c 𝐶))𝑧) = (⟨⟨(1st𝑥), (2nd𝑥)⟩, ⟨(1st𝑦), (2nd𝑦)⟩⟩(comp‘(𝑂 ×c 𝐶))⟨(1st𝑧), (2nd𝑧)⟩))
206 1st2nd2 7249 . . . . . . . . . 10 (𝑔 ∈ (((1st𝑦)(Hom ‘𝑂)(1st𝑧)) × ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧))) → 𝑔 = ⟨(1st𝑔), (2nd𝑔)⟩)
207191, 206syl 17 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑔 = ⟨(1st𝑔), (2nd𝑔)⟩)
208 1st2nd2 7249 . . . . . . . . . 10 (𝑓 ∈ (((1st𝑥)(Hom ‘𝑂)(1st𝑦)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))) → 𝑓 = ⟨(1st𝑓), (2nd𝑓)⟩)
209183, 208syl 17 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑓 = ⟨(1st𝑓), (2nd𝑓)⟩)
210205, 207, 209oveq123d 6711 . . . . . . . 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𝑓)⟩))
211 eqid 2651 . . . . . . . . 9 (comp‘𝑂) = (comp‘𝑂)
21215, 17, 3, 116, 4, 171, 172, 174, 175, 211, 5, 24, 178, 180, 185, 188, 193, 197xpcco2 16874 . . . . . . . 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𝑓))⟩)
2133, 5, 16, 171, 174, 178oppcco 16424 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((1st𝑔)(⟨(1st𝑥), (1st𝑦)⟩(comp‘𝑂)(1st𝑧))(1st𝑓)) = ((1st𝑓)(⟨(1st𝑧), (1st𝑦)⟩(comp‘𝐶)(1st𝑥))(1st𝑔)))
214213opeq1d 4439 . . . . . . . 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𝑓))⟩)
215210, 212, 2143eqtrd 2689 . . . . . . 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𝑓))⟩)
216202, 215fveq12d 6235 . . . . . 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𝑓))⟩))
217 df-ov 6693 . . . . . 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𝑓))⟩)
218216, 217syl6eqr 2703 . . . . 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𝑓))))
219199fveq2d 6233 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf𝐶)‘𝑥) = ((Homf𝐶)‘⟨(1st𝑥), (2nd𝑥)⟩))
220219, 91syl6eqr 2703 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf𝐶)‘𝑥) = ((1st𝑥)(Homf𝐶)(2nd𝑥)))
22133, 3, 4, 171, 172homfval 16399 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((1st𝑥)(Homf𝐶)(2nd𝑥)) = ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)))
222220, 221eqtrd 2685 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf𝐶)‘𝑥) = ((1st𝑥)(Hom ‘𝐶)(2nd𝑥)))
223203fveq2d 6233 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf𝐶)‘𝑦) = ((Homf𝐶)‘⟨(1st𝑦), (2nd𝑦)⟩))
224223, 99syl6eqr 2703 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf𝐶)‘𝑦) = ((1st𝑦)(Homf𝐶)(2nd𝑦)))
22533, 3, 4, 174, 175homfval 16399 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((1st𝑦)(Homf𝐶)(2nd𝑦)) = ((1st𝑦)(Hom ‘𝐶)(2nd𝑦)))
226224, 225eqtrd 2685 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf𝐶)‘𝑦) = ((1st𝑦)(Hom ‘𝐶)(2nd𝑦)))
227222, 226opeq12d 4441 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ⟨((Homf𝐶)‘𝑥), ((Homf𝐶)‘𝑦)⟩ = ⟨((1st𝑥)(Hom ‘𝐶)(2nd𝑥)), ((1st𝑦)(Hom ‘𝐶)(2nd𝑦))⟩)
228201fveq2d 6233 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf𝐶)‘𝑧) = ((Homf𝐶)‘⟨(1st𝑧), (2nd𝑧)⟩))
229 df-ov 6693 . . . . . . . . 9 ((1st𝑧)(Homf𝐶)(2nd𝑧)) = ((Homf𝐶)‘⟨(1st𝑧), (2nd𝑧)⟩)
230228, 229syl6eqr 2703 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf𝐶)‘𝑧) = ((1st𝑧)(Homf𝐶)(2nd𝑧)))
23133, 3, 4, 178, 180homfval 16399 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((1st𝑧)(Homf𝐶)(2nd𝑧)) = ((1st𝑧)(Hom ‘𝐶)(2nd𝑧)))
232230, 231eqtrd 2685 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf𝐶)‘𝑧) = ((1st𝑧)(Hom ‘𝐶)(2nd𝑧)))
233227, 232oveq12d 6708 . . . . . 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𝑧))))
234203, 201oveq12d 6708 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑦(2nd𝑀)𝑧) = (⟨(1st𝑦), (2nd𝑦)⟩(2nd𝑀)⟨(1st𝑧), (2nd𝑧)⟩))
235234, 207fveq12d 6235 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑦(2nd𝑀)𝑧)‘𝑔) = ((⟨(1st𝑦), (2nd𝑦)⟩(2nd𝑀)⟨(1st𝑧), (2nd𝑧)⟩)‘⟨(1st𝑔), (2nd𝑔)⟩))
236 df-ov 6693 . . . . . . 7 ((1st𝑔)(⟨(1st𝑦), (2nd𝑦)⟩(2nd𝑀)⟨(1st𝑧), (2nd𝑧)⟩)(2nd𝑔)) = ((⟨(1st𝑦), (2nd𝑦)⟩(2nd𝑀)⟨(1st𝑧), (2nd𝑧)⟩)‘⟨(1st𝑔), (2nd𝑔)⟩)
237235, 236syl6eqr 2703 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑦(2nd𝑀)𝑧)‘𝑔) = ((1st𝑔)(⟨(1st𝑦), (2nd𝑦)⟩(2nd𝑀)⟨(1st𝑧), (2nd𝑧)⟩)(2nd𝑔)))
238199, 203oveq12d 6708 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑥(2nd𝑀)𝑦) = (⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑦), (2nd𝑦)⟩))
239238, 209fveq12d 6235 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑥(2nd𝑀)𝑦)‘𝑓) = ((⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑦), (2nd𝑦)⟩)‘⟨(1st𝑓), (2nd𝑓)⟩))
240 df-ov 6693 . . . . . . 7 ((1st𝑓)(⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑦), (2nd𝑦)⟩)(2nd𝑓)) = ((⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑦), (2nd𝑦)⟩)‘⟨(1st𝑓), (2nd𝑓)⟩)
241239, 240syl6eqr 2703 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑥(2nd𝑀)𝑦)‘𝑓) = ((1st𝑓)(⟨(1st𝑥), (2nd𝑥)⟩(2nd𝑀)⟨(1st𝑦), (2nd𝑦)⟩)(2nd𝑓)))
242233, 237, 241oveq123d 6711 . . . . 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𝑓))))
243198, 218, 2423eqtr4d 2695 . . . 4 ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑥(2nd𝑀)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘(𝑂 ×c 𝐶))𝑧)𝑓)) = (((𝑦(2nd𝑀)𝑧)‘𝑔)(⟨((Homf𝐶)‘𝑥), ((Homf𝐶)‘𝑦)⟩(comp‘𝐷)((Homf𝐶)‘𝑧))((𝑥(2nd𝑀)𝑦)‘𝑓)))
24418, 19, 20, 21, 22, 23, 24, 25, 28, 32, 41, 48, 124, 166, 243isfuncd 16572 . . 3 (𝜑 → (Homf𝐶)((𝑂 ×c 𝐶) Func 𝐷)(2nd𝑀))
245 df-br 4686 . . 3 ((Homf𝐶)((𝑂 ×c 𝐶) Func 𝐷)(2nd𝑀) ↔ ⟨(Homf𝐶), (2nd𝑀)⟩ ∈ ((𝑂 ×c 𝐶) Func 𝐷))
246244, 245sylib 208 . 2 (𝜑 → ⟨(Homf𝐶), (2nd𝑀)⟩ ∈ ((𝑂 ×c 𝐶) Func 𝐷))
24714, 246eqeltrd 2730 1 (𝜑𝑀 ∈ ((𝑂 ×c 𝐶) Func 𝐷))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 383  w3a 1054   = wceq 1523  wcel 2030  wral 2941  Vcvv 3231  wss 3607  cop 4216   class class class wbr 4685  cmpt 4762   I cid 5052   × cxp 5141  ran crn 5144  cres 5145   Fn wfn 5921  wf 5922  cfv 5926  (class class class)co 6690  cmpt2 6692  1st c1st 7208  2nd c2nd 7209  Basecbs 15904  Hom chom 15999  compcco 16000  Catccat 16372  Idccid 16373  Homf chomf 16374  oppCatcoppc 16418   Func cfunc 16561  SetCatcsetc 16772   ×c cxpc 16855  HomFchof 16935
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1762  ax-4 1777  ax-5 1879  ax-6 1945  ax-7 1981  ax-8 2032  ax-9 2039  ax-10 2059  ax-11 2074  ax-12 2087  ax-13 2282  ax-ext 2631  ax-rep 4804  ax-sep 4814  ax-nul 4822  ax-pow 4873  ax-pr 4936  ax-un 6991  ax-cnex 10030  ax-resscn 10031  ax-1cn 10032  ax-icn 10033  ax-addcl 10034  ax-addrcl 10035  ax-mulcl 10036  ax-mulrcl 10037  ax-mulcom 10038  ax-addass 10039  ax-mulass 10040  ax-distr 10041  ax-i2m1 10042  ax-1ne0 10043  ax-1rid 10044  ax-rnegex 10045  ax-rrecex 10046  ax-cnre 10047  ax-pre-lttri 10048  ax-pre-lttrn 10049  ax-pre-ltadd 10050  ax-pre-mulgt0 10051
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1055  df-3an 1056  df-tru 1526  df-fal 1529  df-ex 1745  df-nf 1750  df-sb 1938  df-eu 2502  df-mo 2503  df-clab 2638  df-cleq 2644  df-clel 2647  df-nfc 2782  df-ne 2824  df-nel 2927  df-ral 2946  df-rex 2947  df-reu 2948  df-rmo 2949  df-rab 2950  df-v 3233  df-sbc 3469  df-csb 3567  df-dif 3610  df-un 3612  df-in 3614  df-ss 3621  df-pss 3623  df-nul 3949  df-if 4120  df-pw 4193  df-sn 4211  df-pr 4213  df-tp 4215  df-op 4217  df-uni 4469  df-int 4508  df-iun 4554  df-br 4686  df-opab 4746  df-mpt 4763  df-tr 4786  df-id 5053  df-eprel 5058  df-po 5064  df-so 5065  df-fr 5102  df-we 5104  df-xp 5149  df-rel 5150  df-cnv 5151  df-co 5152  df-dm 5153  df-rn 5154  df-res 5155  df-ima 5156  df-pred 5718  df-ord 5764  df-on 5765  df-lim 5766  df-suc 5767  df-iota 5889  df-fun 5928  df-fn 5929  df-f 5930  df-f1 5931  df-fo 5932  df-f1o 5933  df-fv 5934  df-riota 6651  df-ov 6693  df-oprab 6694  df-mpt2 6695  df-om 7108  df-1st 7210  df-2nd 7211  df-tpos 7397  df-wrecs 7452  df-recs 7513  df-rdg 7551  df-1o 7605  df-oadd 7609  df-er 7787  df-map 7901  df-ixp 7951  df-en 7998  df-dom 7999  df-sdom 8000  df-fin 8001  df-pnf 10114  df-mnf 10115  df-xr 10116  df-ltxr 10117  df-le 10118  df-sub 10306  df-neg 10307  df-nn 11059  df-2 11117  df-3 11118  df-4 11119  df-5 11120  df-6 11121  df-7 11122  df-8 11123  df-9 11124  df-n0 11331  df-z 11416  df-dec 11532  df-uz 11726  df-fz 12365  df-struct 15906  df-ndx 15907  df-slot 15908  df-base 15910  df-sets 15911  df-hom 16013  df-cco 16014  df-cat 16376  df-cid 16377  df-homf 16378  df-oppc 16419  df-func 16565  df-setc 16773  df-xpc 16859  df-hof 16937
This theorem is referenced by:  oppchofcl  16947  oppcyon  16956  yonedalem1  16959  yonedalem21  16960  yonedalem22  16965
  Copyright terms: Public domain W3C validator