Theorem curfcl 18255

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 2761	. . . 4 ⊢ (Base‘𝐶) = (Base‘𝐶)
3		curfcl.c	. . . 4 ⊢ (𝜑 → 𝐶 ∈ Cat)
4		curfcl.d	. . . 4 ⊢ (𝜑 → 𝐷 ∈ Cat)
5		curfcl.f	. . . 4 ⊢ (𝜑 → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
6		eqid 2761	. . . 4 ⊢ (Base‘𝐷) = (Base‘𝐷)
7		eqid 2761	. . . 4 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
8		eqid 2761	. . . 4 ⊢ (Id‘𝐶) = (Id‘𝐶)
9		eqid 2761	. . . 4 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
10		eqid 2761	. . . 4 ⊢ (Id‘𝐷) = (Id‘𝐷)
11	1, 2, 3, 4, 5, 6, 7, 8, 9, 10	curfval 18246	. . 3 ⊢ (𝜑 → 𝐺 = ⟨(𝑥 ∈ (Base‘𝐶) ↦ ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st ‘𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))⟩)
12		fvex 6875	. . . . . . 7 ⊢ (Base‘𝐶) ∈ V
13	12	mptex 7202	. . . . . 6 ⊢ (𝑥 ∈ (Base‘𝐶) ↦ ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st ‘𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩) ∈ V
14	12, 12	mpoex 8055	. . . . . 6 ⊢ (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))))) ∈ V
15	13, 14	op1std 7975	. . . . 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 17	. . . 4 ⊢ (𝜑 → (1st ‘𝐺) = (𝑥 ∈ (Base‘𝐶) ↦ ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st ‘𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩))
17	13, 14	op2ndd 7976	. . . . 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 17	. . . 4 ⊢ (𝜑 → (2nd ‘𝐺) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))))))
19	16, 18	opeq12d 4836	. . 3 ⊢ (𝜑 → ⟨(1st ‘𝐺), (2nd ‘𝐺)⟩ = ⟨(𝑥 ∈ (Base‘𝐶) ↦ ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st ‘𝐹)𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑧⟩)𝑔)))⟩), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))⟩)
20	11, 19	eqtr4d 2799	. 2 ⊢ (𝜑 → 𝐺 = ⟨(1st ‘𝐺), (2nd ‘𝐺)⟩)
21		curfcl.q	. . . . 5 ⊢ 𝑄 = (𝐷 FuncCat 𝐸)
22	21	fucbas 17987	. . . 4 ⊢ (𝐷 Func 𝐸) = (Base‘𝑄)
23		eqid 2761	. . . . 5 ⊢ (𝐷 Nat 𝐸) = (𝐷 Nat 𝐸)
24	21, 23	fuchom 17988	. . . 4 ⊢ (𝐷 Nat 𝐸) = (Hom ‘𝑄)
25		eqid 2761	. . . 4 ⊢ (Id‘𝑄) = (Id‘𝑄)
26		eqid 2761	. . . 4 ⊢ (comp‘𝐶) = (comp‘𝐶)
27		eqid 2761	. . . 4 ⊢ (comp‘𝑄) = (comp‘𝑄)
28		funcrcl 17887	. . . . . . 7 ⊢ (𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸) → ((𝐶 ×c 𝐷) ∈ Cat ∧ 𝐸 ∈ Cat))
29	5, 28	syl 17	. . . . . 6 ⊢ (𝜑 → ((𝐶 ×c 𝐷) ∈ Cat ∧ 𝐸 ∈ Cat))
30	29	simprd 499	. . . . 5 ⊢ (𝜑 → 𝐸 ∈ Cat)
31	21, 4, 30	fuccat 17997	. . . 4 ⊢ (𝜑 → 𝑄 ∈ Cat)
32		opex 5428	. . . . . 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 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐶 ∈ Cat)
35	4	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐷 ∈ Cat)
36	5	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
37		simpr 488	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝑥 ∈ (Base‘𝐶))
38		eqid 2761	. . . . . 6 ⊢ ((1st ‘𝐺)‘𝑥) = ((1st ‘𝐺)‘𝑥)
39	1, 2, 34, 35, 36, 6, 37, 38	curf1cl 18251	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((1st ‘𝐺)‘𝑥) ∈ (𝐷 Func 𝐸))
40	33, 16, 39	fmpt2d 7101	. . . 4 ⊢ (𝜑 → (1st ‘𝐺):(Base‘𝐶)⟶(𝐷 Func 𝐸))
41		eqid 2761	. . . . . 6 ⊢ (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))))) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))
42		ovex 7424	. . . . . . 7 ⊢ (𝑥(Hom ‘𝐶)𝑦) ∈ V
43	42	mptex 7202	. . . . . 6 ⊢ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))) ∈ V
44	41, 43	fnmpoi 8046	. . . . 5 ⊢ (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))))) Fn ((Base‘𝐶) × (Base‘𝐶))
45	18	fneq1d 6609	. . . . 5 ⊢ (𝜑 → ((2nd ‘𝐺) Fn ((Base‘𝐶) × (Base‘𝐶)) ↔ (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))))) Fn ((Base‘𝐶) × (Base‘𝐶))))
46	44, 45	mpbiri 260	. . . 4 ⊢ (𝜑 → (2nd ‘𝐺) Fn ((Base‘𝐶) × (Base‘𝐶)))
47		fvex 6875	. . . . . . 7 ⊢ (Base‘𝐷) ∈ V
48	47	mptex 7202	. . . . . 6 ⊢ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))) ∈ V
49	48	a1i 11	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))) ∈ V)
50	18	oveqd 7408	. . . . . 6 ⊢ (𝜑 → (𝑥(2nd ‘𝐺)𝑦) = (𝑥(𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))𝑦))
51	41	ovmpt4g 7538	. . . . . . 7 ⊢ ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))) ∈ V) → (𝑥(𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))𝑦) = (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))
52	43, 51	mp3an3 1470	. . . . . 6 ⊢ ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) → (𝑥(𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))𝑦) = (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))
53	50, 52	sylan9eq 2816	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd ‘𝐺)𝑦) = (𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ (𝑧 ∈ (Base‘𝐷) ↦ (𝑔(⟨𝑥, 𝑧⟩(2nd ‘𝐹)⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)))))
54	3	ad2antrr 736	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝐶 ∈ Cat)
55	4	ad2antrr 736	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝐷 ∈ Cat)
56	5	ad2antrr 736	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
57		simplrl 786	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑥 ∈ (Base‘𝐶))
58		simplrr 787	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑦 ∈ (Base‘𝐶))
59		simpr 488	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦))
60		eqid 2761	. . . . . 6 ⊢ ((𝑥(2nd ‘𝐺)𝑦)‘𝑔) = ((𝑥(2nd ‘𝐺)𝑦)‘𝑔)
61	1, 2, 54, 55, 56, 6, 9, 10, 57, 58, 59, 60, 23	curf2cl 18254	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑔 ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((𝑥(2nd ‘𝐺)𝑦)‘𝑔) ∈ (((1st ‘𝐺)‘𝑥)(𝐷 Nat 𝐸)((1st ‘𝐺)‘𝑦)))
62	49, 53, 61	fmpt2d 7101	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd ‘𝐺)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st ‘𝐺)‘𝑥)(𝐷 Nat 𝐸)((1st ‘𝐺)‘𝑦)))
63		eqid 2761	. . . . . . . . . 10 ⊢ (𝐶 ×c 𝐷) = (𝐶 ×c 𝐷)
64	63, 2, 6	xpcbas 18201	. . . . . . . . 9 ⊢ ((Base‘𝐶) × (Base‘𝐷)) = (Base‘(𝐶 ×c 𝐷))
65		eqid 2761	. . . . . . . . 9 ⊢ (Id‘(𝐶 ×c 𝐷)) = (Id‘(𝐶 ×c 𝐷))
66		eqid 2761	. . . . . . . . 9 ⊢ (Id‘𝐸) = (Id‘𝐸)
67		relfunc 17886	. . . . . . . . . . 11 ⊢ Rel ((𝐶 ×c 𝐷) Func 𝐸)
68		1st2ndbr 8018	. . . . . . . . . . 11 ⊢ ((Rel ((𝐶 ×c 𝐷) Func 𝐸) ∧ 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸)) → (1st ‘𝐹)((𝐶 ×c 𝐷) Func 𝐸)(2nd ‘𝐹))
69	67, 5, 68	sylancr 596	. . . . . . . . . 10 ⊢ (𝜑 → (1st ‘𝐹)((𝐶 ×c 𝐷) Func 𝐸)(2nd ‘𝐹))
70	69	ad2antrr 736	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → (1st ‘𝐹)((𝐶 ×c 𝐷) Func 𝐸)(2nd ‘𝐹))
71		opelxpi 5680	. . . . . . . . . 10 ⊢ ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐷)) → ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
72	71	adantll 724	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
73	64, 65, 66, 70, 72	funcid 17894	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)‘((Id‘(𝐶 ×c 𝐷))‘⟨𝑥, 𝑦⟩)) = ((Id‘𝐸)‘((1st ‘𝐹)‘⟨𝑥, 𝑦⟩)))
74	3	ad2antrr 736	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → 𝐶 ∈ Cat)
75	4	ad2antrr 736	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → 𝐷 ∈ Cat)
76	37	adantr 484	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → 𝑥 ∈ (Base‘𝐶))
77		simpr 488	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → 𝑦 ∈ (Base‘𝐷))
78	63, 74, 75, 2, 6, 8, 10, 65, 76, 77	xpcid 18212	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((Id‘(𝐶 ×c 𝐷))‘⟨𝑥, 𝑦⟩) = ⟨((Id‘𝐶)‘𝑥), ((Id‘𝐷)‘𝑦)⟩)
79	78	fveq2d 6866	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)‘((Id‘(𝐶 ×c 𝐷))‘⟨𝑥, 𝑦⟩)) = ((⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)‘⟨((Id‘𝐶)‘𝑥), ((Id‘𝐷)‘𝑦)⟩))
80		df-ov 7394	. . . . . . . . 9 ⊢ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)((Id‘𝐷)‘𝑦)) = ((⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)‘⟨((Id‘𝐶)‘𝑥), ((Id‘𝐷)‘𝑦)⟩)
81	79, 80	eqtr4di 2814	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)‘((Id‘(𝐶 ×c 𝐷))‘⟨𝑥, 𝑦⟩)) = (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)((Id‘𝐷)‘𝑦)))
82	5	ad2antrr 736	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
83	1, 2, 74, 75, 82, 6, 76, 38, 77	curf11 18249	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((1st ‘((1st ‘𝐺)‘𝑥))‘𝑦) = (𝑥(1st ‘𝐹)𝑦))
84		df-ov 7394	. . . . . . . . . 10 ⊢ (𝑥(1st ‘𝐹)𝑦) = ((1st ‘𝐹)‘⟨𝑥, 𝑦⟩)
85	83, 84	eqtr2di 2813	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((1st ‘𝐹)‘⟨𝑥, 𝑦⟩) = ((1st ‘((1st ‘𝐺)‘𝑥))‘𝑦))
86	85	fveq2d 6866	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((Id‘𝐸)‘((1st ‘𝐹)‘⟨𝑥, 𝑦⟩)) = ((Id‘𝐸)‘((1st ‘((1st ‘𝐺)‘𝑥))‘𝑦)))
87	73, 81, 86	3eqtr3d 2804	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)((Id‘𝐷)‘𝑦)) = ((Id‘𝐸)‘((1st ‘((1st ‘𝐺)‘𝑥))‘𝑦)))
88	87	mpteq2dva 5190	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝑦 ∈ (Base‘𝐷) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)((Id‘𝐷)‘𝑦))) = (𝑦 ∈ (Base‘𝐷) ↦ ((Id‘𝐸)‘((1st ‘((1st ‘𝐺)‘𝑥))‘𝑦))))
89	30	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐸 ∈ Cat)
90		eqid 2761	. . . . . . . . . 10 ⊢ (Base‘𝐸) = (Base‘𝐸)
91	90, 66	cidfn 17702	. . . . . . . . 9 ⊢ (𝐸 ∈ Cat → (Id‘𝐸) Fn (Base‘𝐸))
92	89, 91	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (Id‘𝐸) Fn (Base‘𝐸))
93		dffn2 6688	. . . . . . . 8 ⊢ ((Id‘𝐸) Fn (Base‘𝐸) ↔ (Id‘𝐸):(Base‘𝐸)⟶V)
94	92, 93	sylib 220	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (Id‘𝐸):(Base‘𝐸)⟶V)
95		relfunc 17886	. . . . . . . . 9 ⊢ Rel (𝐷 Func 𝐸)
96		1st2ndbr 8018	. . . . . . . . 9 ⊢ ((Rel (𝐷 Func 𝐸) ∧ ((1st ‘𝐺)‘𝑥) ∈ (𝐷 Func 𝐸)) → (1st ‘((1st ‘𝐺)‘𝑥))(𝐷 Func 𝐸)(2nd ‘((1st ‘𝐺)‘𝑥)))
97	95, 39, 96	sylancr 596	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (1st ‘((1st ‘𝐺)‘𝑥))(𝐷 Func 𝐸)(2nd ‘((1st ‘𝐺)‘𝑥)))
98	6, 90, 97	funcf1 17890	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (1st ‘((1st ‘𝐺)‘𝑥)):(Base‘𝐷)⟶(Base‘𝐸))
99		fcompt 7110	. . . . . . 7 ⊢ (((Id‘𝐸):(Base‘𝐸)⟶V ∧ (1st ‘((1st ‘𝐺)‘𝑥)):(Base‘𝐷)⟶(Base‘𝐸)) → ((Id‘𝐸) ∘ (1st ‘((1st ‘𝐺)‘𝑥))) = (𝑦 ∈ (Base‘𝐷) ↦ ((Id‘𝐸)‘((1st ‘((1st ‘𝐺)‘𝑥))‘𝑦))))
100	94, 98, 99	syl2anc 593	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((Id‘𝐸) ∘ (1st ‘((1st ‘𝐺)‘𝑥))) = (𝑦 ∈ (Base‘𝐷) ↦ ((Id‘𝐸)‘((1st ‘((1st ‘𝐺)‘𝑥))‘𝑦))))
101	88, 100	eqtr4d 2799	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝑦 ∈ (Base‘𝐷) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)((Id‘𝐷)‘𝑦))) = ((Id‘𝐸) ∘ (1st ‘((1st ‘𝐺)‘𝑥))))
102	2, 9, 8, 34, 37	catidcl 17705	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((Id‘𝐶)‘𝑥) ∈ (𝑥(Hom ‘𝐶)𝑥))
103		eqid 2761	. . . . . 6 ⊢ ((𝑥(2nd ‘𝐺)𝑥)‘((Id‘𝐶)‘𝑥)) = ((𝑥(2nd ‘𝐺)𝑥)‘((Id‘𝐶)‘𝑥))
104	1, 2, 34, 35, 36, 6, 9, 10, 37, 37, 102, 103	curf2 18252	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((𝑥(2nd ‘𝐺)𝑥)‘((Id‘𝐶)‘𝑥)) = (𝑦 ∈ (Base‘𝐷) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘𝐹)⟨𝑥, 𝑦⟩)((Id‘𝐷)‘𝑦))))
105	21, 25, 66, 39	fucid 17998	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((Id‘𝑄)‘((1st ‘𝐺)‘𝑥)) = ((Id‘𝐸) ∘ (1st ‘((1st ‘𝐺)‘𝑥))))
106	101, 104, 105	3eqtr4d 2806	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((𝑥(2nd ‘𝐺)𝑥)‘((Id‘𝐶)‘𝑥)) = ((Id‘𝑄)‘((1st ‘𝐺)‘𝑥)))
107	3	3ad2ant1 1145	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝐶 ∈ Cat)
108	107	adantr 484	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝐶 ∈ Cat)
109	4	3ad2ant1 1145	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝐷 ∈ Cat)
110	109	adantr 484	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝐷 ∈ Cat)
111	5	3ad2ant1 1145	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
112	111	adantr 484	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝐹 ∈ ((𝐶 ×c 𝐷) Func 𝐸))
113		simp21 1219	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑥 ∈ (Base‘𝐶))
114	113	adantr 484	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝑥 ∈ (Base‘𝐶))
115		simpr 488	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝑤 ∈ (Base‘𝐷))
116	1, 2, 108, 110, 112, 6, 114, 38, 115	curf11 18249	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((1st ‘((1st ‘𝐺)‘𝑥))‘𝑤) = (𝑥(1st ‘𝐹)𝑤))
117		df-ov 7394	. . . . . . . . . . 11 ⊢ (𝑥(1st ‘𝐹)𝑤) = ((1st ‘𝐹)‘⟨𝑥, 𝑤⟩)
118	116, 117	eqtrdi 2812	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((1st ‘((1st ‘𝐺)‘𝑥))‘𝑤) = ((1st ‘𝐹)‘⟨𝑥, 𝑤⟩))
119		simp22 1220	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑦 ∈ (Base‘𝐶))
120	119	adantr 484	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝑦 ∈ (Base‘𝐶))
121		eqid 2761	. . . . . . . . . . . 12 ⊢ ((1st ‘𝐺)‘𝑦) = ((1st ‘𝐺)‘𝑦)
122	1, 2, 108, 110, 112, 6, 120, 121, 115	curf11 18249	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((1st ‘((1st ‘𝐺)‘𝑦))‘𝑤) = (𝑦(1st ‘𝐹)𝑤))
123		df-ov 7394	. . . . . . . . . . 11 ⊢ (𝑦(1st ‘𝐹)𝑤) = ((1st ‘𝐹)‘⟨𝑦, 𝑤⟩)
124	122, 123	eqtrdi 2812	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((1st ‘((1st ‘𝐺)‘𝑦))‘𝑤) = ((1st ‘𝐹)‘⟨𝑦, 𝑤⟩))
125	118, 124	opeq12d 4836	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨((1st ‘((1st ‘𝐺)‘𝑥))‘𝑤), ((1st ‘((1st ‘𝐺)‘𝑦))‘𝑤)⟩ = ⟨((1st ‘𝐹)‘⟨𝑥, 𝑤⟩), ((1st ‘𝐹)‘⟨𝑦, 𝑤⟩)⟩)
126		simp23 1221	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑧 ∈ (Base‘𝐶))
127	126	adantr 484	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝑧 ∈ (Base‘𝐶))
128		eqid 2761	. . . . . . . . . . 11 ⊢ ((1st ‘𝐺)‘𝑧) = ((1st ‘𝐺)‘𝑧)
129	1, 2, 108, 110, 112, 6, 127, 128, 115	curf11 18249	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((1st ‘((1st ‘𝐺)‘𝑧))‘𝑤) = (𝑧(1st ‘𝐹)𝑤))
130		df-ov 7394	. . . . . . . . . 10 ⊢ (𝑧(1st ‘𝐹)𝑤) = ((1st ‘𝐹)‘⟨𝑧, 𝑤⟩)
131	129, 130	eqtrdi 2812	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((1st ‘((1st ‘𝐺)‘𝑧))‘𝑤) = ((1st ‘𝐹)‘⟨𝑧, 𝑤⟩))
132	125, 131	oveq12d 7409	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (⟨((1st ‘((1st ‘𝐺)‘𝑥))‘𝑤), ((1st ‘((1st ‘𝐺)‘𝑦))‘𝑤)⟩(comp‘𝐸)((1st ‘((1st ‘𝐺)‘𝑧))‘𝑤)) = (⟨((1st ‘𝐹)‘⟨𝑥, 𝑤⟩), ((1st ‘𝐹)‘⟨𝑦, 𝑤⟩)⟩(comp‘𝐸)((1st ‘𝐹)‘⟨𝑧, 𝑤⟩)))
133		simp3r 1215	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))
134	133	adantr 484	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))
135		eqid 2761	. . . . . . . . . 10 ⊢ ((𝑦(2nd ‘𝐺)𝑧)‘𝑔) = ((𝑦(2nd ‘𝐺)𝑧)‘𝑔)
136	1, 2, 108, 110, 112, 6, 9, 10, 120, 127, 134, 135, 115	curf2val 18253	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (((𝑦(2nd ‘𝐺)𝑧)‘𝑔)‘𝑤) = (𝑔(⟨𝑦, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)((Id‘𝐷)‘𝑤)))
137		df-ov 7394	. . . . . . . . 9 ⊢ (𝑔(⟨𝑦, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)((Id‘𝐷)‘𝑤)) = ((⟨𝑦, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)‘⟨𝑔, ((Id‘𝐷)‘𝑤)⟩)
138	136, 137	eqtrdi 2812	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (((𝑦(2nd ‘𝐺)𝑧)‘𝑔)‘𝑤) = ((⟨𝑦, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)‘⟨𝑔, ((Id‘𝐷)‘𝑤)⟩))
139		simp3l 1214	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
140	139	adantr 484	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
141		eqid 2761	. . . . . . . . . 10 ⊢ ((𝑥(2nd ‘𝐺)𝑦)‘𝑓) = ((𝑥(2nd ‘𝐺)𝑦)‘𝑓)
142	1, 2, 108, 110, 112, 6, 9, 10, 114, 120, 140, 141, 115	curf2val 18253	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (((𝑥(2nd ‘𝐺)𝑦)‘𝑓)‘𝑤) = (𝑓(⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑦, 𝑤⟩)((Id‘𝐷)‘𝑤)))
143		df-ov 7394	. . . . . . . . 9 ⊢ (𝑓(⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑦, 𝑤⟩)((Id‘𝐷)‘𝑤)) = ((⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑦, 𝑤⟩)‘⟨𝑓, ((Id‘𝐷)‘𝑤)⟩)
144	142, 143	eqtrdi 2812	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (((𝑥(2nd ‘𝐺)𝑦)‘𝑓)‘𝑤) = ((⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑦, 𝑤⟩)‘⟨𝑓, ((Id‘𝐷)‘𝑤)⟩))
145	132, 138, 144	oveq123d 7412	. . . . . . 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 2761	. . . . . . . 8 ⊢ (Hom ‘(𝐶 ×c 𝐷)) = (Hom ‘(𝐶 ×c 𝐷))
147		eqid 2761	. . . . . . . 8 ⊢ (comp‘(𝐶 ×c 𝐷)) = (comp‘(𝐶 ×c 𝐷))
148		eqid 2761	. . . . . . . 8 ⊢ (comp‘𝐸) = (comp‘𝐸)
149	67, 112, 68	sylancr 596	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (1st ‘𝐹)((𝐶 ×c 𝐷) Func 𝐸)(2nd ‘𝐹))
150		opelxpi 5680	. . . . . . . . 9 ⊢ ((𝑥 ∈ (Base‘𝐶) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑥, 𝑤⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
151	113, 150	sylan 589	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑥, 𝑤⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
152		opelxpi 5680	. . . . . . . . 9 ⊢ ((𝑦 ∈ (Base‘𝐶) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑦, 𝑤⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
153	119, 152	sylan 589	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑦, 𝑤⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
154		opelxpi 5680	. . . . . . . . 9 ⊢ ((𝑧 ∈ (Base‘𝐶) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑧, 𝑤⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
155	126, 154	sylan 589	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑧, 𝑤⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
156	6, 7, 10, 110, 115	catidcl 17705	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((Id‘𝐷)‘𝑤) ∈ (𝑤(Hom ‘𝐷)𝑤))
157	140, 156	opelxpd 5682	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑓, ((Id‘𝐷)‘𝑤)⟩ ∈ ((𝑥(Hom ‘𝐶)𝑦) × (𝑤(Hom ‘𝐷)𝑤)))
158	63, 2, 6, 9, 7, 114, 115, 120, 115, 146	xpchom2 18209	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (⟨𝑥, 𝑤⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑦, 𝑤⟩) = ((𝑥(Hom ‘𝐶)𝑦) × (𝑤(Hom ‘𝐷)𝑤)))
159	157, 158	eleqtrrd 2864	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑓, ((Id‘𝐷)‘𝑤)⟩ ∈ (⟨𝑥, 𝑤⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑦, 𝑤⟩))
160	134, 156	opelxpd 5682	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑔, ((Id‘𝐷)‘𝑤)⟩ ∈ ((𝑦(Hom ‘𝐶)𝑧) × (𝑤(Hom ‘𝐷)𝑤)))
161	63, 2, 6, 9, 7, 120, 115, 127, 115, 146	xpchom2 18209	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (⟨𝑦, 𝑤⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑧, 𝑤⟩) = ((𝑦(Hom ‘𝐶)𝑧) × (𝑤(Hom ‘𝐷)𝑤)))
162	160, 161	eleqtrrd 2864	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨𝑔, ((Id‘𝐷)‘𝑤)⟩ ∈ (⟨𝑦, 𝑤⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑧, 𝑤⟩))
163	64, 146, 147, 148, 149, 151, 153, 155, 159, 162	funcco 17895	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)‘(⟨𝑔, ((Id‘𝐷)‘𝑤)⟩(⟨⟨𝑥, 𝑤⟩, ⟨𝑦, 𝑤⟩⟩(comp‘(𝐶 ×c 𝐷))⟨𝑧, 𝑤⟩)⟨𝑓, ((Id‘𝐷)‘𝑤)⟩)) = (((⟨𝑦, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)‘⟨𝑔, ((Id‘𝐷)‘𝑤)⟩)(⟨((1st ‘𝐹)‘⟨𝑥, 𝑤⟩), ((1st ‘𝐹)‘⟨𝑦, 𝑤⟩)⟩(comp‘𝐸)((1st ‘𝐹)‘⟨𝑧, 𝑤⟩))((⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑦, 𝑤⟩)‘⟨𝑓, ((Id‘𝐷)‘𝑤)⟩)))
164		eqid 2761	. . . . . . . . . . 11 ⊢ (comp‘𝐷) = (comp‘𝐷)
165	63, 2, 6, 9, 7, 114, 115, 120, 115, 26, 164, 147, 127, 115, 140, 156, 134, 156	xpcco2 18210	. . . . . . . . . 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 17706	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (((Id‘𝐷)‘𝑤)(⟨𝑤, 𝑤⟩(comp‘𝐷)𝑤)((Id‘𝐷)‘𝑤)) = ((Id‘𝐷)‘𝑤))
167	166	opeq2d 4835	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ⟨(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓), (((Id‘𝐷)‘𝑤)(⟨𝑤, 𝑤⟩(comp‘𝐷)𝑤)((Id‘𝐷)‘𝑤))⟩ = ⟨(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓), ((Id‘𝐷)‘𝑤)⟩)
168	165, 167	eqtrd 2796	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → (⟨𝑔, ((Id‘𝐷)‘𝑤)⟩(⟨⟨𝑥, 𝑤⟩, ⟨𝑦, 𝑤⟩⟩(comp‘(𝐶 ×c 𝐷))⟨𝑧, 𝑤⟩)⟨𝑓, ((Id‘𝐷)‘𝑤)⟩) = ⟨(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓), ((Id‘𝐷)‘𝑤)⟩)
169	168	fveq2d 6866	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)‘(⟨𝑔, ((Id‘𝐷)‘𝑤)⟩(⟨⟨𝑥, 𝑤⟩, ⟨𝑦, 𝑤⟩⟩(comp‘(𝐶 ×c 𝐷))⟨𝑧, 𝑤⟩)⟨𝑓, ((Id‘𝐷)‘𝑤)⟩)) = ((⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)‘⟨(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓), ((Id‘𝐷)‘𝑤)⟩))
170		df-ov 7394	. . . . . . . 8 ⊢ ((𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)(⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)((Id‘𝐷)‘𝑤)) = ((⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)‘⟨(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓), ((Id‘𝐷)‘𝑤)⟩)
171	169, 170	eqtr4di 2814	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)‘(⟨𝑔, ((Id‘𝐷)‘𝑤)⟩(⟨⟨𝑥, 𝑤⟩, ⟨𝑦, 𝑤⟩⟩(comp‘(𝐶 ×c 𝐷))⟨𝑧, 𝑤⟩)⟨𝑓, ((Id‘𝐷)‘𝑤)⟩)) = ((𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)(⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)((Id‘𝐷)‘𝑤)))
172	145, 163, 171	3eqtr2rd 2803	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) ∧ 𝑤 ∈ (Base‘𝐷)) → ((𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)(⟨𝑥, 𝑤⟩(2nd ‘𝐹)⟨𝑧, 𝑤⟩)((Id‘𝐷)‘𝑤)) = ((((𝑦(2nd ‘𝐺)𝑧)‘𝑔)‘𝑤)(⟨((1st ‘((1st ‘𝐺)‘𝑥))‘𝑤), ((1st ‘((1st ‘𝐺)‘𝑦))‘𝑤)⟩(comp‘𝐸)((1st ‘((1st ‘𝐺)‘𝑧))‘𝑤))(((𝑥(2nd ‘𝐺)𝑦)‘𝑓)‘𝑤)))
173	172	mpteq2dva 5190	. . . . 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 17708	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) ∈ (𝑥(Hom ‘𝐶)𝑧))
175		eqid 2761	. . . . . 6 ⊢ ((𝑥(2nd ‘𝐺)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = ((𝑥(2nd ‘𝐺)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓))
176	1, 2, 107, 109, 111, 6, 9, 10, 113, 126, 174, 175	curf2 18252	. . . . 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 18254	. . . . . 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 18254	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑦(2nd ‘𝐺)𝑧)‘𝑔) ∈ (((1st ‘𝐺)‘𝑦)(𝐷 Nat 𝐸)((1st ‘𝐺)‘𝑧)))
179	21, 23, 6, 148, 27, 177, 178	fucco 17989	. . . . 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 2806	. . . 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 17889	. . 3 ⊢ (𝜑 → (1st ‘𝐺)(𝐶 Func 𝑄)(2nd ‘𝐺))
182		df-br 5098	. . 3 ⊢ ((1st ‘𝐺)(𝐶 Func 𝑄)(2nd ‘𝐺) ↔ ⟨(1st ‘𝐺), (2nd ‘𝐺)⟩ ∈ (𝐶 Func 𝑄))
183	181, 182	sylib 220	. 2 ⊢ (𝜑 → ⟨(1st ‘𝐺), (2nd ‘𝐺)⟩ ∈ (𝐶 Func 𝑄))
184	20, 183	eqeltrd 2861	1 ⊢ (𝜑 → 𝐺 ∈ (𝐶 Func 𝑄))

