Theorem curfcl 18283

Description: The curry functor of a functor 𝐹:𝐶 × 𝐷⟶𝐸 is a functor curry_F (𝐹):𝐶⟶(𝐷⟶𝐸). (Contributed by Mario Carneiro, 13-Jan-2017.)

Hypotheses

Ref	Expression
curfcl.g	⊢ 𝐺 = (⟨𝐶, 𝐷⟩ curryF 𝐹)
curfcl.q	⊢ 𝑄 = (𝐷 FuncCat 𝐸)
curfcl.c	⊢ (𝜑 → 𝐶 ∈ Cat)
curfcl.d	⊢ (𝜑 → 𝐷 ∈ Cat)
curfcl.f	⊢ (𝜑 → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))

Assertion

Ref	Expression
curfcl	⊢ (𝜑 → 𝐺 ∈ (𝐶 Func 𝑄))

Proof of Theorem curfcl

Dummy variables 𝑤 𝑔 𝑥 𝑦 𝑧 𝑓 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		curfcl.g	. . . 4 ⊢ 𝐺 = (⟨𝐶, 𝐷⟩ curryF 𝐹)
2		eqid 2763	. . . 4 ⊢ (Base‘𝐶) = (Base‘𝐶)
3		curfcl.c	. . . 4 ⊢ (𝜑 → 𝐶 ∈ Cat)
4		curfcl.d	. . . 4 ⊢ (𝜑 → 𝐷 ∈ Cat)
5		curfcl.f	. . . 4 ⊢ (𝜑 → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
6		eqid 2763	. . . 4 ⊢ (Base‘𝐷) = (Base‘𝐷)
7		eqid 2763	. . . 4 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
8		eqid 2763	. . . 4 ⊢ (Id‘𝐶) = (Id‘𝐶)
9		eqid 2763	. . . 4 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
10		eqid 2763	. . . 4 ⊢ (Id‘𝐷) = (Id‘𝐷)
11	1, 2, 3, 4, 5, 6, 7, 8, 9, 10	curfval 18274	. . 3 ⊢ (𝜑 → 𝐺 = ⟨(𝑥 ∈ (Base‘𝐶) ↦ ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st ‘𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))⟩)
12		fvex 6894	. . . . . . 7 ⊢ (Base‘𝐶) ∈ V
13	12	mptex 7221	. . . . . 6 ⊢ (𝑥 ∈ (Base‘𝐶) ↦ ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st ‘𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩) ∈ V
14	12, 12	mpoex 8072	. . . . . 6 ⊢ (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))))) ∈ V
15	13, 14	op1std 7992	. . . . 5 ⊢ (𝐺 = ⟨(𝑥 ∈ (Base‘𝐶) ↦ ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st ‘𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))⟩ → (1st ‘𝐺) = (𝑥 ∈ (Base‘𝐶) ↦ ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st ‘𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩))
16	11, 15	syl 18	. . . 4 ⊢ (𝜑 → (1st ‘𝐺) = (𝑥 ∈ (Base‘𝐶) ↦ ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st ‘𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩))
17	13, 14	op2ndd 7993	. . . . 5 ⊢ (𝐺 = ⟨(𝑥 ∈ (Base‘𝐶) ↦ ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st ‘𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))⟩ → (2nd ‘𝐺) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))))))
18	11, 17	syl 18	. . . 4 ⊢ (𝜑 → (2nd ‘𝐺) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))))))
19	16, 18	opeq12d 4846	. . 3 ⊢ (𝜑 → ⟨(1st ‘𝐺), (2nd ‘𝐺)⟩ = ⟨(𝑥 ∈ (Base‘𝐶) ↦ ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st ‘𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))⟩)
20	11, 19	eqtr4d 2801	. 2 ⊢ (𝜑 → 𝐺 = ⟨(1st ‘𝐺), (2nd ‘𝐺)⟩)
21		curfcl.q	. . . . 5 ⊢ 𝑄 = (𝐷 FuncCat 𝐸)
22	21	fucbas 18015	. . . 4 ⊢ (𝐷 Func 𝐸) = (Base‘𝑄)
23		eqid 2763	. . . . 5 ⊢ (𝐷 Nat 𝐸) = (𝐷 Nat 𝐸)
24	21, 23	fuchom 18016	. . . 4 ⊢ (𝐷 Nat 𝐸) = (Hom ‘𝑄)
25		eqid 2763	. . . 4 ⊢ (Id‘𝑄) = (Id‘𝑄)
26		eqid 2763	. . . 4 ⊢ (comp‘𝐶) = (comp‘𝐶)
27		eqid 2763	. . . 4 ⊢ (comp‘𝑄) = (comp‘𝑄)
28		funcrcl 17915	. . . . . . 7 ⊢ (𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸) → ((𝐶 ×c 𝐷) ∈ Cat ∧ 𝐸 ∈ Cat))
29	5, 28	syl 18	. . . . . 6 ⊢ (𝜑 → ((𝐶 ×c 𝐷) ∈ Cat ∧ 𝐸 ∈ Cat))
30	29	simprd 500	. . . . 5 ⊢ (𝜑 → 𝐸 ∈ Cat)
31	21, 4, 30	fuccat 18025	. . . 4 ⊢ (𝜑 → 𝑄 ∈ Cat)
32		opex 5445	. . . . . 6 ⊢ ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st ‘𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩ ∈ V
33	32	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st ‘𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩ ∈ V)
34	3	adantr 485	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐶 ∈ Cat)
35	4	adantr 485	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐷 ∈ Cat)
36	5	adantr 485	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
37		simpr 489	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝑥 ∈ (Base‘𝐶))
38		eqid 2763	. . . . . 6 ⊢ ((1st ‘𝐺)‘𝑥) = ((1st ‘𝐺)‘𝑥)
39	1, 2, 34, 35, 36, 6, 37, 38	curf1cl 18279	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((1st ‘𝐺)‘𝑥) ∈ (𝐷 Func 𝐸))
40	33, 16, 39	fmpt2d 7120	. . . 4 ⊢ (𝜑 → (1st ‘𝐺):(Base‘𝐶)⟶(𝐷 Func 𝐸))
41		eqid 2763	. . . . . 6 ⊢ (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))))) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))
42		ovex 7443	. . . . . . 7 ⊢ (𝑥(Hom ‘𝐶)𝑦) ∈ V
43	42	mptex 7221	. . . . . 6 ⊢ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))) ∈ V
44	41, 43	fnmpoi 8063	. . . . 5 ⊢ (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))))) Fn ((Base‘𝐶) × (Base‘𝐶))
45	18	fneq1d 6628	. . . . 5 ⊢ (𝜑 → ((2nd ‘𝐺) Fn ((Base‘𝐶) × (Base‘𝐶)) ↔ (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))))) Fn ((Base‘𝐶) × (Base‘𝐶))))
46	44, 45	mpbiri 261	. . . 4 ⊢ (𝜑 → (2nd ‘𝐺) Fn ((Base‘𝐶) × (Base‘𝐶)))
47		fvex 6894	. . . . . . 7 ⊢ (Base‘𝐷) ∈ V
48	47	mptex 7221	. . . . . 6 ⊢ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))) ∈ V
49	48	a1i 11	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))) ∈ V)
50	18	oveqd 7427	. . . . . 6 ⊢ (𝜑 → (𝑥(2nd ‘𝐺)𝑦) = (𝑥(𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))𝑦))
51	41	ovmpt4g 7557	. . . . . . 7 ⊢ ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))) ∈ V) → (𝑥(𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))𝑦) = (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))
52	43, 51	mp3an3 1479	. . . . . 6 ⊢ ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) → (𝑥(𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))𝑦) = (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))
53	50, 52	sylan9eq 2818	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd ‘𝐺)𝑦) = (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))
54	3	ad2antrr 738	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝐶 ∈ Cat)
55	4	ad2antrr 738	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝐷 ∈ Cat)
56	5	ad2antrr 738	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
57		simplrl 788	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑥 ∈ (Base‘𝐶))
58		simplrr 789	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑦 ∈ (Base‘𝐶))
59		simpr 489	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦))
60		eqid 2763	. . . . . 6 ⊢ ((𝑥(2nd ‘𝐺)𝑦)‘𝑔) = ((𝑥(2nd ‘𝐺)𝑦)‘𝑔)
61	1, 2, 54, 55, 56, 6, 9, 10, 57, 58, 59, 60, 23	curf2cl 18282	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((𝑥(2nd ‘𝐺)𝑦)‘𝑔) ∈ (((1st ‘𝐺)‘𝑥)(𝐷 Nat 𝐸)((1st ‘𝐺)‘𝑦)))
62	49, 53, 61	fmpt2d 7120	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd ‘𝐺)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st ‘𝐺)‘𝑥)(𝐷 Nat 𝐸)((1st ‘𝐺)‘𝑦)))
63		eqid 2763	. . . . . . . . . 10 ⊢ (𝐶 ×c 𝐷) = (𝐶 ×c 𝐷)
64	63, 2, 6	xpcbas 18229	. . . . . . . . 9 ⊢ ((Base‘𝐶) × (Base‘𝐷)) = (Base‘(𝐶 ×c 𝐷))
65		eqid 2763	. . . . . . . . 9 ⊢ (Id‘(𝐶 ×c 𝐷)) = (Id‘(𝐶 ×c 𝐷))
66		eqid 2763	. . . . . . . . 9 ⊢ (Id‘𝐸) = (Id‘𝐸)
67		relfunc 17914	. . . . . . . . . . 11 ⊢ Rel ((𝐶 ×c 𝐷) Func 𝐸)
68		1st2ndbr 8035	. . . . . . . . . . 11 ⊢ ((Rel ((𝐶 ×c 𝐷) Func 𝐸) ∧ 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸)) → (1st ‘𝐹)((𝐶 ×c 𝐷) Func 𝐸)(2nd ‘𝐹))
69	67, 5, 68	sylancr 598	. . . . . . . . . 10 ⊢ (𝜑 → (1st ‘𝐹)((𝐶 ×c 𝐷) Func 𝐸)(2nd ‘𝐹))
70	69	ad2antrr 738	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → (1st ‘𝐹)((𝐶 ×c 𝐷) Func 𝐸)(2nd ‘𝐹))
71		opelxpi 5698	. . . . . . . . . 10 ⊢ ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐷)) → ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
72	71	adantll 726	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
73	64, 65, 66, 70, 72	funcid 17922	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)‘((Id‘(𝐶 ×c 𝐷))‘⟨𝑥, 𝑦⟩)) = ((Id‘𝐸)‘((1st ‘𝐹)‘⟨𝑥, 𝑦⟩)))
74	3	ad2antrr 738	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → 𝐶 ∈ Cat)
75	4	ad2antrr 738	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → 𝐷 ∈ Cat)
76	37	adantr 485	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → 𝑥 ∈ (Base‘𝐶))
77		simpr 489	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → 𝑦 ∈ (Base‘𝐷))
78	63, 74, 75, 2, 6, 8, 10, 65, 76, 77	xpcid 18240	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((Id‘(𝐶 ×c 𝐷))‘⟨𝑥, 𝑦⟩) = ⟨((Id‘𝐶)‘𝑥), ((Id‘𝐷)‘𝑦)⟩)
79	78	fveq2d 6885	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)‘((Id‘(𝐶 ×c 𝐷))‘⟨𝑥, 𝑦⟩)) = ((⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)‘⟨((Id‘𝐶)‘𝑥), ((Id‘𝐷)‘𝑦)⟩))
80		df-ov 7413	. . . . . . . . 9 ⊢ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)((Id‘𝐷)‘𝑦)) = ((⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)‘⟨((Id‘𝐶)‘𝑥), ((Id‘𝐷)‘𝑦)⟩)
81	79, 80	eqtr4di 2816	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)‘((Id‘(𝐶 ×c 𝐷))‘⟨𝑥, 𝑦⟩)) = (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)((Id‘𝐷)‘𝑦)))
82	5	ad2antrr 738	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
83	1, 2, 74, 75, 82, 6, 76, 38, 77	curf11 18277	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((1st ‘((1st ‘𝐺)‘𝑥))‘𝑦) = (𝑥(1st ‘𝐹)𝑦))
84		df-ov 7413	. . . . . . . . . 10 ⊢ (𝑥(1st ‘𝐹)𝑦) = ((1st ‘𝐹)‘⟨𝑥, 𝑦⟩)
85	83, 84	eqtr2di 2815	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((1st ‘𝐹)‘⟨𝑥, 𝑦⟩) = ((1st ‘((1st ‘𝐺)‘𝑥))‘𝑦))
86	85	fveq2d 6885	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((Id‘𝐸)‘((1st ‘𝐹)‘⟨𝑥, 𝑦⟩)) = ((Id‘𝐸)‘((1st ‘((1st ‘𝐺)‘𝑥))‘𝑦)))
87	73, 81, 86	3eqtr3d 2806	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)((Id‘𝐷)‘𝑦)) = ((Id‘𝐸)‘((1st ‘((1st ‘𝐺)‘𝑥))‘𝑦)))
88	87	mpteq2dva 5204	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝑦 ∈ (Base‘𝐷) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)((Id‘𝐷)‘𝑦))) = (𝑦 ∈ (Base‘𝐷) ↦ ((Id‘𝐸)‘((1st ‘((1st ‘𝐺)‘𝑥))‘𝑦))))
89	30	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐸 ∈ Cat)
90		eqid 2763	. . . . . . . . . 10 ⊢ (Base‘𝐸) = (Base‘𝐸)
91	90, 66	cidfn 17730	. . . . . . . . 9 ⊢ (𝐸 ∈ Cat → (Id‘𝐸) Fn (Base‘𝐸))
92	89, 91	syl 18	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (Id‘𝐸) Fn (Base‘𝐸))
93		dffn2 6707	. . . . . . . 8 ⊢ ((Id‘𝐸) Fn (Base‘𝐸) ↔ (Id‘𝐸):(Base‘𝐸)⟶V)
94	92, 93	sylib 221	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (Id‘𝐸):(Base‘𝐸)⟶V)
95		relfunc 17914	. . . . . . . . 9 ⊢ Rel (𝐷 Func 𝐸)
96		1st2ndbr 8035	. . . . . . . . 9 ⊢ ((Rel (𝐷 Func 𝐸) ∧ ((1st ‘𝐺)‘𝑥) ∈ (𝐷 Func 𝐸)) → (1st ‘((1st ‘𝐺)‘𝑥))(𝐷 Func 𝐸)(2nd ‘((1st ‘𝐺)‘𝑥)))
97	95, 39, 96	sylancr 598	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (1st ‘((1st ‘𝐺)‘𝑥))(𝐷 Func 𝐸)(2nd ‘((1st ‘𝐺)‘𝑥)))
98	6, 90, 97	funcf1 17918	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (1st ‘((1st ‘𝐺)‘𝑥)):(Base‘𝐷)⟶(Base‘𝐸))
99		fcompt 7129	. . . . . . 7 ⊢ (((Id‘𝐸):(Base‘𝐸)⟶V ∧ (1st ‘((1st ‘𝐺)‘𝑥)):(Base‘𝐷)⟶(Base‘𝐸)) → ((Id‘𝐸) ∘ (1st ‘((1st ‘𝐺)‘𝑥))) = (𝑦 ∈ (Base‘𝐷) ↦ ((Id‘𝐸)‘((1st ‘((1st ‘𝐺)‘𝑥))‘𝑦))))
100	94, 98, 99	syl2anc 595	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((Id‘𝐸) ∘ (1st ‘((1st ‘𝐺)‘𝑥))) = (𝑦 ∈ (Base‘𝐷) ↦ ((Id‘𝐸)‘((1st ‘((1st ‘𝐺)‘𝑥))‘𝑦))))
101	88, 100	eqtr4d 2801	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝑦 ∈ (Base‘𝐷) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)((Id‘𝐷)‘𝑦))) = ((Id‘𝐸) ∘ (1st ‘((1st ‘𝐺)‘𝑥))))
102	2, 9, 8, 34, 37	catidcl 17733	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((Id‘𝐶)‘𝑥) ∈ (𝑥(Hom ‘𝐶)𝑥))
103		eqid 2763	. . . . . 6 ⊢ ((𝑥(2nd ‘𝐺)𝑥)‘((Id‘𝐶)‘𝑥)) = ((𝑥(2nd ‘𝐺)𝑥)‘((Id‘𝐶)‘𝑥))
104	1, 2, 34, 35, 36, 6, 9, 10, 37, 37, 102, 103	curf2 18280	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((𝑥(2nd ‘𝐺)𝑥)‘((Id‘𝐶)‘𝑥)) = (𝑦 ∈ (Base‘𝐷) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)((Id‘𝐷)‘𝑦))))
105	21, 25, 66, 39	fucid 18026	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((Id‘𝑄)‘((1st ‘𝐺)‘𝑥)) = ((Id‘𝐸) ∘ (1st ‘((1st ‘𝐺)‘𝑥))))
106	101, 104, 105	3eqtr4d 2808	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((𝑥(2nd ‘𝐺)𝑥)‘((Id‘𝐶)‘𝑥)) = ((Id‘𝑄)‘((1st ‘𝐺)‘𝑥)))
107	3	3ad2ant1 1151	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝐶 ∈ Cat)
108	107	adantr 485	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝐶 ∈ Cat)
109	4	3ad2ant1 1151	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝐷 ∈ Cat)
110	109	adantr 485	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝐷 ∈ Cat)
111	5	3ad2ant1 1151	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
112	111	adantr 485	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
113		simp21 1225	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑥 ∈ (Base‘𝐶))
114	113	adantr 485	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝑥 ∈ (Base‘𝐶))
115		simpr 489	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝑤 ∈ (Base‘𝐷))
116	1, 2, 108, 110, 112, 6, 114, 38, 115	curf11 18277	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((1st ‘((1st ‘𝐺)‘𝑥))‘𝑤) = (𝑥(1st ‘𝐹)𝑤))
117		df-ov 7413	. . . . . . . . . . 11 ⊢ (𝑥(1st ‘𝐹)𝑤) = ((1st ‘𝐹)‘⟨𝑥, 𝑤⟩)
118	116, 117	eqtrdi 2814	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((1st ‘((1st ‘𝐺)‘𝑥))‘𝑤) = ((1st ‘𝐹)‘⟨𝑥, 𝑤⟩))
119		simp22 1226	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑦 ∈ (Base‘𝐶))
120	119	adantr 485	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝑦 ∈ (Base‘𝐶))
121		eqid 2763	. . . . . . . . . . . 12 ⊢ ((1st ‘𝐺)‘𝑦) = ((1st ‘𝐺)‘𝑦)
122	1, 2, 108, 110, 112, 6, 120, 121, 115	curf11 18277	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((1st ‘((1st ‘𝐺)‘𝑦))‘𝑤) = (𝑦(1st ‘𝐹)𝑤))
123		df-ov 7413	. . . . . . . . . . 11 ⊢ (𝑦(1st ‘𝐹)𝑤) = ((1st ‘𝐹)‘⟨𝑦, 𝑤⟩)
124	122, 123	eqtrdi 2814	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((1st ‘((1st ‘𝐺)‘𝑦))‘𝑤) = ((1st ‘𝐹)‘⟨𝑦, 𝑤⟩))
125	118, 124	opeq12d 4846	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨((1st ‘((1st ‘𝐺)‘𝑥))‘𝑤), ((1st ‘((1st ‘𝐺)‘𝑦))‘𝑤)⟩ = ⟨((1st ‘𝐹)‘⟨𝑥, 𝑤⟩), ((1st ‘𝐹)‘⟨𝑦, 𝑤⟩)⟩)
126		simp23 1227	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑧 ∈ (Base‘𝐶))
127	126	adantr 485	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝑧 ∈ (Base‘𝐶))
128		eqid 2763	. . . . . . . . . . 11 ⊢ ((1st ‘𝐺)‘𝑧) = ((1st ‘𝐺)‘𝑧)
129	1, 2, 108, 110, 112, 6, 127, 128, 115	curf11 18277	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((1st ‘((1st ‘𝐺)‘𝑧))‘𝑤) = (𝑧(1st ‘𝐹)𝑤))
130		df-ov 7413	. . . . . . . . . 10 ⊢ (𝑧(1st ‘𝐹)𝑤) = ((1st ‘𝐹)‘⟨𝑧, 𝑤⟩)
131	129, 130	eqtrdi 2814	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((1st ‘((1st ‘𝐺)‘𝑧))‘𝑤) = ((1st ‘𝐹)‘⟨𝑧, 𝑤⟩))
132	125, 131	oveq12d 7428	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (⟨((1st ‘((1st ‘𝐺)‘𝑥))‘𝑤), ((1st ‘((1st ‘𝐺)‘𝑦))‘𝑤)⟩(comp‘𝐸)((1st ‘((1st ‘𝐺)‘𝑧))‘𝑤)) = (⟨((1st ‘𝐹)‘⟨𝑥, 𝑤⟩), ((1st ‘𝐹)‘⟨𝑦, 𝑤⟩)⟩(comp‘𝐸)((1st ‘𝐹)‘⟨𝑧, 𝑤⟩)))
133		simp3r 1221	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))
134	133	adantr 485	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))
135		eqid 2763	. . . . . . . . . 10 ⊢ ((𝑦(2nd ‘𝐺)𝑧)‘𝑔) = ((𝑦(2nd ‘𝐺)𝑧)‘𝑔)
136	1, 2, 108, 110, 112, 6, 9, 10, 120, 127, 134, 135, 115	curf2val 18281	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (((𝑦(2nd ‘𝐺)𝑧)‘𝑔)‘𝑤) = (𝑔(⟨𝑦, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)((Id‘𝐷)‘𝑤)))
137		df-ov 7413	. . . . . . . . 9 ⊢ (𝑔(⟨𝑦, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)((Id‘𝐷)‘𝑤)) = ((⟨𝑦, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)‘⟨𝑔, ((Id‘𝐷)‘𝑤)⟩)
138	136, 137	eqtrdi 2814	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (((𝑦(2nd ‘𝐺)𝑧)‘𝑔)‘𝑤) = ((⟨𝑦, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)‘⟨𝑔, ((Id‘𝐷)‘𝑤)⟩))
139		simp3l 1220	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
140	139	adantr 485	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
141		eqid 2763	. . . . . . . . . 10 ⊢ ((𝑥(2nd ‘𝐺)𝑦)‘𝑓) = ((𝑥(2nd ‘𝐺)𝑦)‘𝑓)
142	1, 2, 108, 110, 112, 6, 9, 10, 114, 120, 140, 141, 115	curf2val 18281	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (((𝑥(2nd ‘𝐺)𝑦)‘𝑓)‘𝑤) = (𝑓(⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑦, 𝑤⟩)((Id‘𝐷)‘𝑤)))
143		df-ov 7413	. . . . . . . . 9 ⊢ (𝑓(⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑦, 𝑤⟩)((Id‘𝐷)‘𝑤)) = ((⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑦, 𝑤⟩)‘⟨𝑓, ((Id‘𝐷)‘𝑤)⟩)
144	142, 143	eqtrdi 2814	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (((𝑥(2nd ‘𝐺)𝑦)‘𝑓)‘𝑤) = ((⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑦, 𝑤⟩)‘⟨𝑓, ((Id‘𝐷)‘𝑤)⟩))
145	132, 138, 144	oveq123d 7431	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((((𝑦(2nd ‘𝐺)𝑧)‘𝑔)‘𝑤)(⟨((1st ‘((1st ‘𝐺)‘𝑥))‘𝑤), ((1st ‘((1st ‘𝐺)‘𝑦))‘𝑤)⟩(comp‘𝐸)((1st ‘((1st ‘𝐺)‘𝑧))‘𝑤))(((𝑥(2nd ‘𝐺)𝑦)‘𝑓)‘𝑤)) = (((⟨𝑦, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)‘⟨𝑔, ((Id‘𝐷)‘𝑤)⟩)(⟨((1st ‘𝐹)‘⟨𝑥, 𝑤⟩), ((1st ‘𝐹)‘⟨𝑦, 𝑤⟩)⟩(comp‘𝐸)((1st ‘𝐹)‘⟨𝑧, 𝑤⟩))((⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑦, 𝑤⟩)‘⟨𝑓, ((Id‘𝐷)‘𝑤)⟩)))
146		eqid 2763	. . . . . . . 8 ⊢ (Hom ‘(𝐶 ×c 𝐷)) = (Hom ‘(𝐶 ×c 𝐷))
147		eqid 2763	. . . . . . . 8 ⊢ (comp‘(𝐶 ×c 𝐷)) = (comp‘(𝐶 ×c 𝐷))
148		eqid 2763	. . . . . . . 8 ⊢ (comp‘𝐸) = (comp‘𝐸)
149	67, 112, 68	sylancr 598	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (1st ‘𝐹)((𝐶 ×c 𝐷) Func 𝐸)(2nd ‘𝐹))
150		opelxpi 5698	. . . . . . . . 9 ⊢ ((𝑥 ∈ (Base‘𝐶) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑥, 𝑤⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
151	113, 150	sylan 591	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑥, 𝑤⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
152		opelxpi 5698	. . . . . . . . 9 ⊢ ((𝑦 ∈ (Base‘𝐶) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑦, 𝑤⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
153	119, 152	sylan 591	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑦, 𝑤⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
154		opelxpi 5698	. . . . . . . . 9 ⊢ ((𝑧 ∈ (Base‘𝐶) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑧, 𝑤⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
155	126, 154	sylan 591	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑧, 𝑤⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
156	6, 7, 10, 110, 115	catidcl 17733	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((Id‘𝐷)‘𝑤) ∈ (𝑤(Hom ‘𝐷)𝑤))
157	140, 156	opelxpd 5700	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑓, ((Id‘𝐷)‘𝑤)⟩ ∈ ((𝑥(Hom ‘𝐶)𝑦) × (𝑤(Hom ‘𝐷)𝑤)))
158	63, 2, 6, 9, 7, 114, 115, 120, 115, 146	xpchom2 18237	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (⟨𝑥, 𝑤⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑦, 𝑤⟩) = ((𝑥(Hom ‘𝐶)𝑦) × (𝑤(Hom ‘𝐷)𝑤)))
159	157, 158	eleqtrrd 2866	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑓, ((Id‘𝐷)‘𝑤)⟩ ∈ (⟨𝑥, 𝑤⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑦, 𝑤⟩))
160	134, 156	opelxpd 5700	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑔, ((Id‘𝐷)‘𝑤)⟩ ∈ ((𝑦(Hom ‘𝐶)𝑧) × (𝑤(Hom ‘𝐷)𝑤)))
161	63, 2, 6, 9, 7, 120, 115, 127, 115, 146	xpchom2 18237	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (⟨𝑦, 𝑤⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑧, 𝑤⟩) = ((𝑦(Hom ‘𝐶)𝑧) × (𝑤(Hom ‘𝐷)𝑤)))
162	160, 161	eleqtrrd 2866	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑔, ((Id‘𝐷)‘𝑤)⟩ ∈ (⟨𝑦, 𝑤⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑧, 𝑤⟩))
163	64, 146, 147, 148, 149, 151, 153, 155, 159, 162	funcco 17923	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)‘(⟨𝑔, ((Id‘𝐷)‘𝑤)⟩(⟨⟨𝑥, 𝑤⟩, ⟨𝑦, 𝑤⟩⟩(comp‘(𝐶 ×c 𝐷))⟨𝑧, 𝑤⟩)⟨𝑓, ((Id‘𝐷)‘𝑤)⟩)) = (((⟨𝑦, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)‘⟨𝑔, ((Id‘𝐷)‘𝑤)⟩)(⟨((1st ‘𝐹)‘⟨𝑥, 𝑤⟩), ((1st ‘𝐹)‘⟨𝑦, 𝑤⟩)⟩(comp‘𝐸)((1st ‘𝐹)‘⟨𝑧, 𝑤⟩))((⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑦, 𝑤⟩)‘⟨𝑓, ((Id‘𝐷)‘𝑤)⟩)))
164		eqid 2763	. . . . . . . . . . 11 ⊢ (comp‘𝐷) = (comp‘𝐷)
165	63, 2, 6, 9, 7, 114, 115, 120, 115, 26, 164, 147, 127, 115, 140, 156, 134, 156	xpcco2 18238	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (⟨𝑔, ((Id‘𝐷)‘𝑤)⟩(⟨⟨𝑥, 𝑤⟩, ⟨𝑦, 𝑤⟩⟩(comp‘(𝐶 ×c 𝐷))⟨𝑧, 𝑤⟩)⟨𝑓, ((Id‘𝐷)‘𝑤)⟩) = ⟨(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓), (((Id‘𝐷)‘𝑤)(⟨𝑤, 𝑤⟩(comp‘𝐷)𝑤)((Id‘𝐷)‘𝑤))⟩)
166	6, 7, 10, 110, 115, 164, 115, 156	catlid 17734	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (((Id‘𝐷)‘𝑤)(⟨𝑤, 𝑤⟩(comp‘𝐷)𝑤)((Id‘𝐷)‘𝑤)) = ((Id‘𝐷)‘𝑤))
167	166	opeq2d 4845	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓), (((Id‘𝐷)‘𝑤)(⟨𝑤, 𝑤⟩(comp‘𝐷)𝑤)((Id‘𝐷)‘𝑤))⟩ = ⟨(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓), ((Id‘𝐷)‘𝑤)⟩)
168	165, 167	eqtrd 2798	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (⟨𝑔, ((Id‘𝐷)‘𝑤)⟩(⟨⟨𝑥, 𝑤⟩, ⟨𝑦, 𝑤⟩⟩(comp‘(𝐶 ×c 𝐷))⟨𝑧, 𝑤⟩)⟨𝑓, ((Id‘𝐷)‘𝑤)⟩) = ⟨(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓), ((Id‘𝐷)‘𝑤)⟩)
169	168	fveq2d 6885	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)‘(⟨𝑔, ((Id‘𝐷)‘𝑤)⟩(⟨⟨𝑥, 𝑤⟩, ⟨𝑦, 𝑤⟩⟩(comp‘(𝐶 ×c 𝐷))⟨𝑧, 𝑤⟩)⟨𝑓, ((Id‘𝐷)‘𝑤)⟩)) = ((⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)‘⟨(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓), ((Id‘𝐷)‘𝑤)⟩))
170		df-ov 7413	. . . . . . . 8 ⊢ ((𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)(⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)((Id‘𝐷)‘𝑤)) = ((⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)‘⟨(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓), ((Id‘𝐷)‘𝑤)⟩)
171	169, 170	eqtr4di 2816	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)‘(⟨𝑔, ((Id‘𝐷)‘𝑤)⟩(⟨⟨𝑥, 𝑤⟩, ⟨𝑦, 𝑤⟩⟩(comp‘(𝐶 ×c 𝐷))⟨𝑧, 𝑤⟩)⟨𝑓, ((Id‘𝐷)‘𝑤)⟩)) = ((𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)(⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)((Id‘𝐷)‘𝑤)))
172	145, 163, 171	3eqtr2rd 2805	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)(⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)((Id‘𝐷)‘𝑤)) = ((((𝑦(2nd ‘𝐺)𝑧)‘𝑔)‘𝑤)(⟨((1st ‘((1st ‘𝐺)‘𝑥))‘𝑤), ((1st ‘((1st ‘𝐺)‘𝑦))‘𝑤)⟩(comp‘𝐸)((1st ‘((1st ‘𝐺)‘𝑧))‘𝑤))(((𝑥(2nd ‘𝐺)𝑦)‘𝑓)‘𝑤)))
173	172	mpteq2dva 5204	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑤 ∈ (Base‘𝐷) ↦ ((𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)(⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)((Id‘𝐷)‘𝑤))) = (𝑤 ∈ (Base‘𝐷) ↦ ((((𝑦(2nd ‘𝐺)𝑧)‘𝑔)‘𝑤)(⟨((1st ‘((1st ‘𝐺)‘𝑥))‘𝑤), ((1st ‘((1st ‘𝐺)‘𝑦))‘𝑤)⟩(comp‘𝐸)((1st ‘((1st ‘𝐺)‘𝑧))‘𝑤))(((𝑥(2nd ‘𝐺)𝑦)‘𝑓)‘𝑤))))
174	2, 9, 26, 107, 113, 119, 126, 139, 133	catcocl 17736	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) ∈ (𝑥(Hom ‘𝐶)𝑧))
175		eqid 2763	. . . . . 6 ⊢ ((𝑥(2nd ‘𝐺)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = ((𝑥(2nd ‘𝐺)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓))
176	1, 2, 107, 109, 111, 6, 9, 10, 113, 126, 174, 175	curf2 18280	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥(2nd ‘𝐺)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = (𝑤 ∈ (Base‘𝐷) ↦ ((𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)(⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)((Id‘𝐷)‘𝑤))))
177	1, 2, 107, 109, 111, 6, 9, 10, 113, 119, 139, 141, 23	curf2cl 18282	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥(2nd ‘𝐺)𝑦)‘𝑓) ∈ (((1st ‘𝐺)‘𝑥)(𝐷 Nat 𝐸)((1st ‘𝐺)‘𝑦)))
178	1, 2, 107, 109, 111, 6, 9, 10, 119, 126, 133, 135, 23	curf2cl 18282	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑦(2nd ‘𝐺)𝑧)‘𝑔) ∈ (((1st ‘𝐺)‘𝑦)(𝐷 Nat 𝐸)((1st ‘𝐺)‘𝑧)))
179	21, 23, 6, 148, 27, 177, 178	fucco 18017	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (((𝑦(2nd ‘𝐺)𝑧)‘𝑔)(⟨((1st ‘𝐺)‘𝑥), ((1st ‘𝐺)‘𝑦)⟩(comp‘𝑄)((1st ‘𝐺)‘𝑧))((𝑥(2nd ‘𝐺)𝑦)‘𝑓)) = (𝑤 ∈ (Base‘𝐷) ↦ ((((𝑦(2nd ‘𝐺)𝑧)‘𝑔)‘𝑤)(⟨((1st ‘((1st ‘𝐺)‘𝑥))‘𝑤), ((1st ‘((1st ‘𝐺)‘𝑦))‘𝑤)⟩(comp‘𝐸)((1st ‘((1st ‘𝐺)‘𝑧))‘𝑤))(((𝑥(2nd ‘𝐺)𝑦)‘𝑓)‘𝑤))))
180	173, 176, 179	3eqtr4d 2808	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥(2nd ‘𝐺)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = (((𝑦(2nd ‘𝐺)𝑧)‘𝑔)(⟨((1st ‘𝐺)‘𝑥), ((1st ‘𝐺)‘𝑦)⟩(comp‘𝑄)((1st ‘𝐺)‘𝑧))((𝑥(2nd ‘𝐺)𝑦)‘𝑓)))
181	2, 22, 9, 24, 8, 25, 26, 27, 3, 31, 40, 46, 62, 106, 180	isfuncd 17917	. . 3 ⊢ (𝜑 → (1st ‘𝐺)(𝐶 Func 𝑄)(2nd ‘𝐺))
182		df-br 5110	. . 3 ⊢ ((1st ‘𝐺)(𝐶 Func 𝑄)(2nd ‘𝐺) ↔ ⟨(1st ‘𝐺), (2nd ‘𝐺)⟩ ∈ (𝐶 Func 𝑄))
183	181, 182	sylib 221	. 2 ⊢ (𝜑 → ⟨(1st ‘𝐺), (2nd ‘𝐺)⟩ ∈ (𝐶 Func 𝑄))
184	20, 183	eqeltrd 2863	1 ⊢ (𝜑 → 𝐺 ∈ (𝐶 Func 𝑄))

