Theorem curf2ndf 18450

Description: As shown in diagval 18443, the currying of the first projection is the diagonal functor. On the other hand, the currying of the second projection is 𝑥 ∈ 𝐶 ↦ (𝑦 ∈ 𝐷 ↦ 𝑦), which is a constant functor of the identity functor at 𝐷. (Contributed by Mario Carneiro, 15-Jan-2017.)

Hypotheses

Ref	Expression
curf2ndf.q	⊢ 𝑄 = (𝐷 FuncCat 𝐷)
curf2ndf.c	⊢ (𝜑 → 𝐶 ∈ Cat)
curf2ndf.d	⊢ (𝜑 → 𝐷 ∈ Cat)

Assertion

Ref	Expression
curf2ndf	⊢ (𝜑 → (⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)) = ((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))

Proof of Theorem curf2ndf

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

Step	Hyp	Ref	Expression
1		df-ov 7446	. . . . . . . . . . 11 ⊢ (𝑥(1st ‘(𝐶 2ndF 𝐷))𝑦) = ((1st ‘(𝐶 2ndF 𝐷))‘⟨𝑥, 𝑦⟩)
2		eqid 2763	. . . . . . . . . . . . 13 ⊢ (𝐶 ×c 𝐷) = (𝐶 ×c 𝐷)
3		eqid 2763	. . . . . . . . . . . . . 14 ⊢ (Base‘𝐶) = (Base‘𝐶)
4		eqid 2763	. . . . . . . . . . . . . 14 ⊢ (Base‘𝐷) = (Base‘𝐷)
5	2, 3, 4	xpcbas 18381	. . . . . . . . . . . . 13 ⊢ ((Base‘𝐶) × (Base‘𝐷)) = (Base‘(𝐶 ×c 𝐷))
6		eqid 2763	. . . . . . . . . . . . 13 ⊢ (Hom ‘(𝐶 ×c 𝐷)) = (Hom ‘(𝐶 ×c 𝐷))
7		curf2ndf.c	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐶 ∈ Cat)
8	7	ad2antrr 739	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → 𝐶 ∈ Cat)
9		curf2ndf.d	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐷 ∈ Cat)
10	9	ad2antrr 739	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → 𝐷 ∈ Cat)
11		eqid 2763	. . . . . . . . . . . . 13 ⊢ (𝐶 2ndF 𝐷) = (𝐶 2ndF 𝐷)
12		opelxpi 5692	. . . . . . . . . . . . . 14 ⊢ ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐷)) → ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
13	12	adantll 727	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
14	2, 5, 6, 8, 10, 11, 13	2ndf1 18398	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((1st ‘(𝐶 2ndF 𝐷))‘⟨𝑥, 𝑦⟩) = (2nd ‘⟨𝑥, 𝑦⟩))
15		vex 3458	. . . . . . . . . . . . 13 ⊢ 𝑥 ∈ V
16		vex 3458	. . . . . . . . . . . . 13 ⊢ 𝑦 ∈ V
17	15, 16	op2nd 8034	. . . . . . . . . . . 12 ⊢ (2nd ‘⟨𝑥, 𝑦⟩) = 𝑦
18	14, 17	eqtrdi 2814	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → ((1st ‘(𝐶 2ndF 𝐷))‘⟨𝑥, 𝑦⟩) = 𝑦)
19	1, 18	eqtrid 2810	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) → (𝑥(1st ‘(𝐶 2ndF 𝐷))𝑦) = 𝑦)
20	19	mpteq2dva 5201	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st ‘(𝐶 2ndF 𝐷))𝑦)) = (𝑦 ∈ (Base‘𝐷) ↦ 𝑦))
21		mptresid 6055	. . . . . . . . 9 ⊢ ( I ↾ (Base‘𝐷)) = (𝑦 ∈ (Base‘𝐷) ↦ 𝑦)
22	20, 21	eqtr4di 2816	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st ‘(𝐶 2ndF 𝐷))𝑦)) = ( I ↾ (Base‘𝐷)))
23		df-ov 7446	. . . . . . . . . . . . . . 15 ⊢ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘(𝐶 2ndF 𝐷))⟨𝑥, 𝑧⟩)𝑓) = ((⟨𝑥, 𝑦⟩(2nd ‘(𝐶 2ndF 𝐷))⟨𝑥, 𝑧⟩)‘⟨((Id‘𝐶)‘𝑥), 𝑓⟩)
24	8	ad2antrr 739	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) ∧ 𝑧 ∈ (Base‘𝐷)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧)) → 𝐶 ∈ Cat)
25	10	ad2antrr 739	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) ∧ 𝑧 ∈ (Base‘𝐷)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧)) → 𝐷 ∈ Cat)
26	13	ad2antrr 739	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) ∧ 𝑧 ∈ (Base‘𝐷)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧)) → ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
27		simp-4r 796	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) ∧ 𝑧 ∈ (Base‘𝐷)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧)) → 𝑥 ∈ (Base‘𝐶))
28		simplr 781	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) ∧ 𝑧 ∈ (Base‘𝐷)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧)) → 𝑧 ∈ (Base‘𝐷))
29	27, 28	opelxpd 5694	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) ∧ 𝑧 ∈ (Base‘𝐷)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧)) → ⟨𝑥, 𝑧⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
30	2, 5, 6, 24, 25, 11, 26, 29	2ndf2 18399	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) ∧ 𝑧 ∈ (Base‘𝐷)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧)) → (⟨𝑥, 𝑦⟩(2nd ‘(𝐶 2ndF 𝐷))⟨𝑥, 𝑧⟩) = (2nd ↾ (⟨𝑥, 𝑦⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑥, 𝑧⟩)))
31	30	fveq1d 6910	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) ∧ 𝑧 ∈ (Base‘𝐷)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧)) → ((⟨𝑥, 𝑦⟩(2nd ‘(𝐶 2ndF 𝐷))⟨𝑥, 𝑧⟩)‘⟨((Id‘𝐶)‘𝑥), 𝑓⟩) = ((2nd ↾ (⟨𝑥, 𝑦⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑥, 𝑧⟩))‘⟨((Id‘𝐶)‘𝑥), 𝑓⟩))
32	23, 31	eqtrid 2810	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) ∧ 𝑧 ∈ (Base‘𝐷)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧)) → (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘(𝐶 2ndF 𝐷))⟨𝑥, 𝑧⟩)𝑓) = ((2nd ↾ (⟨𝑥, 𝑦⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑥, 𝑧⟩))‘⟨((Id‘𝐶)‘𝑥), 𝑓⟩))
33		eqid 2763	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
34		eqid 2763	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Id‘𝐶) = (Id‘𝐶)
35	7	adantr 486	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐶 ∈ Cat)
36		simpr 490	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝑥 ∈ (Base‘𝐶))
37	3, 33, 34, 35, 36	catidcl 17885	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((Id‘𝐶)‘𝑥) ∈ (𝑥(Hom ‘𝐶)𝑥))
38	37	ad3antrrr 743	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) ∧ 𝑧 ∈ (Base‘𝐷)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧)) → ((Id‘𝐶)‘𝑥) ∈ (𝑥(Hom ‘𝐶)𝑥))
39		simpr 490	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) ∧ 𝑧 ∈ (Base‘𝐷)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧)) → 𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧))
40	38, 39	opelxpd 5694	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) ∧ 𝑧 ∈ (Base‘𝐷)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧)) → ⟨((Id‘𝐶)‘𝑥), 𝑓⟩ ∈ ((𝑥(Hom ‘𝐶)𝑥) × (𝑦(Hom ‘𝐷)𝑧)))
41		eqid 2763	. . . . . . . . . . . . . . . . . 18 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
42		simpllr 788	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) ∧ 𝑧 ∈ (Base‘𝐷)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧)) → 𝑦 ∈ (Base‘𝐷))
43	2, 3, 4, 33, 41, 27, 42, 27, 28, 6	xpchom2 18389	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) ∧ 𝑧 ∈ (Base‘𝐷)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧)) → (⟨𝑥, 𝑦⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑥, 𝑧⟩) = ((𝑥(Hom ‘𝐶)𝑥) × (𝑦(Hom ‘𝐷)𝑧)))
44	40, 43	eleqtrrd 2867	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) ∧ 𝑧 ∈ (Base‘𝐷)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧)) → ⟨((Id‘𝐶)‘𝑥), 𝑓⟩ ∈ (⟨𝑥, 𝑦⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑥, 𝑧⟩))
45	44	fvresd 6928	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) ∧ 𝑧 ∈ (Base‘𝐷)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧)) → ((2nd ↾ (⟨𝑥, 𝑦⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑥, 𝑧⟩))‘⟨((Id‘𝐶)‘𝑥), 𝑓⟩) = (2nd ‘⟨((Id‘𝐶)‘𝑥), 𝑓⟩))
46		fvex 6921	. . . . . . . . . . . . . . . 16 ⊢ ((Id‘𝐶)‘𝑥) ∈ V
47		vex 3458	. . . . . . . . . . . . . . . 16 ⊢ 𝑓 ∈ V
48	46, 47	op2nd 8034	. . . . . . . . . . . . . . 15 ⊢ (2nd ‘⟨((Id‘𝐶)‘𝑥), 𝑓⟩) = 𝑓
49	45, 48	eqtrdi 2814	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) ∧ 𝑧 ∈ (Base‘𝐷)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧)) → ((2nd ↾ (⟨𝑥, 𝑦⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑥, 𝑧⟩))‘⟨((Id‘𝐶)‘𝑥), 𝑓⟩) = 𝑓)
50	32, 49	eqtrd 2798	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) ∧ 𝑧 ∈ (Base‘𝐷)) ∧ 𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧)) → (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘(𝐶 2ndF 𝐷))⟨𝑥, 𝑧⟩)𝑓) = 𝑓)
51	50	mpteq2dva 5201	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) ∧ 𝑧 ∈ (Base‘𝐷)) → (𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘(𝐶 2ndF 𝐷))⟨𝑥, 𝑧⟩)𝑓)) = (𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ 𝑓))
52		mptresid 6055	. . . . . . . . . . . 12 ⊢ ( I ↾ (𝑦(Hom ‘𝐷)𝑧)) = (𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ 𝑓)
53	51, 52	eqtr4di 2816	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷)) ∧ 𝑧 ∈ (Base‘𝐷)) → (𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘(𝐶 2ndF 𝐷))⟨𝑥, 𝑧⟩)𝑓)) = ( I ↾ (𝑦(Hom ‘𝐷)𝑧)))
54	53	3impa 1127	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) ∧ 𝑦 ∈ (Base‘𝐷) ∧ 𝑧 ∈ (Base‘𝐷)) → (𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘(𝐶 2ndF 𝐷))⟨𝑥, 𝑧⟩)𝑓)) = ( I ↾ (𝑦(Hom ‘𝐷)𝑧)))
55	54	mpoeq3dva 7520	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘(𝐶 2ndF 𝐷))⟨𝑥, 𝑧⟩)𝑓))) = (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ ( I ↾ (𝑦(Hom ‘𝐷)𝑧))))
56		fveq2 6908	. . . . . . . . . . . 12 ⊢ (𝑢 = ⟨𝑦, 𝑧⟩ → ((Hom ‘𝐷)‘𝑢) = ((Hom ‘𝐷)‘⟨𝑦, 𝑧⟩))
57		df-ov 7446	. . . . . . . . . . . 12 ⊢ (𝑦(Hom ‘𝐷)𝑧) = ((Hom ‘𝐷)‘⟨𝑦, 𝑧⟩)
58	56, 57	eqtr4di 2816	. . . . . . . . . . 11 ⊢ (𝑢 = ⟨𝑦, 𝑧⟩ → ((Hom ‘𝐷)‘𝑢) = (𝑦(Hom ‘𝐷)𝑧))
59	58	reseq2d 5981	. . . . . . . . . 10 ⊢ (𝑢 = ⟨𝑦, 𝑧⟩ → ( I ↾ ((Hom ‘𝐷)‘𝑢)) = ( I ↾ (𝑦(Hom ‘𝐷)𝑧)))
60	59	mpompt 7557	. . . . . . . . 9 ⊢ (𝑢 ∈ ((Base‘𝐷) × (Base‘𝐷)) ↦ ( I ↾ ((Hom ‘𝐷)‘𝑢))) = (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ ( I ↾ (𝑦(Hom ‘𝐷)𝑧)))
61	55, 60	eqtr4di 2816	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘(𝐶 2ndF 𝐷))⟨𝑥, 𝑧⟩)𝑓))) = (𝑢 ∈ ((Base‘𝐷) × (Base‘𝐷)) ↦ ( I ↾ ((Hom ‘𝐷)‘𝑢))))
62	22, 61	opeq12d 4851	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st ‘(𝐶 2ndF 𝐷))𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘(𝐶 2ndF 𝐷))⟨𝑥, 𝑧⟩)𝑓)))⟩ = ⟨( I ↾ (Base‘𝐷)), (𝑢 ∈ ((Base‘𝐷) × (Base‘𝐷)) ↦ ( I ↾ ((Hom ‘𝐷)‘𝑢)))⟩)
63		eqid 2763	. . . . . . . 8 ⊢ (⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)) = (⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷))
64	9	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝐷 ∈ Cat)
65	2, 7, 9, 11	2ndfcl 18401	. . . . . . . . 9 ⊢ (𝜑 → (𝐶 2ndF 𝐷) ∈ ((𝐶 ×c 𝐷) Func 𝐷))
66	65	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (𝐶 2ndF 𝐷) ∈ ((𝐶 ×c 𝐷) Func 𝐷))
67		eqid 2763	. . . . . . . 8 ⊢ ((1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))‘𝑥) = ((1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))‘𝑥)
68	63, 3, 35, 64, 66, 4, 36, 67, 41, 34	curf1 18428	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))‘𝑥) = ⟨(𝑦 ∈ (Base‘𝐷) ↦ (𝑥(1st ‘(𝐶 2ndF 𝐷))𝑦)), (𝑦 ∈ (Base‘𝐷), 𝑧 ∈ (Base‘𝐷) ↦ (𝑓 ∈ (𝑦(Hom ‘𝐷)𝑧) ↦ (((Id‘𝐶)‘𝑥)(⟨𝑥, 𝑦⟩(2nd ‘(𝐶 2ndF 𝐷))⟨𝑥, 𝑧⟩)𝑓)))⟩)
69		eqid 2763	. . . . . . . 8 ⊢ (idfunc‘𝐷) = (idfunc‘𝐷)
70	69, 4, 64, 41	idfuval 18080	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (idfunc‘𝐷) = ⟨( I ↾ (Base‘𝐷)), (𝑢 ∈ ((Base‘𝐷) × (Base‘𝐷)) ↦ ( I ↾ ((Hom ‘𝐷)‘𝑢)))⟩)
71	62, 68, 70	3eqtr4d 2808	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))‘𝑥) = (idfunc‘𝐷))
72		eqid 2763	. . . . . . 7 ⊢ (𝑄Δfunc𝐶) = (𝑄Δfunc𝐶)
73		curf2ndf.q	. . . . . . . . 9 ⊢ 𝑄 = (𝐷 FuncCat 𝐷)
74	73, 9, 9	fuccat 18177	. . . . . . . 8 ⊢ (𝜑 → 𝑄 ∈ Cat)
75	74	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → 𝑄 ∈ Cat)
76	73	fucbas 18167	. . . . . . 7 ⊢ (𝐷 Func 𝐷) = (Base‘𝑄)
77	69	idfucl 18085	. . . . . . . . 9 ⊢ (𝐷 ∈ Cat → (idfunc‘𝐷) ∈ (𝐷 Func 𝐷))
78	9, 77	syl 18	. . . . . . . 8 ⊢ (𝜑 → (idfunc‘𝐷) ∈ (𝐷 Func 𝐷))
79	78	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → (idfunc‘𝐷) ∈ (𝐷 Func 𝐷))
80		eqid 2763	. . . . . . 7 ⊢ ((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)) = ((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷))
81	72, 75, 35, 76, 79, 80, 3, 36	diag11 18446	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((1st ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))‘𝑥) = (idfunc‘𝐷))
82	71, 81	eqtr4d 2801	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶)) → ((1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))‘𝑥) = ((1st ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))‘𝑥))
83	82	mpteq2dva 5201	. . . 4 ⊢ (𝜑 → (𝑥 ∈ (Base‘𝐶) ↦ ((1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))‘𝑥)) = (𝑥 ∈ (Base‘𝐶) ↦ ((1st ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))‘𝑥)))
84		relfunc 18066	. . . . . . 7 ⊢ Rel (𝐶 Func 𝑄)
85	63, 73, 7, 9, 65	curfcl 18435	. . . . . . 7 ⊢ (𝜑 → (⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)) ∈ (𝐶 Func 𝑄))
86		1st2ndbr 8077	. . . . . . 7 ⊢ ((Rel (𝐶 Func 𝑄) ∧ (⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)) ∈ (𝐶 Func 𝑄)) → (1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))(𝐶 Func 𝑄)(2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷))))
87	84, 85, 86	sylancr 599	. . . . . 6 ⊢ (𝜑 → (1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))(𝐶 Func 𝑄)(2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷))))
88	3, 76, 87	funcf1 18070	. . . . 5 ⊢ (𝜑 → (1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷))):(Base‘𝐶)⟶(𝐷 Func 𝐷))
89	88	feqmptd 6976	. . . 4 ⊢ (𝜑 → (1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷))) = (𝑥 ∈ (Base‘𝐶) ↦ ((1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))‘𝑥)))
90	72, 74, 7, 76, 78, 80	diag1cl 18445	. . . . . . 7 ⊢ (𝜑 → ((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)) ∈ (𝐶 Func 𝑄))
91		1st2ndbr 8077	. . . . . . 7 ⊢ ((Rel (𝐶 Func 𝑄) ∧ ((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)) ∈ (𝐶 Func 𝑄)) → (1st ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))(𝐶 Func 𝑄)(2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷))))
92	84, 90, 91	sylancr 599	. . . . . 6 ⊢ (𝜑 → (1st ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))(𝐶 Func 𝑄)(2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷))))
93	3, 76, 92	funcf1 18070	. . . . 5 ⊢ (𝜑 → (1st ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷))):(Base‘𝐶)⟶(𝐷 Func 𝐷))
94	93	feqmptd 6976	. . . 4 ⊢ (𝜑 → (1st ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷))) = (𝑥 ∈ (Base‘𝐶) ↦ ((1st ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))‘𝑥)))
95	83, 89, 94	3eqtr4d 2808	. . 3 ⊢ (𝜑 → (1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷))) = (1st ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷))))
96	9	ad2antrr 739	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝐷 ∈ Cat)
97	69, 4, 96	idfu1st 18083	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → (1st ‘(idfunc‘𝐷)) = ( I ↾ (Base‘𝐷)))
98	97	coeq2d 5846	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((Id‘𝐷) ∘ (1st ‘(idfunc‘𝐷))) = ((Id‘𝐷) ∘ ( I ↾ (Base‘𝐷))))
99		eqid 2763	. . . . . . . . . . 11 ⊢ (Id‘𝑄) = (Id‘𝑄)
100		eqid 2763	. . . . . . . . . . 11 ⊢ (Id‘𝐷) = (Id‘𝐷)
101	78	ad2antrr 739	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → (idfunc‘𝐷) ∈ (𝐷 Func 𝐷))
102	73, 99, 100, 101	fucid 18178	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((Id‘𝑄)‘(idfunc‘𝐷)) = ((Id‘𝐷) ∘ (1st ‘(idfunc‘𝐷))))
103	4, 100	cidfn 17882	. . . . . . . . . . . . . 14 ⊢ (𝐷 ∈ Cat → (Id‘𝐷) Fn (Base‘𝐷))
104	96, 103	syl 18	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → (Id‘𝐷) Fn (Base‘𝐷))
105		dffn2 6733	. . . . . . . . . . . . 13 ⊢ ((Id‘𝐷) Fn (Base‘𝐷) ↔ (Id‘𝐷):(Base‘𝐷)⟶V)
106	104, 105	sylib 221	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → (Id‘𝐷):(Base‘𝐷)⟶V)
107	106	feqmptd 6976	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → (Id‘𝐷) = (𝑧 ∈ (Base‘𝐷) ↦ ((Id‘𝐷)‘𝑧)))
108		fcoi1 6778	. . . . . . . . . . . 12 ⊢ ((Id‘𝐷):(Base‘𝐷)⟶V → ((Id‘𝐷) ∘ ( I ↾ (Base‘𝐷))) = (Id‘𝐷))
109	106, 108	syl 18	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((Id‘𝐷) ∘ ( I ↾ (Base‘𝐷))) = (Id‘𝐷))
110	7	ad2antrr 739	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝐶 ∈ Cat)
111	110	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) ∧ 𝑧 ∈ (Base‘𝐷)) → 𝐶 ∈ Cat)
112	96	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) ∧ 𝑧 ∈ (Base‘𝐷)) → 𝐷 ∈ Cat)
113		simplrl 789	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑥 ∈ (Base‘𝐶))
114		opelxpi 5692	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐷)) → ⟨𝑥, 𝑧⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
115	113, 114	sylan 592	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) ∧ 𝑧 ∈ (Base‘𝐷)) → ⟨𝑥, 𝑧⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
116		simplrr 790	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑦 ∈ (Base‘𝐶))
117		opelxpi 5692	. . . . . . . . . . . . . . . 16 ⊢ ((𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐷)) → ⟨𝑦, 𝑧⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
118	116, 117	sylan 592	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) ∧ 𝑧 ∈ (Base‘𝐷)) → ⟨𝑦, 𝑧⟩ ∈ ((Base‘𝐶) × (Base‘𝐷)))
119	2, 5, 6, 111, 112, 11, 115, 118	2ndf2 18399	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) ∧ 𝑧 ∈ (Base‘𝐷)) → (⟨𝑥, 𝑧⟩(2nd ‘(𝐶 2ndF 𝐷))⟨𝑦, 𝑧⟩) = (2nd ↾ (⟨𝑥, 𝑧⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑦, 𝑧⟩)))
120	119	oveqd 7460	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) ∧ 𝑧 ∈ (Base‘𝐷)) → (𝑓(⟨𝑥, 𝑧⟩(2nd ‘(𝐶 2ndF 𝐷))⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)) = (𝑓(2nd ↾ (⟨𝑥, 𝑧⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑦, 𝑧⟩))((Id‘𝐷)‘𝑧)))
121		df-ov 7446	. . . . . . . . . . . . . . 15 ⊢ (𝑓(2nd ↾ (⟨𝑥, 𝑧⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑦, 𝑧⟩))((Id‘𝐷)‘𝑧)) = ((2nd ↾ (⟨𝑥, 𝑧⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑦, 𝑧⟩))‘⟨𝑓, ((Id‘𝐷)‘𝑧)⟩)
122		simplr 781	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) ∧ 𝑧 ∈ (Base‘𝐷)) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
123		simpr 490	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) ∧ 𝑧 ∈ (Base‘𝐷)) → 𝑧 ∈ (Base‘𝐷))
124	4, 41, 100, 112, 123	catidcl 17885	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) ∧ 𝑧 ∈ (Base‘𝐷)) → ((Id‘𝐷)‘𝑧) ∈ (𝑧(Hom ‘𝐷)𝑧))
125	122, 124	opelxpd 5694	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) ∧ 𝑧 ∈ (Base‘𝐷)) → ⟨𝑓, ((Id‘𝐷)‘𝑧)⟩ ∈ ((𝑥(Hom ‘𝐶)𝑦) × (𝑧(Hom ‘𝐷)𝑧)))
126	113	adantr 486	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) ∧ 𝑧 ∈ (Base‘𝐷)) → 𝑥 ∈ (Base‘𝐶))
127	116	adantr 486	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) ∧ 𝑧 ∈ (Base‘𝐷)) → 𝑦 ∈ (Base‘𝐶))
128	2, 3, 4, 33, 41, 126, 123, 127, 123, 6	xpchom2 18389	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) ∧ 𝑧 ∈ (Base‘𝐷)) → (⟨𝑥, 𝑧⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑦, 𝑧⟩) = ((𝑥(Hom ‘𝐶)𝑦) × (𝑧(Hom ‘𝐷)𝑧)))
129	125, 128	eleqtrrd 2867	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) ∧ 𝑧 ∈ (Base‘𝐷)) → ⟨𝑓, ((Id‘𝐷)‘𝑧)⟩ ∈ (⟨𝑥, 𝑧⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑦, 𝑧⟩))
130	129	fvresd 6928	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) ∧ 𝑧 ∈ (Base‘𝐷)) → ((2nd ↾ (⟨𝑥, 𝑧⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑦, 𝑧⟩))‘⟨𝑓, ((Id‘𝐷)‘𝑧)⟩) = (2nd ‘⟨𝑓, ((Id‘𝐷)‘𝑧)⟩))
131	121, 130	eqtrid 2810	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) ∧ 𝑧 ∈ (Base‘𝐷)) → (𝑓(2nd ↾ (⟨𝑥, 𝑧⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑦, 𝑧⟩))((Id‘𝐷)‘𝑧)) = (2nd ‘⟨𝑓, ((Id‘𝐷)‘𝑧)⟩))
132		fvex 6921	. . . . . . . . . . . . . . 15 ⊢ ((Id‘𝐷)‘𝑧) ∈ V
133	47, 132	op2nd 8034	. . . . . . . . . . . . . 14 ⊢ (2nd ‘⟨𝑓, ((Id‘𝐷)‘𝑧)⟩) = ((Id‘𝐷)‘𝑧)
134	131, 133	eqtrdi 2814	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) ∧ 𝑧 ∈ (Base‘𝐷)) → (𝑓(2nd ↾ (⟨𝑥, 𝑧⟩(Hom ‘(𝐶 ×c 𝐷))⟨𝑦, 𝑧⟩))((Id‘𝐷)‘𝑧)) = ((Id‘𝐷)‘𝑧))
135	120, 134	eqtrd 2798	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) ∧ 𝑧 ∈ (Base‘𝐷)) → (𝑓(⟨𝑥, 𝑧⟩(2nd ‘(𝐶 2ndF 𝐷))⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧)) = ((Id‘𝐷)‘𝑧))
136	135	mpteq2dva 5201	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → (𝑧 ∈ (Base‘𝐷) ↦ (𝑓(⟨𝑥, 𝑧⟩(2nd ‘(𝐶 2ndF 𝐷))⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))) = (𝑧 ∈ (Base‘𝐷) ↦ ((Id‘𝐷)‘𝑧)))
137	107, 109, 136	3eqtr4rd 2809	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → (𝑧 ∈ (Base‘𝐷) ↦ (𝑓(⟨𝑥, 𝑧⟩(2nd ‘(𝐶 2ndF 𝐷))⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))) = ((Id‘𝐷) ∘ ( I ↾ (Base‘𝐷))))
138	98, 102, 137	3eqtr4rd 2809	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → (𝑧 ∈ (Base‘𝐷) ↦ (𝑓(⟨𝑥, 𝑧⟩(2nd ‘(𝐶 2ndF 𝐷))⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))) = ((Id‘𝑄)‘(idfunc‘𝐷)))
139	65	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → (𝐶 2ndF 𝐷) ∈ ((𝐶 ×c 𝐷) Func 𝐷))
140		simpr 490	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
141		eqid 2763	. . . . . . . . . 10 ⊢ ((𝑥(2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))𝑦)‘𝑓) = ((𝑥(2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))𝑦)‘𝑓)
142	63, 3, 110, 96, 139, 4, 33, 100, 113, 116, 140, 141	curf2 18432	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((𝑥(2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))𝑦)‘𝑓) = (𝑧 ∈ (Base‘𝐷) ↦ (𝑓(⟨𝑥, 𝑧⟩(2nd ‘(𝐶 2ndF 𝐷))⟨𝑦, 𝑧⟩)((Id‘𝐷)‘𝑧))))
143	74	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑄 ∈ Cat)
144	72, 143, 110, 76, 101, 80, 3, 113, 33, 99, 116, 140	diag12 18447	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((𝑥(2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))𝑦)‘𝑓) = ((Id‘𝑄)‘(idfunc‘𝐷)))
145	138, 142, 144	3eqtr4d 2808	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((𝑥(2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))𝑦)‘𝑓) = ((𝑥(2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))𝑦)‘𝑓))
146	145	mpteq2dva 5201	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ((𝑥(2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))𝑦)‘𝑓)) = (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ((𝑥(2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))𝑦)‘𝑓)))
147		eqid 2763	. . . . . . . . . 10 ⊢ (𝐷 Nat 𝐷) = (𝐷 Nat 𝐷)
148	73, 147	fuchom 18168	. . . . . . . . 9 ⊢ (𝐷 Nat 𝐷) = (Hom ‘𝑄)
149	87	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))(𝐶 Func 𝑄)(2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷))))
150		simprl 783	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → 𝑥 ∈ (Base‘𝐶))
151		simprr 785	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → 𝑦 ∈ (Base‘𝐶))
152	3, 33, 148, 149, 150, 151	funcf2 18072	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))‘𝑥)(𝐷 Nat 𝐷)((1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))‘𝑦)))
153	152	feqmptd 6976	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))𝑦) = (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ((𝑥(2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))𝑦)‘𝑓)))
154	92	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (1st ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))(𝐶 Func 𝑄)(2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷))))
155	3, 33, 148, 154, 150, 151	funcf2 18072	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))‘𝑥)(𝐷 Nat 𝐷)((1st ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))‘𝑦)))
156	155	feqmptd 6976	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))𝑦) = (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ((𝑥(2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))𝑦)‘𝑓)))
157	146, 153, 156	3eqtr4d 2808	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))𝑦) = (𝑥(2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))𝑦))
158	157	3impb 1132	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) → (𝑥(2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))𝑦) = (𝑥(2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))𝑦))
159	158	mpoeq3dva 7520	. . . 4 ⊢ (𝜑 → (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑥(2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))𝑦)) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑥(2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))𝑦)))
160	3, 87	funcfn2 18073	. . . . 5 ⊢ (𝜑 → (2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷))) Fn ((Base‘𝐶) × (Base‘𝐶)))
161		fnov 7574	. . . . 5 ⊢ ((2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷))) Fn ((Base‘𝐶) × (Base‘𝐶)) ↔ (2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷))) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑥(2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))𝑦)))
162	160, 161	sylib 221	. . . 4 ⊢ (𝜑 → (2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷))) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑥(2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))𝑦)))
163	3, 92	funcfn2 18073	. . . . 5 ⊢ (𝜑 → (2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷))) Fn ((Base‘𝐶) × (Base‘𝐶)))
164		fnov 7574	. . . . 5 ⊢ ((2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷))) Fn ((Base‘𝐶) × (Base‘𝐶)) ↔ (2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷))) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑥(2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))𝑦)))
165	163, 164	sylib 221	. . . 4 ⊢ (𝜑 → (2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷))) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑥(2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))𝑦)))
166	159, 162, 165	3eqtr4d 2808	. . 3 ⊢ (𝜑 → (2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷))) = (2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷))))
167	95, 166	opeq12d 4851	. 2 ⊢ (𝜑 → ⟨(1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷))), (2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))⟩ = ⟨(1st ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷))), (2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))⟩)
168		1st2nd 8074	. . 3 ⊢ ((Rel (𝐶 Func 𝑄) ∧ (⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)) ∈ (𝐶 Func 𝑄)) → (⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)) = ⟨(1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷))), (2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))⟩)
169	84, 85, 168	sylancr 599	. 2 ⊢ (𝜑 → (⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)) = ⟨(1st ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷))), (2nd ‘(⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)))⟩)
170		1st2nd 8074	. . 3 ⊢ ((Rel (𝐶 Func 𝑄) ∧ ((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)) ∈ (𝐶 Func 𝑄)) → ((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)) = ⟨(1st ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷))), (2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))⟩)
171	84, 90, 170	sylancr 599	. 2 ⊢ (𝜑 → ((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)) = ⟨(1st ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷))), (2nd ‘((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))⟩)
172	167, 169, 171	3eqtr4d 2808	1 ⊢ (𝜑 → (⟨𝐶, 𝐷⟩ curryF (𝐶 2ndF 𝐷)) = ((1st ‘(𝑄Δfunc𝐶))‘(idfunc‘𝐷)))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2147  Vcvv 3454  ⟨cop 4838   class class class wbr 5106   ↦ cmpt 5189   I cid 5549   × cxp 5653   ↾ cres 5657   ∘ ccom 5659  Rel wrel 5660   Fn wfn 6553  ⟶wf 6554  ‘cfv 6558  (class class class)co 7443   ∈ cmpo 7445  1^st c1st 8023  2^nd c2nd 8024  Basecbs 17416  Hom chom 17468  Catccat 17867  Idccid 17868   Func cfunc 18058  id_funccidfu 18059   Nat cnat 18148   FuncCat cfuc 18149   ×_c cxpc 18371   2^nd_F c2ndf 18373   curry_F ccurf 18413  Δ_funccdiag 18415

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5235  ax-sep 5252  ax-nul 5263  ax-pow 5331  ax-pr 5395  ax-un 7775  ax-cnex 11283  ax-resscn 11284  ax-1cn 11285  ax-icn 11286  ax-addcl 11287  ax-addrcl 11288  ax-mulcl 11289  ax-mulrcl 11290  ax-mulcom 11291  ax-addass 11292  ax-mulass 11293  ax-distr 11294  ax-i2m1 11295  ax-1ne0 11296  ax-1rid 11297  ax-rnegex 11298  ax-rrecex 11299  ax-cnre 11300  ax-pre-lttri 11301  ax-pre-lttrn 11302  ax-pre-ltadd 11303  ax-pre-mulgt0 11304

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-tp 4593  df-op 4839  df-uni 4871  df-iun 4956  df-br 5107  df-opab 5171  df-mpt 5190  df-tr 5216  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6322  df-ord 6383  df-on 6384  df-lim 6385  df-suc 6386  df-iota 6512  df-fun 6560  df-fn 6561  df-f 6562  df-f1 6563  df-fo 6564  df-f1o 6565  df-fv 6566  df-riota 7400  df-ov 7446  df-oprab 7447  df-mpo 7448  df-om 7902  df-1st 8025  df-2nd 8026  df-frecs 8327  df-wrecs 8358  df-recs 8407  df-rdg 8446  df-1o 8504  df-er 8745  df-map 8877  df-ixp 8954  df-en 9002  df-dom 9003  df-sdom 9004  df-fin 9005  df-pnf 11372  df-mnf 11373  df-xr 11374  df-ltxr 11375  df-le 11376  df-sub 11570  df-neg 11571  df-nn 12363  df-2 12432  df-3 12433  df-4 12434  df-5 12435  df-6 12436  df-7 12437  df-8 12438  df-9 12439  df-n0 12634  df-z 12721  df-dec 12842  df-uz 12993  df-fz 13667  df-struct 17354  df-slot 17389  df-ndx 17401  df-base 17417  df-hom 17481  df-cco 17482  df-cat 17871  df-cid 17872  df-func 18062  df-idfu 18063  df-nat 18150  df-fuc 18151  df-xpc 18375  df-1stf 18376  df-2ndf 18377  df-curf 18417  df-diag 18419

This theorem is used by: (None)