Syntax hints:   → wi 4   ∧ wa 399   ∧ w3a 1097   = wceq 1559   ∈ wcel 2141  Vcvv 3453  ⟨cop 4585   class class class wbr 5097   ↦ cmpt 5178   × cxp 5641   ∘ ccom 5647  Rel wrel 5648   Fn wfn 6511  ⟶wf 6512  ‘cfv 6516  (class class class)co 7391   ∈ cmpo 7393  1^st c1st 7963  2^nd c2nd 7964  Basecbs 17236  Hom chom 17288  compcco 17289  Catccat 17687  Idccid 17688   Func cfunc 17878   Nat cnat 17968   FuncCat cfuc 17969   ×_c cxpc 18191   curry_F ccurf 18233

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1814  ax-4 1828  ax-5 1929  ax-6 1986  ax-7 2027  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5224  ax-sep 5243  ax-nul 5253  ax-pow 5319  ax-pr 5387  ax-un 7713  ax-cnex 11123  ax-resscn 11124  ax-1cn 11125  ax-icn 11126  ax-addcl 11127  ax-addrcl 11128  ax-mulcl 11129  ax-mulrcl 11130  ax-mulcom 11131  ax-addass 11132  ax-mulass 11133  ax-distr 11134  ax-i2m1 11135  ax-1ne0 11136  ax-1rid 11137  ax-rnegex 11138  ax-rrecex 11139  ax-cnre 11140  ax-pre-lttri 11141  ax-pre-lttrn 11142  ax-pre-ltadd 11143  ax-pre-mulgt0 11144

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1098  df-3an 1099  df-tru 1562  df-fal 1572  df-ex 1799  df-nf 1803  df-sb 2090  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3061  df-ral 3076  df-rex 3086  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4580  df-pr 4582  df-tp 4584  df-op 4586  df-uni 4863  df-iun 4948  df-br 5098  df-opab 5160  df-mpt 5179  df-tr 5205  df-id 5538  df-eprel 5543  df-po 5551  df-so 5552  df-fr 5596  df-we 5598  df-xp 5649  df-rel 5650  df-cnv 5651  df-co 5652  df-dm 5653  df-rn 5654  df-res 5655  df-ima 5656  df-pred 6283  df-ord 6344  df-on 6345  df-lim 6346  df-suc 6347  df-iota 6472  df-fun 6518  df-fn 6519  df-f 6520  df-f1 6521  df-fo 6522  df-f1o 6523  df-fv 6524  df-riota 7348  df-ov 7394  df-oprab 7395  df-mpo 7396  df-om 7842  df-1st 7965  df-2nd 7966  df-frecs 8256  df-wrecs 8287  df-recs 8336  df-rdg 8375  df-1o 8431  df-er 8672  df-map 8804  df-ixp 8874  df-en 8922  df-dom 8923  df-sdom 8924  df-fin 8925  df-pnf 11212  df-mnf 11213  df-xr 11214  df-ltxr 11215  df-le 11216  df-sub 11410  df-neg 11411  df-nn 12205  df-2 12274  df-3 12275  df-4 12276  df-5 12277  df-6 12278  df-7 12279  df-8 12280  df-9 12281  df-n0 12476  df-z 12563  df-dec 12683  df-uz 12834  df-fz 13507  df-struct 17174  df-slot 17209  df-ndx 17221  df-base 17237  df-hom 17301  df-cco 17302  df-cat 17691  df-cid 17692  df-func 17882  df-nat 17970  df-fuc 17971  df-xpc 18195  df-curf 18237

This theorem is referenced by:  uncfcurf  18262  diagcl  18264  curf2ndf  18270  yoncl  18285  tposcurfcl  49885