Syntax hints:   → wi 4   ∧ wa 400   ∧ w3a 1103   = wceq 1570   ∈ wcel 2143  Vcvv 3455  ⟨cop 4595   class class class wbr 5109   ↦ cmpt 5192   × cxp 5659   ∘ ccom 5665  Rel wrel 5666   Fn wfn 6531  ⟶wf 6532  ‘cfv 6536  (class class class)co 7410   ∈ cmpo 7412  1^st c1st 7980  2^nd c2nd 7981  Basecbs 17264  Hom chom 17316  compcco 17317  Catccat 17715  Idccid 17716   Func cfunc 17906   Nat cnat 17996   FuncCat cfuc 17997   ×_c cxpc 18219   curry_F ccurf 18261

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5238  ax-sep 5257  ax-nul 5269  ax-pow 5336  ax-pr 5404  ax-un 7732  ax-cnex 11151  ax-resscn 11152  ax-1cn 11153  ax-icn 11154  ax-addcl 11155  ax-addrcl 11156  ax-mulcl 11157  ax-mulrcl 11158  ax-mulcom 11159  ax-addass 11160  ax-mulass 11161  ax-distr 11162  ax-i2m1 11163  ax-1ne0 11164  ax-1rid 11165  ax-rnegex 11166  ax-rrecex 11167  ax-cnre 11168  ax-pre-lttri 11169  ax-pre-lttrn 11170  ax-pre-ltadd 11171  ax-pre-mulgt0 11172

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3065  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4488  df-pw 4564  df-sn 4590  df-pr 4592  df-tp 4594  df-op 4596  df-uni 4873  df-iun 4958  df-br 5110  df-opab 5174  df-mpt 5193  df-tr 5219  df-id 5556  df-eprel 5561  df-po 5569  df-so 5570  df-fr 5614  df-we 5616  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-pred 6302  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-om 7859  df-1st 7982  df-2nd 7983  df-frecs 8274  df-wrecs 8305  df-recs 8354  df-rdg 8393  df-1o 8449  df-er 8690  df-map 8822  df-ixp 8892  df-en 8940  df-dom 8941  df-sdom 8942  df-fin 8943  df-pnf 11240  df-mnf 11241  df-xr 11242  df-ltxr 11243  df-le 11244  df-sub 11438  df-neg 11439  df-nn 12229  df-2 12298  df-3 12299  df-4 12300  df-5 12301  df-6 12302  df-7 12303  df-8 12304  df-9 12305  df-n0 12500  df-z 12587  df-dec 12707  df-uz 12858  df-fz 13531  df-struct 17202  df-slot 17237  df-ndx 17249  df-base 17265  df-hom 17329  df-cco 17330  df-cat 17719  df-cid 17720  df-func 17910  df-nat 17998  df-fuc 17999  df-xpc 18223  df-curf 18265

This theorem is referenced by:  uncfcurf  18290  diagcl  18292  curf2ndf  18298  yoncl  18313  tposcurfcl  50081