Theorem hofcl 18208

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 2732	. . . 4 ⊢ (Base‘𝐶) = (Base‘𝐶)
4		eqid 2732	. . . 4 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
5		eqid 2732	. . . 4 ⊢ (comp‘𝐶) = (comp‘𝐶)
6	1, 2, 3, 4, 5	hofval 18201	. . 3 ⊢ (𝜑 → 𝑀 = ⟨(Homf ‘𝐶), (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)), 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)) ↦ (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓))))⟩)
7		fvex 6901	. . . . . 6 ⊢ (Homf ‘𝐶) ∈ V
8		fvex 6901	. . . . . . . 8 ⊢ (Base‘𝐶) ∈ V
9	8, 8	xpex 7736	. . . . . . 7 ⊢ ((Base‘𝐶) × (Base‘𝐶)) ∈ V
10	9, 9	mpoex 8062	. . . . . 6 ⊢ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)), 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)) ↦ (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓)))) ∈ V
11	7, 10	op2ndd 7982	. . . . 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 17	. . . 4 ⊢ (𝜑 → (2nd ‘𝑀) = (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)), 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)) ↦ (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓)))))
13	12	opeq2d 4879	. . 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 2775	. 2 ⊢ (𝜑 → 𝑀 = ⟨(Homf ‘𝐶), (2nd ‘𝑀)⟩)
15		eqid 2732	. . . . 5 ⊢ (𝑂 ×c 𝐶) = (𝑂 ×c 𝐶)
16		hofcl.o	. . . . . 6 ⊢ 𝑂 = (oppCat‘𝐶)
17	16, 3	oppcbas 17659	. . . . 5 ⊢ (Base‘𝐶) = (Base‘𝑂)
18	15, 17, 3	xpcbas 18126	. . . 4 ⊢ ((Base‘𝐶) × (Base‘𝐶)) = (Base‘(𝑂 ×c 𝐶))
19		eqid 2732	. . . 4 ⊢ (Base‘𝐷) = (Base‘𝐷)
20		eqid 2732	. . . 4 ⊢ (Hom ‘(𝑂 ×c 𝐶)) = (Hom ‘(𝑂 ×c 𝐶))
21		eqid 2732	. . . 4 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
22		eqid 2732	. . . 4 ⊢ (Id‘(𝑂 ×c 𝐶)) = (Id‘(𝑂 ×c 𝐶))
23		eqid 2732	. . . 4 ⊢ (Id‘𝐷) = (Id‘𝐷)
24		eqid 2732	. . . 4 ⊢ (comp‘(𝑂 ×c 𝐶)) = (comp‘(𝑂 ×c 𝐶))
25		eqid 2732	. . . 4 ⊢ (comp‘𝐷) = (comp‘𝐷)
26	16	oppccat 17664	. . . . . 6 ⊢ (𝐶 ∈ Cat → 𝑂 ∈ Cat)
27	2, 26	syl 17	. . . . 5 ⊢ (𝜑 → 𝑂 ∈ Cat)
28	15, 27, 2	xpccat 18138	. . . 4 ⊢ (𝜑 → (𝑂 ×c 𝐶) ∈ Cat)
29		hofcl.u	. . . . 5 ⊢ (𝜑 → 𝑈 ∈ 𝑉)
30		hofcl.d	. . . . . 6 ⊢ 𝐷 = (SetCat‘𝑈)
31	30	setccat 18031	. . . . 5 ⊢ (𝑈 ∈ 𝑉 → 𝐷 ∈ Cat)
32	29, 31	syl 17	. . . 4 ⊢ (𝜑 → 𝐷 ∈ Cat)
33		eqid 2732	. . . . . . . 8 ⊢ (Homf ‘𝐶) = (Homf ‘𝐶)
34	33, 3	homffn 17633	. . . . . . 7 ⊢ (Homf ‘𝐶) Fn ((Base‘𝐶) × (Base‘𝐶))
35	34	a1i 11	. . . . . 6 ⊢ (𝜑 → (Homf ‘𝐶) Fn ((Base‘𝐶) × (Base‘𝐶)))
36		hofcl.h	. . . . . 6 ⊢ (𝜑 → ran (Homf ‘𝐶) ⊆ 𝑈)
37		df-f 6544	. . . . . 6 ⊢ ((Homf ‘𝐶):((Base‘𝐶) × (Base‘𝐶))⟶𝑈 ↔ ((Homf ‘𝐶) Fn ((Base‘𝐶) × (Base‘𝐶)) ∧ ran (Homf ‘𝐶) ⊆ 𝑈))
38	35, 36, 37	sylanbrc 583	. . . . 5 ⊢ (𝜑 → (Homf ‘𝐶):((Base‘𝐶) × (Base‘𝐶))⟶𝑈)
39	30, 29	setcbas 18024	. . . . . 6 ⊢ (𝜑 → 𝑈 = (Base‘𝐷))
40	39	feq3d 6701	. . . . 5 ⊢ (𝜑 → ((Homf ‘𝐶):((Base‘𝐶) × (Base‘𝐶))⟶𝑈 ↔ (Homf ‘𝐶):((Base‘𝐶) × (Base‘𝐶))⟶(Base‘𝐷)))
41	38, 40	mpbid 231	. . . 4 ⊢ (𝜑 → (Homf ‘𝐶):((Base‘𝐶) × (Base‘𝐶))⟶(Base‘𝐷))
42		eqid 2732	. . . . . 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 7438	. . . . . . 7 ⊢ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∈ V
44		ovex 7438	. . . . . . 7 ⊢ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)) ∈ V
45	43, 44	mpoex 8062	. . . . . 6 ⊢ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)), 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)) ↦ (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓))) ∈ V
46	42, 45	fnmpoi 8052	. . . . 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 6639	. . . . 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 257	. . . 4 ⊢ (𝜑 → (2nd ‘𝑀) Fn (((Base‘𝐶) × (Base‘𝐶)) × ((Base‘𝐶) × (Base‘𝐶))))
49	2	ad3antrrr 728	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → 𝐶 ∈ Cat)
50		simplrr 776	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))
51		xp1st 8003	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) → (1st ‘𝑦) ∈ (Base‘𝐶))
52	50, 51	syl 17	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → (1st ‘𝑦) ∈ (Base‘𝐶))
53	52	adantr 481	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → (1st ‘𝑦) ∈ (Base‘𝐶))
54		simplrl 775	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)))
55		xp1st 8003	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) → (1st ‘𝑥) ∈ (Base‘𝐶))
56	54, 55	syl 17	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → (1st ‘𝑥) ∈ (Base‘𝐶))
57	56	adantr 481	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → (1st ‘𝑥) ∈ (Base‘𝐶))
58		xp2nd 8004	. . . . . . . . . . . . . 14 ⊢ (𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) → (2nd ‘𝑦) ∈ (Base‘𝐶))
59	50, 58	syl 17	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → (2nd ‘𝑦) ∈ (Base‘𝐶))
60	59	adantr 481	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → (2nd ‘𝑦) ∈ (Base‘𝐶))
61		simplrl 775	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → 𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)))
62		1st2nd2 8010	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) → 𝑥 = ⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)
63	54, 62	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → 𝑥 = ⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)
64	63	adantr 481	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → 𝑥 = ⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)
65	64	oveq1d 7420	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → (𝑥(comp‘𝐶)(2nd ‘𝑦)) = (⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦)))
66	65	oveqd 7422	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → (𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ) = (𝑔(⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))ℎ))
67		xp2nd 8004	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) → (2nd ‘𝑥) ∈ (Base‘𝐶))
68	54, 67	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → (2nd ‘𝑥) ∈ (Base‘𝐶))
69	68	adantr 481	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → (2nd ‘𝑥) ∈ (Base‘𝐶))
70	63	fveq2d 6892	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Hom ‘𝐶)‘𝑥) = ((Hom ‘𝐶)‘⟨(1st ‘𝑥), (2nd ‘𝑥)⟩))
71		df-ov 7408	. . . . . . . . . . . . . . . . 17 ⊢ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)) = ((Hom ‘𝐶)‘⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)
72	70, 71	eqtr4di 2790	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Hom ‘𝐶)‘𝑥) = ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)))
73	72	eleq2d 2819	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↔ ℎ ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))))
74	73	biimpa 477	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → ℎ ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)))
75		simplrr 776	. . . . . . . . . . . . . 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 17625	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → (𝑔(⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))ℎ) ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))
77	66, 76	eqeltrd 2833	. . . . . . . . . . . 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 17625	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓) ∈ ((1st ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑦)))
79		1st2nd2 8010	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) → 𝑦 = ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)
80	50, 79	syl 17	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → 𝑦 = ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)
81	80	fveq2d 6892	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Hom ‘𝐶)‘𝑦) = ((Hom ‘𝐶)‘⟨(1st ‘𝑦), (2nd ‘𝑦)⟩))
82		df-ov 7408	. . . . . . . . . . . . 13 ⊢ ((1st ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑦)) = ((Hom ‘𝐶)‘⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)
83	81, 82	eqtr4di 2790	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Hom ‘𝐶)‘𝑦) = ((1st ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑦)))
84	83	adantr 481	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → ((Hom ‘𝐶)‘𝑦) = ((1st ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑦)))
85	78, 84	eleqtrrd 2836	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) ∧ ℎ ∈ ((Hom ‘𝐶)‘𝑥)) → ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓) ∈ ((Hom ‘𝐶)‘𝑦))
86	85	fmpttd 7111	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓)):((Hom ‘𝐶)‘𝑥)⟶((Hom ‘𝐶)‘𝑦))
87	29	ad2antrr 724	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → 𝑈 ∈ 𝑉)
88	33, 3, 4, 56, 68	homfval 17632	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((1st ‘𝑥)(Homf ‘𝐶)(2nd ‘𝑥)) = ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)))
89	63	fveq2d 6892	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Homf ‘𝐶)‘𝑥) = ((Homf ‘𝐶)‘⟨(1st ‘𝑥), (2nd ‘𝑥)⟩))
90		df-ov 7408	. . . . . . . . . . . . 13 ⊢ ((1st ‘𝑥)(Homf ‘𝐶)(2nd ‘𝑥)) = ((Homf ‘𝐶)‘⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)
91	89, 90	eqtr4di 2790	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Homf ‘𝐶)‘𝑥) = ((1st ‘𝑥)(Homf ‘𝐶)(2nd ‘𝑥)))
92	88, 91, 72	3eqtr4d 2782	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Homf ‘𝐶)‘𝑥) = ((Hom ‘𝐶)‘𝑥))
93	38	ad2antrr 724	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → (Homf ‘𝐶):((Base‘𝐶) × (Base‘𝐶))⟶𝑈)
94	93, 54	ffvelcdmd 7084	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Homf ‘𝐶)‘𝑥) ∈ 𝑈)
95	92, 94	eqeltrrd 2834	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Hom ‘𝐶)‘𝑥) ∈ 𝑈)
96	33, 3, 4, 52, 59	homfval 17632	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((1st ‘𝑦)(Homf ‘𝐶)(2nd ‘𝑦)) = ((1st ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑦)))
97	80	fveq2d 6892	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Homf ‘𝐶)‘𝑦) = ((Homf ‘𝐶)‘⟨(1st ‘𝑦), (2nd ‘𝑦)⟩))
98		df-ov 7408	. . . . . . . . . . . . 13 ⊢ ((1st ‘𝑦)(Homf ‘𝐶)(2nd ‘𝑦)) = ((Homf ‘𝐶)‘⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)
99	97, 98	eqtr4di 2790	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Homf ‘𝐶)‘𝑦) = ((1st ‘𝑦)(Homf ‘𝐶)(2nd ‘𝑦)))
100	96, 99, 83	3eqtr4d 2782	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Homf ‘𝐶)‘𝑦) = ((Hom ‘𝐶)‘𝑦))
101	93, 50	ffvelcdmd 7084	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Homf ‘𝐶)‘𝑦) ∈ 𝑈)
102	100, 101	eqeltrrd 2834	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → ((Hom ‘𝐶)‘𝑦) ∈ 𝑈)
103	30, 87, 21, 95, 102	elsetchom 18027	. . . . . . . . 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 256	. . . . . . . 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 7423	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → (((Homf ‘𝐶)‘𝑥)(Hom ‘𝐷)((Homf ‘𝐶)‘𝑦)) = (((Hom ‘𝐶)‘𝑥)(Hom ‘𝐷)((Hom ‘𝐶)‘𝑦)))
106	104, 105	eleqtrrd 2836	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) ∧ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))) → (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓)) ∈ (((Homf ‘𝐶)‘𝑥)(Hom ‘𝐷)((Homf ‘𝐶)‘𝑦)))
107	106	ralrimivva 3200	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → ∀𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥))∀𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦))(ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓)) ∈ (((Homf ‘𝐶)‘𝑥)(Hom ‘𝐷)((Homf ‘𝐶)‘𝑦)))
108		eqid 2732	. . . . . . 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 8050	. . . . . 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 217	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)), 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)) ↦ (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓))):(((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) × ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))⟶(((Homf ‘𝐶)‘𝑥)(Hom ‘𝐷)((Homf ‘𝐶)‘𝑦)))
111	12	oveqd 7422	. . . . . . 7 ⊢ (𝜑 → (𝑥(2nd ‘𝑀)𝑦) = (𝑥(𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ↦ (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)), 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)) ↦ (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓))))𝑦))
112	42	ovmpt4g 7551	. . . . . . . 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 1450	. . . . . . 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 2792	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → (𝑥(2nd ‘𝑀)𝑦) = (𝑓 ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)), 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)) ↦ (ℎ ∈ ((Hom ‘𝐶)‘𝑥) ↦ ((𝑔(𝑥(comp‘𝐶)(2nd ‘𝑦))ℎ)(⟨(1st ‘𝑦), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑦))𝑓))))
115		eqid 2732	. . . . . . . 8 ⊢ (Hom ‘𝑂) = (Hom ‘𝑂)
116		simprl 769	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)))
117		simprr 771	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))
118	15, 18, 115, 4, 20, 116, 117	xpchom 18128	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) = (((1st ‘𝑥)(Hom ‘𝑂)(1st ‘𝑦)) × ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦))))
119	4, 16	oppchom 17656	. . . . . . . 8 ⊢ ((1st ‘𝑥)(Hom ‘𝑂)(1st ‘𝑦)) = ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥))
120	119	xpeq1i 5701	. . . . . . 7 ⊢ (((1st ‘𝑥)(Hom ‘𝑂)(1st ‘𝑦)) × ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦))) = (((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) × ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))
121	118, 120	eqtrdi 2788	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) = (((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)) × ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦))))
122	114, 121	feq12d 6702	. . . . 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 256	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))) → (𝑥(2nd ‘𝑀)𝑦):(𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦)⟶(((Homf ‘𝐶)‘𝑥)(Hom ‘𝐷)((Homf ‘𝐶)‘𝑦)))
124		eqid 2732	. . . . . . . . . 10 ⊢ (Id‘𝐶) = (Id‘𝐶)
125	2	ad2antrr 724	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))) → 𝐶 ∈ Cat)
126	55	adantl 482	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (1st ‘𝑥) ∈ (Base‘𝐶))
127	126	adantr 481	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))) → (1st ‘𝑥) ∈ (Base‘𝐶))
128	67	adantl 482	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (2nd ‘𝑥) ∈ (Base‘𝐶))
129	128	adantr 481	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))) → (2nd ‘𝑥) ∈ (Base‘𝐶))
130		simpr 485	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))) → 𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)))
131	3, 4, 124, 125, 127, 5, 129, 130	catlid 17623	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))) → (((Id‘𝐶)‘(2nd ‘𝑥))(⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑥))𝑓) = 𝑓)
132	131	oveq1d 7420	. . . . . . . 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 17624	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))) → (𝑓(⟨(1st ‘𝑥), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑥))((Id‘𝐶)‘(1st ‘𝑥))) = 𝑓)
134	132, 133	eqtrd 2772	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ 𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))) → ((((Id‘𝐶)‘(2nd ‘𝑥))(⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑥))𝑓)(⟨(1st ‘𝑥), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑥))((Id‘𝐶)‘(1st ‘𝑥))) = 𝑓)
135	134	mpteq2dva 5247	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)) ↦ ((((Id‘𝐶)‘(2nd ‘𝑥))(⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑥))𝑓)(⟨(1st ‘𝑥), (1st ‘𝑥)⟩(comp‘𝐶)(2nd ‘𝑥))((Id‘𝐶)‘(1st ‘𝑥)))) = (𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)) ↦ 𝑓))
136		df-ov 7408	. . . . . . 7 ⊢ (((Id‘𝐶)‘(1st ‘𝑥))(⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)((Id‘𝐶)‘(2nd ‘𝑥))) = ((⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)‘⟨((Id‘𝐶)‘(1st ‘𝑥)), ((Id‘𝐶)‘(2nd ‘𝑥))⟩)
137	2	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → 𝐶 ∈ Cat)
138	3, 4, 124, 137, 126	catidcl 17622	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘𝐶)‘(1st ‘𝑥)) ∈ ((1st ‘𝑥)(Hom ‘𝐶)(1st ‘𝑥)))
139	3, 4, 124, 137, 128	catidcl 17622	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘𝐶)‘(2nd ‘𝑥)) ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)))
140	1, 137, 3, 4, 126, 128, 126, 128, 5, 138, 139	hof2val 18205	. . . . . . 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 2786	. . . . . 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 482	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → 𝑥 = ⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)
143	142	fveq2d 6892	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Homf ‘𝐶)‘𝑥) = ((Homf ‘𝐶)‘⟨(1st ‘𝑥), (2nd ‘𝑥)⟩))
144	143, 90	eqtr4di 2790	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Homf ‘𝐶)‘𝑥) = ((1st ‘𝑥)(Homf ‘𝐶)(2nd ‘𝑥)))
145	33, 3, 4, 126, 128	homfval 17632	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((1st ‘𝑥)(Homf ‘𝐶)(2nd ‘𝑥)) = ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)))
146	144, 145	eqtrd 2772	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Homf ‘𝐶)‘𝑥) = ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)))
147	146	reseq2d 5979	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ( I ↾ ((Homf ‘𝐶)‘𝑥)) = ( I ↾ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))))
148		mptresid 6048	. . . . . . 7 ⊢ ( I ↾ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥))) = (𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)) ↦ 𝑓)
149	147, 148	eqtrdi 2788	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ( I ↾ ((Homf ‘𝐶)‘𝑥)) = (𝑓 ∈ ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)) ↦ 𝑓))
150	135, 141, 149	3eqtr4d 2782	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)‘⟨((Id‘𝐶)‘(1st ‘𝑥)), ((Id‘𝐶)‘(2nd ‘𝑥))⟩) = ( I ↾ ((Homf ‘𝐶)‘𝑥)))
151	142, 142	oveq12d 7423	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (𝑥(2nd ‘𝑀)𝑥) = (⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑥), (2nd ‘𝑥)⟩))
152	142	fveq2d 6892	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘(𝑂 ×c 𝐶))‘𝑥) = ((Id‘(𝑂 ×c 𝐶))‘⟨(1st ‘𝑥), (2nd ‘𝑥)⟩))
153	27	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → 𝑂 ∈ Cat)
154		eqid 2732	. . . . . . . 8 ⊢ (Id‘𝑂) = (Id‘𝑂)
155	15, 153, 137, 17, 3, 154, 124, 22, 126, 128	xpcid 18137	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘(𝑂 ×c 𝐶))‘⟨(1st ‘𝑥), (2nd ‘𝑥)⟩) = ⟨((Id‘𝑂)‘(1st ‘𝑥)), ((Id‘𝐶)‘(2nd ‘𝑥))⟩)
156	16, 124	oppcid 17663	. . . . . . . . . 10 ⊢ (𝐶 ∈ Cat → (Id‘𝑂) = (Id‘𝐶))
157	137, 156	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → (Id‘𝑂) = (Id‘𝐶))
158	157	fveq1d 6890	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘𝑂)‘(1st ‘𝑥)) = ((Id‘𝐶)‘(1st ‘𝑥)))
159	158	opeq1d 4878	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ⟨((Id‘𝑂)‘(1st ‘𝑥)), ((Id‘𝐶)‘(2nd ‘𝑥))⟩ = ⟨((Id‘𝐶)‘(1st ‘𝑥)), ((Id‘𝐶)‘(2nd ‘𝑥))⟩)
160	152, 155, 159	3eqtrd 2776	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘(𝑂 ×c 𝐶))‘𝑥) = ⟨((Id‘𝐶)‘(1st ‘𝑥)), ((Id‘𝐶)‘(2nd ‘𝑥))⟩)
161	151, 160	fveq12d 6895	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((𝑥(2nd ‘𝑀)𝑥)‘((Id‘(𝑂 ×c 𝐶))‘𝑥)) = ((⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)‘⟨((Id‘𝐶)‘(1st ‘𝑥)), ((Id‘𝐶)‘(2nd ‘𝑥))⟩))
162	29	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → 𝑈 ∈ 𝑉)
163	38	ffvelcdmda 7083	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Homf ‘𝐶)‘𝑥) ∈ 𝑈)
164	30, 23, 162, 163	setcid 18032	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((Id‘𝐷)‘((Homf ‘𝐶)‘𝑥)) = ( I ↾ ((Homf ‘𝐶)‘𝑥)))
165	150, 161, 164	3eqtr4d 2782	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶))) → ((𝑥(2nd ‘𝑀)𝑥)‘((Id‘(𝑂 ×c 𝐶))‘𝑥)) = ((Id‘𝐷)‘((Homf ‘𝐶)‘𝑥)))
166	2	3ad2ant1 1133	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝐶 ∈ Cat)
167	29	3ad2ant1 1133	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑈 ∈ 𝑉)
168	36	3ad2ant1 1133	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ran (Homf ‘𝐶) ⊆ 𝑈)
169		simp21 1206	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)))
170	169, 55	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st ‘𝑥) ∈ (Base‘𝐶))
171	169, 67	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (2nd ‘𝑥) ∈ (Base‘𝐶))
172		simp22 1207	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)))
173	172, 51	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st ‘𝑦) ∈ (Base‘𝐶))
174	172, 58	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (2nd ‘𝑦) ∈ (Base‘𝐶))
175		simp23 1208	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶)))
176		xp1st 8003	. . . . . . 7 ⊢ (𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶)) → (1st ‘𝑧) ∈ (Base‘𝐶))
177	175, 176	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st ‘𝑧) ∈ (Base‘𝐶))
178		xp2nd 8004	. . . . . . 7 ⊢ (𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶)) → (2nd ‘𝑧) ∈ (Base‘𝐶))
179	175, 178	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (2nd ‘𝑧) ∈ (Base‘𝐶))
180		simp3l 1201	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦))
181	15, 18, 115, 4, 20, 169, 172	xpchom 18128	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) = (((1st ‘𝑥)(Hom ‘𝑂)(1st ‘𝑦)) × ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦))))
182	180, 181	eleqtrd 2835	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑓 ∈ (((1st ‘𝑥)(Hom ‘𝑂)(1st ‘𝑦)) × ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦))))
183		xp1st 8003	. . . . . . . 8 ⊢ (𝑓 ∈ (((1st ‘𝑥)(Hom ‘𝑂)(1st ‘𝑦)) × ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦))) → (1st ‘𝑓) ∈ ((1st ‘𝑥)(Hom ‘𝑂)(1st ‘𝑦)))
184	182, 183	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st ‘𝑓) ∈ ((1st ‘𝑥)(Hom ‘𝑂)(1st ‘𝑦)))
185	184, 119	eleqtrdi 2843	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st ‘𝑓) ∈ ((1st ‘𝑦)(Hom ‘𝐶)(1st ‘𝑥)))
186		xp2nd 8004	. . . . . . 7 ⊢ (𝑓 ∈ (((1st ‘𝑥)(Hom ‘𝑂)(1st ‘𝑦)) × ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦))) → (2nd ‘𝑓) ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))
187	182, 186	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (2nd ‘𝑓) ∈ ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦)))
188		simp3r 1202	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))
189	15, 18, 115, 4, 20, 172, 175	xpchom 18128	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧) = (((1st ‘𝑦)(Hom ‘𝑂)(1st ‘𝑧)) × ((2nd ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑧))))
190	188, 189	eleqtrd 2835	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑔 ∈ (((1st ‘𝑦)(Hom ‘𝑂)(1st ‘𝑧)) × ((2nd ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑧))))
191		xp1st 8003	. . . . . . . 8 ⊢ (𝑔 ∈ (((1st ‘𝑦)(Hom ‘𝑂)(1st ‘𝑧)) × ((2nd ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑧))) → (1st ‘𝑔) ∈ ((1st ‘𝑦)(Hom ‘𝑂)(1st ‘𝑧)))
192	190, 191	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st ‘𝑔) ∈ ((1st ‘𝑦)(Hom ‘𝑂)(1st ‘𝑧)))
193	4, 16	oppchom 17656	. . . . . . 7 ⊢ ((1st ‘𝑦)(Hom ‘𝑂)(1st ‘𝑧)) = ((1st ‘𝑧)(Hom ‘𝐶)(1st ‘𝑦))
194	192, 193	eleqtrdi 2843	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (1st ‘𝑔) ∈ ((1st ‘𝑧)(Hom ‘𝐶)(1st ‘𝑦)))
195		xp2nd 8004	. . . . . . 7 ⊢ (𝑔 ∈ (((1st ‘𝑦)(Hom ‘𝑂)(1st ‘𝑧)) × ((2nd ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑧))) → (2nd ‘𝑔) ∈ ((2nd ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑧)))
196	190, 195	syl 17	. . . . . 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 18207	. . . . 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 17	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑥 = ⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)
199		1st2nd2 8010	. . . . . . . . 9 ⊢ (𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶)) → 𝑧 = ⟨(1st ‘𝑧), (2nd ‘𝑧)⟩)
200	175, 199	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑧 = ⟨(1st ‘𝑧), (2nd ‘𝑧)⟩)
201	198, 200	oveq12d 7423	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑥(2nd ‘𝑀)𝑧) = (⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑧), (2nd ‘𝑧)⟩))
202	172, 79	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑦 = ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)
203	198, 202	opeq12d 4880	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ⟨𝑥, 𝑦⟩ = ⟨⟨(1st ‘𝑥), (2nd ‘𝑥)⟩, ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩⟩)
204	203, 200	oveq12d 7423	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (⟨𝑥, 𝑦⟩(comp‘(𝑂 ×c 𝐶))𝑧) = (⟨⟨(1st ‘𝑥), (2nd ‘𝑥)⟩, ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩⟩(comp‘(𝑂 ×c 𝐶))⟨(1st ‘𝑧), (2nd ‘𝑧)⟩))
205		1st2nd2 8010	. . . . . . . . . 10 ⊢ (𝑔 ∈ (((1st ‘𝑦)(Hom ‘𝑂)(1st ‘𝑧)) × ((2nd ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑧))) → 𝑔 = ⟨(1st ‘𝑔), (2nd ‘𝑔)⟩)
206	190, 205	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑔 = ⟨(1st ‘𝑔), (2nd ‘𝑔)⟩)
207		1st2nd2 8010	. . . . . . . . . 10 ⊢ (𝑓 ∈ (((1st ‘𝑥)(Hom ‘𝑂)(1st ‘𝑦)) × ((2nd ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑦))) → 𝑓 = ⟨(1st ‘𝑓), (2nd ‘𝑓)⟩)
208	182, 207	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → 𝑓 = ⟨(1st ‘𝑓), (2nd ‘𝑓)⟩)
209	204, 206, 208	oveq123d 7426	. . . . . . . 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 2732	. . . . . . . . 9 ⊢ (comp‘𝑂) = (comp‘𝑂)
211	15, 17, 3, 115, 4, 170, 171, 173, 174, 210, 5, 24, 177, 179, 184, 187, 192, 196	xpcco2 18135	. . . . . . . 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 17658	. . . . . . . . 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 4878	. . . . . . . 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 2776	. . . . . . 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 6895	. . . . . 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 7408	. . . . . 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 2790	. . . . 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 6892	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf ‘𝐶)‘𝑥) = ((Homf ‘𝐶)‘⟨(1st ‘𝑥), (2nd ‘𝑥)⟩))
219	218, 90	eqtr4di 2790	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf ‘𝐶)‘𝑥) = ((1st ‘𝑥)(Homf ‘𝐶)(2nd ‘𝑥)))
220	33, 3, 4, 170, 171	homfval 17632	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((1st ‘𝑥)(Homf ‘𝐶)(2nd ‘𝑥)) = ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)))
221	219, 220	eqtrd 2772	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf ‘𝐶)‘𝑥) = ((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)))
222	202	fveq2d 6892	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf ‘𝐶)‘𝑦) = ((Homf ‘𝐶)‘⟨(1st ‘𝑦), (2nd ‘𝑦)⟩))
223	222, 98	eqtr4di 2790	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf ‘𝐶)‘𝑦) = ((1st ‘𝑦)(Homf ‘𝐶)(2nd ‘𝑦)))
224	33, 3, 4, 173, 174	homfval 17632	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((1st ‘𝑦)(Homf ‘𝐶)(2nd ‘𝑦)) = ((1st ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑦)))
225	223, 224	eqtrd 2772	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf ‘𝐶)‘𝑦) = ((1st ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑦)))
226	221, 225	opeq12d 4880	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ⟨((Homf ‘𝐶)‘𝑥), ((Homf ‘𝐶)‘𝑦)⟩ = ⟨((1st ‘𝑥)(Hom ‘𝐶)(2nd ‘𝑥)), ((1st ‘𝑦)(Hom ‘𝐶)(2nd ‘𝑦))⟩)
227	200	fveq2d 6892	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf ‘𝐶)‘𝑧) = ((Homf ‘𝐶)‘⟨(1st ‘𝑧), (2nd ‘𝑧)⟩))
228		df-ov 7408	. . . . . . . . 9 ⊢ ((1st ‘𝑧)(Homf ‘𝐶)(2nd ‘𝑧)) = ((Homf ‘𝐶)‘⟨(1st ‘𝑧), (2nd ‘𝑧)⟩)
229	227, 228	eqtr4di 2790	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf ‘𝐶)‘𝑧) = ((1st ‘𝑧)(Homf ‘𝐶)(2nd ‘𝑧)))
230	33, 3, 4, 177, 179	homfval 17632	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((1st ‘𝑧)(Homf ‘𝐶)(2nd ‘𝑧)) = ((1st ‘𝑧)(Hom ‘𝐶)(2nd ‘𝑧)))
231	229, 230	eqtrd 2772	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((Homf ‘𝐶)‘𝑧) = ((1st ‘𝑧)(Hom ‘𝐶)(2nd ‘𝑧)))
232	226, 231	oveq12d 7423	. . . . . 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 7423	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑦(2nd ‘𝑀)𝑧) = (⟨(1st ‘𝑦), (2nd ‘𝑦)⟩(2nd ‘𝑀)⟨(1st ‘𝑧), (2nd ‘𝑧)⟩))
234	233, 206	fveq12d 6895	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑦(2nd ‘𝑀)𝑧)‘𝑔) = ((⟨(1st ‘𝑦), (2nd ‘𝑦)⟩(2nd ‘𝑀)⟨(1st ‘𝑧), (2nd ‘𝑧)⟩)‘⟨(1st ‘𝑔), (2nd ‘𝑔)⟩))
235		df-ov 7408	. . . . . . 7 ⊢ ((1st ‘𝑔)(⟨(1st ‘𝑦), (2nd ‘𝑦)⟩(2nd ‘𝑀)⟨(1st ‘𝑧), (2nd ‘𝑧)⟩)(2nd ‘𝑔)) = ((⟨(1st ‘𝑦), (2nd ‘𝑦)⟩(2nd ‘𝑀)⟨(1st ‘𝑧), (2nd ‘𝑧)⟩)‘⟨(1st ‘𝑔), (2nd ‘𝑔)⟩)
236	234, 235	eqtr4di 2790	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑦(2nd ‘𝑀)𝑧)‘𝑔) = ((1st ‘𝑔)(⟨(1st ‘𝑦), (2nd ‘𝑦)⟩(2nd ‘𝑀)⟨(1st ‘𝑧), (2nd ‘𝑧)⟩)(2nd ‘𝑔)))
237	198, 202	oveq12d 7423	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → (𝑥(2nd ‘𝑀)𝑦) = (⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑦), (2nd ‘𝑦)⟩))
238	237, 208	fveq12d 6895	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑥(2nd ‘𝑀)𝑦)‘𝑓) = ((⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)‘⟨(1st ‘𝑓), (2nd ‘𝑓)⟩))
239		df-ov 7408	. . . . . . 7 ⊢ ((1st ‘𝑓)(⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)(2nd ‘𝑓)) = ((⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)‘⟨(1st ‘𝑓), (2nd ‘𝑓)⟩)
240	238, 239	eqtr4di 2790	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑦 ∈ ((Base‘𝐶) × (Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐶) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑂 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑂 ×c 𝐶))𝑧))) → ((𝑥(2nd ‘𝑀)𝑦)‘𝑓) = ((1st ‘𝑓)(⟨(1st ‘𝑥), (2nd ‘𝑥)⟩(2nd ‘𝑀)⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)(2nd ‘𝑓)))
241	232, 236, 240	oveq123d 7426	. . . . 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 2782	. . . 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 17811	. . 3 ⊢ (𝜑 → (Homf ‘𝐶)((𝑂 ×c 𝐶) Func 𝐷)(2nd ‘𝑀))
244		df-br 5148	. . 3 ⊢ ((Homf ‘𝐶)((𝑂 ×c 𝐶) Func 𝐷)(2nd ‘𝑀) ↔ ⟨(Homf ‘𝐶), (2nd ‘𝑀)⟩ ∈ ((𝑂 ×c 𝐶) Func 𝐷))
245	243, 244	sylib 217	. 2 ⊢ (𝜑 → ⟨(Homf ‘𝐶), (2nd ‘𝑀)⟩ ∈ ((𝑂 ×c 𝐶) Func 𝐷))
246	14, 245	eqeltrd 2833	1 ⊢ (𝜑 → 𝑀 ∈ ((𝑂 ×c 𝐶) Func 𝐷))

