Theorem hofcl 18350

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.

Step	Hyp	Ref	Expression
1		hofcl.m	. . . 4 ⊢ 𝑀 = (HomF‘𝐶)
2		hofcl.c	. . . 4 ⊢ (𝜑 → 𝐶 ∈ Cat)
3		eqid 2760	. . . 4 ⊢ (Base‘𝐶) = (Base‘𝐶)
4		eqid 2760	. . . 4 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
5		eqid 2760	. . . 4 ⊢ (comp‘𝐶) = (comp‘𝐶)
6	1, 2, 3, 4, 5	hofval 18343	. . 3 ⊢ (𝜑 → 𝑀 = ⟨(Homf ‘𝐶), (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)), 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)) ↦ (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓))))⟩)
7		fvex 6892	. . . . . 6 ⊢ (Homf ‘𝐶) ∈ V
8		fvex 6892	. . . . . . . 8 ⊢ (Base‘𝐶) ∈ V
9	8, 8	xpex 7753	. . . . . . 7 ⊢ ((Base‘𝐶) × (Base‘𝐶)) ∈ V
10	9, 9	mpoex 8079	. . . . . 6 ⊢ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)), 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)) ↦ (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓)))) ∈ V
11	7, 10	op2ndd 7998	. . . . 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 ‘𝑦))𝑓)))))
12	6, 11	syl 18	. . . 4 ⊢ (𝜑 → (2nd ‘𝑀) = (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)), 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)) ↦ (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓)))))
13	12	opeq2d 4840	. . 3 ⊢ (𝜑 → ⟨(Homf ‘𝐶), (2nd ‘𝑀)⟩ = ⟨(Homf ‘𝐶), (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)), 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)) ↦ (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓))))⟩)
14	6, 13	eqtr4d 2798	. 2 ⊢ (𝜑 → 𝑀 = ⟨(Homf ‘𝐶), (2nd ‘𝑀)⟩)
15		eqid 2760	. . . . 5 ⊢ (𝑂 ×c 𝐶) = (𝑂 ×c 𝐶)
16		hofcl.o	. . . . . 6 ⊢ 𝑂 = (oppCat‘𝐶)
17	16, 3	oppcbas 17809	. . . . 5 ⊢ (Base‘𝐶) = (Base‘𝑂)
18	15, 17, 3	xpcbas 18269	. . . 4 ⊢ ((Base‘𝐶) × (Base‘𝐶)) = (Base‘(𝑂 ×c 𝐶))
19		eqid 2760	. . . 4 ⊢ (Base‘𝐷) = (Base‘𝐷)
20		eqid 2760	. . . 4 ⊢ (Hom ‘(𝑂 ×c 𝐶)) = (Hom ‘(𝑂 ×c 𝐶))
21		eqid 2760	. . . 4 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
22		eqid 2760	. . . 4 ⊢ (Id‘(𝑂 ×c 𝐶)) = (Id‘(𝑂 ×c 𝐶))
23		eqid 2760	. . . 4 ⊢ (Id‘𝐷) = (Id‘𝐷)
24		eqid 2760	. . . 4 ⊢ (comp‘(𝑂 ×c 𝐶)) = (comp‘(𝑂 ×c 𝐶))
25		eqid 2760	. . . 4 ⊢ (comp‘𝐷) = (comp‘𝐷)
26	16	oppccat 17813	. . . . . 6 ⊢ (𝐶 ∈ Cat → 𝑂 ∈ Cat)
27	2, 26	syl 18	. . . . 5 ⊢ (𝜑 → 𝑂 ∈ Cat)
28	15, 27, 2	xpccat 18281	. . . 4 ⊢ (𝜑 → (𝑂 ×c 𝐶) ∈ Cat)
29		hofcl.u	. . . . 5 ⊢ (𝜑 → 𝑈 ∈ 𝑉)
30		hofcl.d	. . . . . 6 ⊢ 𝐷 = (SetCat‘𝑈)
31	30	setccat 18177	. . . . 5 ⊢ (𝑈 ∈ 𝑉 → 𝐷 ∈ Cat)
32	29, 31	syl 18	. . . 4 ⊢ (𝜑 → 𝐷 ∈ Cat)
33		eqid 2760	. . . . . . . 8 ⊢ (Homf ‘𝐶) = (Homf ‘𝐶)
34	33, 3	homffn 17784	. . . . . . 7 ⊢ (Homf ‘𝐶) Fn ((Base‘𝐶) × (Base‘𝐶))
35	34	a1i 11	. . . . . 6 ⊢ (𝜑 → (Homf ‘𝐶) Fn ((Base‘𝐶) × (Base‘𝐶)))
36		hofcl.h	. . . . . 6 ⊢ (𝜑 → ran (Homf ‘𝐶) ⊆ 𝑈)
37		df-f 6537	. . . . . 6 ⊢ ((Homf ‘𝐶):((Base‘𝐶) × (Base‘𝐶))⟶𝑈 ↔ ((Homf ‘𝐶) Fn ((Base‘𝐶) × (Base‘𝐶)) ∧ ran (Homf ‘𝐶) ⊆ 𝑈))
38	35, 36, 37	sylanbrc 595	. . . . 5 ⊢ (𝜑 → (Homf ‘𝐶):((Base‘𝐶) × (Base‘𝐶))⟶𝑈)
39	30, 29	setcbas 18170	. . . . . 6 ⊢ (𝜑 → 𝑈 = (Base‘𝐷))
40	39	feq3d 6688	. . . . 5 ⊢ (𝜑 → ((Homf ‘𝐶):((Base‘𝐶) × (Base‘𝐶))⟶𝑈 ↔ (Homf ‘𝐶):((Base‘𝐶) × (Base‘𝐶))⟶(Base‘𝐷)))
41	38, 40	mpbid 235	. . . 4 ⊢ (𝜑 → (Homf ‘𝐶):((Base‘𝐶) × (Base‘𝐶))⟶(Base‘𝐷))
42		eqid 2760	. . . . . 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 7447	. . . . . . 7 ⊢ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∈ V
44		ovex 7447	. . . . . . 7 ⊢ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)) ∈ V
45	43, 44	mpoex 8079	. . . . . 6 ⊢ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)), 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)) ↦ (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓))) ∈ V
46	42, 45	fnmpoi 8068	. . . . 5 ⊢ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)), 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)) ↦ (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓)))) Fn (((Base‘𝐶) × (Base‘𝐶)) × ((Base‘𝐶) × (Base‘𝐶)))
47	12	fneq1d 6626	. . . . 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‘𝐶)))))
48	46, 47	mpbiri 261	. . . 4 ⊢ (𝜑 → (2nd ‘𝑀) Fn (((Base‘𝐶) × (Base‘𝐶)) × ((Base‘𝐶) × (Base‘𝐶))))
49	2	ad3antrrr 743	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → 𝐶 ∈ Cat)
50		simplrr 790	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))
51		xp1st 8019	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) → (1st ‘𝑦) ∈ (Base‘𝐶))
52	50, 51	syl 18	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → (1st ‘𝑦) ∈ (Base‘𝐶))
53	52	adantr 486	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → (1st ‘𝑦) ∈ (Base‘𝐶))
54		simplrl 789	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)))
55		xp1st 8019	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) → (1st ‘𝑥) ∈ (Base‘𝐶))
56	54, 55	syl 18	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → (1st ‘𝑥) ∈ (Base‘𝐶))
57	56	adantr 486	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → (1st ‘𝑥) ∈ (Base‘𝐶))
58		xp2nd 8020	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) → (2nd ‘𝑦) ∈ (Base‘𝐶))
59	50, 58	syl 18	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → (2nd ‘𝑦) ∈ (Base‘𝐶))
60	59	adantr 486	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → (2nd ‘𝑦) ∈ (Base‘𝐶))
61		simplrl 789	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → 𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)))
62		1st2nd2 8026	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) → 𝑥 = ⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)
63	54, 62	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → 𝑥 = ⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)
64	63	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → 𝑥 = ⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)
65	64	oveq1d 7429	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → (𝑥(comp‘𝐶)(2nd ‘𝑦)) = (⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦)))
66	65	oveqd 7431	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → (𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ) = (𝑔(⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))ℎ))
67		xp2nd 8020	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) → (2nd ‘𝑥) ∈ (Base‘𝐶))
68	54, 67	syl 18	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → (2nd ‘𝑥) ∈ (Base‘𝐶))
69	68	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → (2nd ‘𝑥) ∈ (Base‘𝐶))
70	63	fveq2d 6883	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Hom ‘𝐶)‘𝑥) = ((Hom ‘𝐶)‘⟨(1st ‘𝑥), (2nd ‘𝑥)⟩))
71		df-ov 7417	. . . . . . . . . . . . . . . . 17 ⊢ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)) = ((Hom ‘𝐶)‘⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)
72	70, 71	eqtr4di 2813	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Hom ‘𝐶)‘𝑥) = ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)))
73	72	eleq2d 2846	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↔ ℎ ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))))
74	73	biimpa 482	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → ℎ ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)))
75		simplrr 790	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))
76	3, 4, 5, 49, 57, 69, 60, 74, 75	catcocl 17776	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → (𝑔(⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))ℎ) ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))
77	66, 76	eqeltrd 2860	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → (𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ) ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))
78	3, 4, 5, 49, 53, 57, 60, 61, 77	catcocl 17776	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓) ∈ ((1st ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑦)))
79		1st2nd2 8026	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) → 𝑦 = ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)
80	50, 79	syl 18	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → 𝑦 = ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)
81	80	fveq2d 6883	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Hom ‘𝐶)‘𝑦) = ((Hom ‘𝐶)‘⟨(1st ‘𝑦), (2nd ‘𝑦)⟩))
82		df-ov 7417	. . . . . . . . . . . . 13 ⊢ ((1st ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑦)) = ((Hom ‘𝐶)‘⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)
83	81, 82	eqtr4di 2813	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Hom ‘𝐶)‘𝑦) = ((1st ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑦)))
84	83	adantr 486	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → ((Hom ‘𝐶)‘𝑦) = ((1st ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑦)))
85	78, 84	eleqtrrd 2863	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓) ∈ ((Hom ‘𝐶)‘𝑦))
86	85	fmpttd 7109	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓)):((Hom ‘𝐶)‘𝑥)⟶((Hom ‘𝐶)‘𝑦))
87	29	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → 𝑈 ∈ 𝑉)
88	33, 3, 4, 56, 68	homfval 17783	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((1st ‘𝑥)(Homf ‘𝐶)(2nd ‘𝑥)) = ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)))
89	63	fveq2d 6883	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Homf ‘𝐶)‘𝑥) = ((Homf ‘𝐶)‘⟨(1st ‘𝑥), (2nd ‘𝑥)⟩))
90		df-ov 7417	. . . . . . . . . . . . 13 ⊢ ((1st ‘𝑥)(Homf ‘𝐶)(2nd ‘𝑥)) = ((Homf ‘𝐶)‘⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)
91	89, 90	eqtr4di 2813	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Homf ‘𝐶)‘𝑥) = ((1st ‘𝑥)(Homf ‘𝐶)(2nd ‘𝑥)))
92	88, 91, 72	3eqtr4d 2805	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Homf ‘𝐶)‘𝑥) = ((Hom ‘𝐶)‘𝑥))
93	38	ad2antrr 739	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → (Homf ‘𝐶):((Base‘𝐶) × (Base‘𝐶))⟶𝑈)
94	93, 54	ffvelcdmd 7079	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Homf ‘𝐶)‘𝑥) ∈ 𝑈)
95	92, 94	eqeltrrd 2861	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Hom ‘𝐶)‘𝑥) ∈ 𝑈)
96	33, 3, 4, 52, 59	homfval 17783	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((1st ‘𝑦)(Homf ‘𝐶)(2nd ‘𝑦)) = ((1st ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑦)))
97	80	fveq2d 6883	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Homf ‘𝐶)‘𝑦) = ((Homf ‘𝐶)‘⟨(1st ‘𝑦), (2nd ‘𝑦)⟩))
98		df-ov 7417	. . . . . . . . . . . . 13 ⊢ ((1st ‘𝑦)(Homf ‘𝐶)(2nd ‘𝑦)) = ((Homf ‘𝐶)‘⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)
99	97, 98	eqtr4di 2813	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Homf ‘𝐶)‘𝑦) = ((1st ‘𝑦)(Homf ‘𝐶)(2nd ‘𝑦)))
100	96, 99, 83	3eqtr4d 2805	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Homf ‘𝐶)‘𝑦) = ((Hom ‘𝐶)‘𝑦))
101	93, 50	ffvelcdmd 7079	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Homf ‘𝐶)‘𝑦) ∈ 𝑈)
102	100, 101	eqeltrrd 2861	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Hom ‘𝐶)‘𝑦) ∈ 𝑈)
103	30, 87, 21, 95, 102	elsetchom 18173	. . . . . . . . 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 ‘𝐶)‘𝑦)))
104	86, 103	mpbird 260	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓)) ∈ (((Hom ‘𝐶)‘𝑥)(Hom ‘𝐷)((Hom ‘𝐶)‘𝑦)))
105	92, 100	oveq12d 7432	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → (((Homf ‘𝐶)‘𝑥)(Hom ‘𝐷)((Homf ‘𝐶)‘𝑦)) = (((Hom ‘𝐶)‘𝑥)(Hom ‘𝐷)((Hom ‘𝐶)‘𝑦)))
106	104, 105	eleqtrrd 2863	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓)) ∈ (((Homf ‘𝐶)‘𝑥)(Hom ‘𝐷)((Homf ‘𝐶)‘𝑦)))
107	106	ralrimivva 3205	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → ∀𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥))∀𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦))(ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓)) ∈ (((Homf ‘𝐶)‘𝑥)(Hom ‘𝐷)((Homf ‘𝐶)‘𝑦)))
108		eqid 2760	. . . . . . 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 ‘𝑦))𝑓)))
109	108	fmpo 8066	. . . . . 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 ‘𝐶)‘𝑦)))
110	107, 109	sylib 221	. . . . 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 ‘𝐶)‘𝑦)))
111	12	oveqd 7431	. . . . . . 7 ⊢ (𝜑 → (𝑥(2nd ‘𝑀)𝑦) = (𝑥(𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)), 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)) ↦ (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓))))𝑦))
112	42	ovmpt4g 7561	. . . . . . . 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 ‘𝑦))𝑓))))
113	45, 112	mp3an3 1479	. . . . . . 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 ‘𝑦))𝑓))))
114	111, 113	sylan9eq 2815	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → (𝑥(2nd ‘𝑀)𝑦) = (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)), 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)) ↦ (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓))))
115		eqid 2760	. . . . . . . 8 ⊢ (Hom ‘𝑂) = (Hom ‘𝑂)
116		simprl 783	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)))
117		simprr 785	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))
118	15, 18, 115, 4, 20, 116, 117	xpchom 18271	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) = (((1st ‘𝑥)(Hom ‘𝑂)(1st ‘𝑦)) × ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦))))
119	4, 16	oppchom 17806	. . . . . . . 8 ⊢ ((1st ‘𝑥)(Hom ‘𝑂)(1st ‘𝑦)) = ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥))
120	119	xpeq1i 5681	. . . . . . 7 ⊢ (((1st ‘𝑥)(Hom ‘𝑂)(1st ‘𝑦)) × ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦))) = (((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) × ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))
121	118, 120	eqtrdi 2811	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) = (((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) × ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦))))
122	114, 121	feq12d 6691	. . . . 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 ‘𝐶)‘𝑦))))
123	110, 122	mpbird 260	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → (𝑥(2nd ‘𝑀)𝑦):(𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦)⟶(((Homf ‘𝐶)‘𝑥)(Hom ‘𝐷)((Homf ‘𝐶)‘𝑦)))
124		eqid 2760	. . . . . . . . . 10 ⊢ (Id‘𝐶) = (Id‘𝐶)
125	2	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))) → 𝐶 ∈ Cat)
126	55	adantl 487	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (1st ‘𝑥) ∈ (Base‘𝐶))
127	126	adantr 486	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))) → (1st ‘𝑥) ∈ (Base‘𝐶))
128	67	adantl 487	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (2nd ‘𝑥) ∈ (Base‘𝐶))
129	128	adantr 486	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))) → (2nd ‘𝑥) ∈ (Base‘𝐶))
130		simpr 490	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))) → 𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)))
131	3, 4, 124, 125, 127, 5, 129, 130	catlid 17774	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))) → (((Id‘𝐶)‘(2nd ‘𝑥))(⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑥))𝑓) = 𝑓)
132	131	oveq1d 7429	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))) → ((((Id‘𝐶)‘(2nd ‘𝑥))(⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑥))𝑓)(⟨(1st ‘𝑥), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑥))((Id‘𝐶)‘(1st ‘𝑥))) = (𝑓(⟨(1st ‘𝑥), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑥))((Id‘𝐶)‘(1st ‘𝑥))))
133	3, 4, 124, 125, 127, 5, 129, 130	catrid 17775	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))) → (𝑓(⟨(1st ‘𝑥), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑥))((Id‘𝐶)‘(1st ‘𝑥))) = 𝑓)
134	132, 133	eqtrd 2795	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))) → ((((Id‘𝐶)‘(2nd ‘𝑥))(⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑥))𝑓)(⟨(1st ‘𝑥), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑥))((Id‘𝐶)‘(1st ‘𝑥))) = 𝑓)
135	134	mpteq2dva 5198	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)) ↦ ((((Id‘𝐶)‘(2nd ‘𝑥))(⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑥))𝑓)(⟨(1st ‘𝑥), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑥))((Id‘𝐶)‘(1st ‘𝑥)))) = (𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)) ↦ 𝑓))
136		df-ov 7417	. . . . . . 7 ⊢ (((Id‘𝐶)‘(1st ‘𝑥))(⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)((Id‘𝐶)‘(2nd ‘𝑥))) = ((⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)‘⟨((Id‘𝐶)‘(1st ‘𝑥)), ((Id‘𝐶)‘(2nd ‘𝑥))⟩)
137	2	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → 𝐶 ∈ Cat)
138	3, 4, 124, 137, 126	catidcl 17773	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘𝐶)‘(1st ‘𝑥)) ∈ ((1st ‘𝑥)(Hom ‘𝐶)(1st ‘𝑥)))
139	3, 4, 124, 137, 128	catidcl 17773	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘𝐶)‘(2nd ‘𝑥)) ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)))
140	1, 137, 3, 4, 126, 128, 126, 128, 5, 138, 139	hof2val 18347	. . . . . . 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 ‘𝑥)))))
141	136, 140	eqtr3id 2809	. . . . . 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 ‘𝑥)))))
142	62	adantl 487	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → 𝑥 = ⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)
143	142	fveq2d 6883	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Homf ‘𝐶)‘𝑥) = ((Homf ‘𝐶)‘⟨(1st ‘𝑥), (2nd ‘𝑥)⟩))
144	143, 90	eqtr4di 2813	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Homf ‘𝐶)‘𝑥) = ((1st ‘𝑥)(Homf ‘𝐶)(2nd ‘𝑥)))
145	33, 3, 4, 126, 128	homfval 17783	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((1st ‘𝑥)(Homf ‘𝐶)(2nd ‘𝑥)) = ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)))
146	144, 145	eqtrd 2795	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Homf ‘𝐶)‘𝑥) = ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)))
147	146	reseq2d 5972	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ( I ↾ ((Homf ‘𝐶)‘𝑥)) = ( I ↾ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))))
148		mptresid 6047	. . . . . . 7 ⊢ ( I ↾ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))) = (𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)) ↦ 𝑓)
149	147, 148	eqtrdi 2811	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ( I ↾ ((Homf ‘𝐶)‘𝑥)) = (𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)) ↦ 𝑓))
150	135, 141, 149	3eqtr4d 2805	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)‘⟨((Id‘𝐶)‘(1st ‘𝑥)), ((Id‘𝐶)‘(2nd ‘𝑥))⟩) = ( I ↾ ((Homf ‘𝐶)‘𝑥)))
151	142, 142	oveq12d 7432	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (𝑥(2nd ‘𝑀)𝑥) = (⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑥), (2nd ‘𝑥)⟩))
152	142	fveq2d 6883	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘(𝑂 ×c 𝐶))‘𝑥) = ((Id‘(𝑂 ×c 𝐶))‘⟨(1st ‘𝑥), (2nd ‘𝑥)⟩))
153	27	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → 𝑂 ∈ Cat)
154		eqid 2760	. . . . . . . 8 ⊢ (Id‘𝑂) = (Id‘𝑂)
155	15, 153, 137, 17, 3, 154, 124, 22, 126, 128	xpcid 18280	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘(𝑂 ×c 𝐶))‘⟨(1st ‘𝑥), (2nd ‘𝑥)⟩) = ⟨((Id‘𝑂)‘(1st ‘𝑥)), ((Id‘𝐶)‘(2nd ‘𝑥))⟩)
156	16, 124	oppcid 17812	. . . . . . . . . 10 ⊢ (𝐶 ∈ Cat → (Id‘𝑂) = (Id‘𝐶))
157	137, 156	syl 18	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (Id‘𝑂) = (Id‘𝐶))
158	157	fveq1d 6881	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘𝑂)‘(1st ‘𝑥)) = ((Id‘𝐶)‘(1st ‘𝑥)))
159	158	opeq1d 4839	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ⟨((Id‘𝑂)‘(1st ‘𝑥)), ((Id‘𝐶)‘(2nd ‘𝑥))⟩ = ⟨((Id‘𝐶)‘(1st ‘𝑥)), ((Id‘𝐶)‘(2nd ‘𝑥))⟩)
160	152, 155, 159	3eqtrd 2799	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘(𝑂 ×c 𝐶))‘𝑥) = ⟨((Id‘𝐶)‘(1st ‘𝑥)), ((Id‘𝐶)‘(2nd ‘𝑥))⟩)
161	151, 160	fveq12d 6886	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((𝑥(2nd ‘𝑀)𝑥)‘((Id‘(𝑂 ×c 𝐶))‘𝑥)) = ((⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)‘⟨((Id‘𝐶)‘(1st ‘𝑥)), ((Id‘𝐶)‘(2nd ‘𝑥))⟩))
162	29	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → 𝑈 ∈ 𝑉)
163	38	ffvelcdmda 7078	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Homf ‘𝐶)‘𝑥) ∈ 𝑈)
164	30, 23, 162, 163	setcid 18178	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘𝐷)‘((Homf ‘𝐶)‘𝑥)) = ( I ↾ ((Homf ‘𝐶)‘𝑥)))
165	150, 161, 164	3eqtr4d 2805	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((𝑥(2nd ‘𝑀)𝑥)‘((Id‘(𝑂 ×c 𝐶))‘𝑥)) = ((Id‘𝐷)‘((Homf ‘𝐶)‘𝑥)))
166	2	3ad2ant1 1151	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝐶 ∈ Cat)
167	29	3ad2ant1 1151	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑈 ∈ 𝑉)
168	36	3ad2ant1 1151	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ran (Homf ‘𝐶) ⊆ 𝑈)
169		simp21 1225	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)))
170	169, 55	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st ‘𝑥) ∈ (Base‘𝐶))
171	169, 67	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (2nd ‘𝑥) ∈ (Base‘𝐶))
172		simp22 1226	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))
173	172, 51	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st ‘𝑦) ∈ (Base‘𝐶))
174	172, 58	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (2nd ‘𝑦) ∈ (Base‘𝐶))
175		simp23 1227	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶)))
176		xp1st 8019	. . . . . . 7 ⊢ (𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶)) → (1st ‘𝑧) ∈ (Base‘𝐶))
177	175, 176	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st ‘𝑧) ∈ (Base‘𝐶))
178		xp2nd 8020	. . . . . . 7 ⊢ (𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶)) → (2nd ‘𝑧) ∈ (Base‘𝐶))
179	175, 178	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (2nd ‘𝑧) ∈ (Base‘𝐶))
180		simp3l 1220	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦))
181	15, 18, 115, 4, 20, 169, 172	xpchom 18271	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) = (((1st ‘𝑥)(Hom ‘𝑂)(1st ‘𝑦)) × ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦))))
182	180, 181	eleqtrd 2862	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑓 ∈ (((1st ‘𝑥)(Hom ‘𝑂)(1st ‘𝑦)) × ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦))))
183		xp1st 8019	. . . . . . . 8 ⊢ (𝑓 ∈ (((1st ‘𝑥)(Hom ‘𝑂)(1st ‘𝑦)) × ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦))) → (1st ‘𝑓) ∈ ((1st ‘𝑥)(Hom ‘𝑂)(1st ‘𝑦)))
184	182, 183	syl 18	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st ‘𝑓) ∈ ((1st ‘𝑥)(Hom ‘𝑂)(1st ‘𝑦)))
185	184, 119	eleqtrdi 2870	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st ‘𝑓) ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)))
186		xp2nd 8020	. . . . . . 7 ⊢ (𝑓 ∈ (((1st ‘𝑥)(Hom ‘𝑂)(1st ‘𝑦)) × ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦))) → (2nd ‘𝑓) ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))
187	182, 186	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (2nd ‘𝑓) ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))
188		simp3r 1221	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))
189	15, 18, 115, 4, 20, 172, 175	xpchom 18271	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧) = (((1st ‘𝑦)(Hom ‘𝑂)(1st ‘𝑧)) × ((2nd ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑧))))
190	188, 189	eleqtrd 2862	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑔 ∈ (((1st ‘𝑦)(Hom ‘𝑂)(1st ‘𝑧)) × ((2nd ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑧))))
191		xp1st 8019	. . . . . . . 8 ⊢ (𝑔 ∈ (((1st ‘𝑦)(Hom ‘𝑂)(1st ‘𝑧)) × ((2nd ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑧))) → (1st ‘𝑔) ∈ ((1st ‘𝑦)(Hom ‘𝑂)(1st ‘𝑧)))
192	190, 191	syl 18	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st ‘𝑔) ∈ ((1st ‘𝑦)(Hom ‘𝑂)(1st ‘𝑧)))
193	4, 16	oppchom 17806	. . . . . . 7 ⊢ ((1st ‘𝑦)(Hom ‘𝑂)(1st ‘𝑧)) = ((1st ‘𝑧)(Hom ‘𝐶)(1st ‘𝑦))
194	192, 193	eleqtrdi 2870	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st ‘𝑔) ∈ ((1st ‘𝑧)(Hom ‘𝐶)(1st ‘𝑦)))
195		xp2nd 8020	. . . . . . 7 ⊢ (𝑔 ∈ (((1st ‘𝑦)(Hom ‘𝑂)(1st ‘𝑧)) × ((2nd ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑧))) → (2nd ‘𝑔) ∈ ((2nd ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑧)))
196	190, 195	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (2nd ‘𝑔) ∈ ((2nd ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑧)))
197	1, 16, 30, 166, 167, 168, 3, 4, 170, 171, 173, 174, 177, 179, 185, 187, 194, 196	hofcllem 18349	. . . . 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 ‘𝑓))))
198	169, 62	syl 18	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑥 = ⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)
199		1st2nd2 8026	. . . . . . . . 9 ⊢ (𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶)) → 𝑧 = ⟨(1st ‘𝑧), (2nd ‘𝑧)⟩)
200	175, 199	syl 18	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑧 = ⟨(1st ‘𝑧), (2nd ‘𝑧)⟩)
201	198, 200	oveq12d 7432	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑥(2nd ‘𝑀)𝑧) = (⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑧), (2nd ‘𝑧)⟩))
202	172, 79	syl 18	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑦 = ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)
203	198, 202	opeq12d 4841	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ⟨𝑥, 𝑦⟩ = ⟨⟨(1st ‘𝑥), (2nd ‘𝑥)⟩, ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩⟩)
204	203, 200	oveq12d 7432	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (⟨𝑥, 𝑦⟩(comp‘(𝑂 ×c 𝐶))𝑧) = (⟨⟨(1st ‘𝑥), (2nd ‘𝑥)⟩, ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩⟩(comp‘(𝑂 ×c 𝐶))⟨(1st ‘𝑧), (2nd ‘𝑧)⟩))
205		1st2nd2 8026	. . . . . . . . . 10 ⊢ (𝑔 ∈ (((1st ‘𝑦)(Hom ‘𝑂)(1st ‘𝑧)) × ((2nd ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑧))) → 𝑔 = ⟨(1st ‘𝑔), (2nd ‘𝑔)⟩)
206	190, 205	syl 18	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑔 = ⟨(1st ‘𝑔), (2nd ‘𝑔)⟩)
207		1st2nd2 8026	. . . . . . . . . 10 ⊢ (𝑓 ∈ (((1st ‘𝑥)(Hom ‘𝑂)(1st ‘𝑦)) × ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦))) → 𝑓 = ⟨(1st ‘𝑓), (2nd ‘𝑓)⟩)
208	182, 207	syl 18	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑓 = ⟨(1st ‘𝑓), (2nd ‘𝑓)⟩)
209	204, 206, 208	oveq123d 7435	. . . . . . . 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 2760	. . . . . . . . 9 ⊢ (comp‘𝑂) = (comp‘𝑂)
211	15, 17, 3, 115, 4, 170, 171, 173, 174, 210, 5, 24, 177, 179, 184, 187, 192, 196	xpcco2 18278	. . . . . . . 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 ‘𝑓))⟩)
212	3, 5, 16, 170, 173, 177	oppcco 17808	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((1st ‘𝑔)(⟨(1st ‘𝑥), (1st ‘𝑦)⟩(comp‘𝑂)(1st ‘𝑧))(1st ‘𝑓)) = ((1st ‘𝑓)(⟨(1st ‘𝑧), (1st ‘𝑦)⟩(comp‘𝐶)(1st ‘𝑥))(1st ‘𝑔)))
213	212	opeq1d 4839	. . . . . . . 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 ‘𝑓))⟩)
214	209, 211, 213	3eqtrd 2799	. . . . . . 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 ‘𝑓))⟩)
215	201, 214	fveq12d 6886	. . . . . 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 7417	. . . . . 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 ‘𝑓))⟩)
217	215, 216	eqtr4di 2813	. . . . 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 ‘𝑓))))
218	198	fveq2d 6883	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf ‘𝐶)‘𝑥) = ((Homf ‘𝐶)‘⟨(1st ‘𝑥), (2nd ‘𝑥)⟩))
219	218, 90	eqtr4di 2813	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf ‘𝐶)‘𝑥) = ((1st ‘𝑥)(Homf ‘𝐶)(2nd ‘𝑥)))
220	33, 3, 4, 170, 171	homfval 17783	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((1st ‘𝑥)(Homf ‘𝐶)(2nd ‘𝑥)) = ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)))
221	219, 220	eqtrd 2795	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf ‘𝐶)‘𝑥) = ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)))
222	202	fveq2d 6883	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf ‘𝐶)‘𝑦) = ((Homf ‘𝐶)‘⟨(1st ‘𝑦), (2nd ‘𝑦)⟩))
223	222, 98	eqtr4di 2813	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf ‘𝐶)‘𝑦) = ((1st ‘𝑦)(Homf ‘𝐶)(2nd ‘𝑦)))
224	33, 3, 4, 173, 174	homfval 17783	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((1st ‘𝑦)(Homf ‘𝐶)(2nd ‘𝑦)) = ((1st ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑦)))
225	223, 224	eqtrd 2795	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf ‘𝐶)‘𝑦) = ((1st ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑦)))
226	221, 225	opeq12d 4841	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ⟨((Homf ‘𝐶)‘𝑥), ((Homf ‘𝐶)‘𝑦)⟩ = ⟨((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)), ((1st ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑦))⟩)
227	200	fveq2d 6883	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf ‘𝐶)‘𝑧) = ((Homf ‘𝐶)‘⟨(1st ‘𝑧), (2nd ‘𝑧)⟩))
228		df-ov 7417	. . . . . . . . 9 ⊢ ((1st ‘𝑧)(Homf ‘𝐶)(2nd ‘𝑧)) = ((Homf ‘𝐶)‘⟨(1st ‘𝑧), (2nd ‘𝑧)⟩)
229	227, 228	eqtr4di 2813	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf ‘𝐶)‘𝑧) = ((1st ‘𝑧)(Homf ‘𝐶)(2nd ‘𝑧)))
230	33, 3, 4, 177, 179	homfval 17783	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((1st ‘𝑧)(Homf ‘𝐶)(2nd ‘𝑧)) = ((1st ‘𝑧)(Hom ‘𝐶)(2nd ‘𝑧)))
231	229, 230	eqtrd 2795	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf ‘𝐶)‘𝑧) = ((1st ‘𝑧)(Hom ‘𝐶)(2nd ‘𝑧)))
232	226, 231	oveq12d 7432	. . . . . 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 ‘𝑧))))
233	202, 200	oveq12d 7432	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑦(2nd ‘𝑀)𝑧) = (⟨(1st ‘𝑦), (2nd ‘𝑦)⟩(2nd ‘𝑀)⟨(1st ‘𝑧), (2nd ‘𝑧)⟩))
234	233, 206	fveq12d 6886	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑦(2nd ‘𝑀)𝑧)‘𝑔) = ((⟨(1st ‘𝑦), (2nd ‘𝑦)⟩(2nd ‘𝑀)⟨(1st ‘𝑧), (2nd ‘𝑧)⟩)‘⟨(1st ‘𝑔), (2nd ‘𝑔)⟩))
235		df-ov 7417	. . . . . . 7 ⊢ ((1st ‘𝑔)(⟨(1st ‘𝑦), (2nd ‘𝑦)⟩(2nd ‘𝑀)⟨(1st ‘𝑧), (2nd ‘𝑧)⟩)(2nd ‘𝑔)) = ((⟨(1st ‘𝑦), (2nd ‘𝑦)⟩(2nd ‘𝑀)⟨(1st ‘𝑧), (2nd ‘𝑧)⟩)‘⟨(1st ‘𝑔), (2nd ‘𝑔)⟩)
236	234, 235	eqtr4di 2813	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑦(2nd ‘𝑀)𝑧)‘𝑔) = ((1st ‘𝑔)(⟨(1st ‘𝑦), (2nd ‘𝑦)⟩(2nd ‘𝑀)⟨(1st ‘𝑧), (2nd ‘𝑧)⟩)(2nd ‘𝑔)))
237	198, 202	oveq12d 7432	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑥(2nd ‘𝑀)𝑦) = (⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑦), (2nd ‘𝑦)⟩))
238	237, 208	fveq12d 6886	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑥(2nd ‘𝑀)𝑦)‘𝑓) = ((⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)‘⟨(1st ‘𝑓), (2nd ‘𝑓)⟩))
239		df-ov 7417	. . . . . . 7 ⊢ ((1st ‘𝑓)(⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)(2nd ‘𝑓)) = ((⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)‘⟨(1st ‘𝑓), (2nd ‘𝑓)⟩)
240	238, 239	eqtr4di 2813	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑥(2nd ‘𝑀)𝑦)‘𝑓) = ((1st ‘𝑓)(⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)(2nd ‘𝑓)))
241	232, 236, 240	oveq123d 7435	. . . . 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 ‘𝑓))))
242	197, 217, 241	3eqtr4d 2805	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑥(2nd ‘𝑀)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘(𝑂 ×c 𝐶))𝑧)𝑓)) = (((𝑦(2nd ‘𝑀)𝑧)‘𝑔)(⟨((Homf ‘𝐶)‘𝑥), ((Homf ‘𝐶)‘𝑦)⟩(comp‘𝐷)((Homf ‘𝐶)‘𝑧))((𝑥(2nd ‘𝑀)𝑦)‘𝑓)))
243	18, 19, 20, 21, 22, 23, 24, 25, 28, 32, 41, 48, 123, 165, 242	isfuncd 17957	. . 3 ⊢ (𝜑 → (Homf ‘𝐶)((𝑂 ×c 𝐶) Func 𝐷)(2nd ‘𝑀))
244		df-br 5104	. . 3 ⊢ ((Homf ‘𝐶)((𝑂 ×c 𝐶) Func 𝐷)(2nd ‘𝑀) ↔ ⟨(Homf ‘𝐶), (2nd ‘𝑀)⟩ ∈ ((𝑂 ×c 𝐶) Func 𝐷))
245	243, 244	sylib 221	. 2 ⊢ (𝜑 → ⟨(Homf ‘𝐶), (2nd ‘𝑀)⟩ ∈ ((𝑂 ×c 𝐶) Func 𝐷))
246	14, 245	eqeltrd 2860	1 ⊢ (𝜑 → 𝑀 ∈ ((𝑂 ×c 𝐶) Func 𝐷))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2145  ∀wral 3076  Vcvv 3450   ⊆ wss 3899  ⟨cop 4590   class class class wbr 5103   ↦ cmpt 5186   I cid 5549   × cxp 5653  ran crn 5656   ↾ cres 5657   Fn wfn 6528  ⟶wf 6529  ‘cfv 6533  (class class class)co 7414   ∈ cmpo 7416  1^st c1st 7985  2^nd c2nd 7986  Basecbs 17304  Hom chom 17356  compcco 17357  Catccat 17755  Idccid 17756  Hom_f chomf 17757  oppCatcoppc 17802   Func cfunc 17946  SetCatcsetc 18167   ×_c cxpc 18259  Hom_Fchof 18339

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5232  ax-sep 5251  ax-nul 5263  ax-pow 5330  ax-pr 5398  ax-un 7737  ax-cnex 11183  ax-resscn 11184  ax-1cn 11185  ax-icn 11186  ax-addcl 11187  ax-addrcl 11188  ax-mulcl 11189  ax-mulrcl 11190  ax-mulcom 11191  ax-addass 11192  ax-mulass 11193  ax-distr 11194  ax-i2m1 11195  ax-1ne0 11196  ax-1rid 11197  ax-rnegex 11198  ax-rrecex 11199  ax-cnre 11200  ax-pre-lttri 11201  ax-pre-lttrn 11202  ax-pre-ltadd 11203  ax-pre-mulgt0 11204

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-tp 4589  df-op 4591  df-uni 4868  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6299  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-riota 7371  df-ov 7417  df-oprab 7418  df-mpo 7419  df-om 7864  df-1st 7987  df-2nd 7988  df-tpos 8225  df-frecs 8281  df-wrecs 8312  df-recs 8361  df-rdg 8400  df-1o 8458  df-er 8699  df-map 8831  df-ixp 8908  df-en 8956  df-dom 8957  df-sdom 8958  df-fin 8959  df-pnf 11272  df-mnf 11273  df-xr 11274  df-ltxr 11275  df-le 11276  df-sub 11470  df-neg 11471  df-nn 12261  df-2 12330  df-3 12331  df-4 12332  df-5 12333  df-6 12334  df-7 12335  df-8 12336  df-9 12337  df-n0 12532  df-z 12619  df-dec 12740  df-uz 12891  df-fz 13565  df-struct 17242  df-sets 17259  df-slot 17277  df-ndx 17289  df-base 17305  df-hom 17369  df-cco 17370  df-cat 17759  df-cid 17760  df-homf 17761  df-oppc 17803  df-func 17950  df-setc 18168  df-xpc 18263  df-hof 18341

This theorem is used by:  oppchofcl  18351  oppcyon  18360  yonedalem1  18363  yonedalem21  18364  yonedalem22  18369