Syntax hints:   → wi 4   ∧ wa 396   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106  ∀wral 3061  Vcvv 3474   ⊆ wss 3947  ⟨cop 4633   class class class wbr 5147   ↦ cmpt 5230   I cid 5572   × cxp 5673  ran crn 5676   ↾ cres 5677   Fn wfn 6535  ⟶wf 6536  ‘cfv 6540  (class class class)co 7405   ∈ cmpo 7407  1^st c1st 7969  2^nd c2nd 7970  Basecbs 17140  Hom chom 17204  compcco 17205  Catccat 17604  Idccid 17605  Hom_f chomf 17606  oppCatcoppc 17651   Func cfunc 17800  SetCatcsetc 18021   ×_c cxpc 18116  Hom_Fchof 18197

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-tp 4632  df-op 4634  df-uni 4908  df-iun 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6297  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6492  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7361  df-ov 7408  df-oprab 7409  df-mpo 7410  df-om 7852  df-1st 7971  df-2nd 7972  df-tpos 8207  df-frecs 8262  df-wrecs 8293  df-recs 8367  df-rdg 8406  df-1o 8462  df-er 8699  df-map 8818  df-ixp 8888  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11442  df-neg 11443  df-nn 12209  df-2 12271  df-3 12272  df-4 12273  df-5 12274  df-6 12275  df-7 12276  df-8 12277  df-9 12278  df-n0 12469  df-z 12555  df-dec 12674  df-uz 12819  df-fz 13481  df-struct 17076  df-sets 17093  df-slot 17111  df-ndx 17123  df-base 17141  df-hom 17217  df-cco 17218  df-cat 17608  df-cid 17609  df-homf 17610  df-oppc 17652  df-func 17804  df-setc 18022  df-xpc 18120  df-hof 18199

This theorem is referenced by:  oppchofcl  18209  oppcyon  18218  yonedalem1  18221  yonedalem21  18222  yonedalem22  18227