Theorem fvmpocurryd 8202

Description: The value of the value of a curried operation given in maps-to notation is the operation value of the original operation. (Contributed by AV, 27-Oct-2019.)

Hypotheses

Ref	Expression
fvmpocurryd.f	⊢ 𝐹 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ 𝐶)
fvmpocurryd.c	⊢ (𝜑 → ∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑌 𝐶 ∈ 𝑉)
fvmpocurryd.y	⊢ (𝜑 → 𝑌 ∈ 𝑊)
fvmpocurryd.a	⊢ (𝜑 → 𝐴 ∈ 𝑋)
fvmpocurryd.b	⊢ (𝜑 → 𝐵 ∈ 𝑌)

Assertion

Ref	Expression
fvmpocurryd	⊢ (𝜑 → ((curry 𝐹‘𝐴)‘𝐵) = (𝐴𝐹𝐵))

Distinct variable groups:   𝑥,𝐴,𝑦   𝑥,𝐵,𝑦   𝑥,𝑉,𝑦   𝑥,𝑋,𝑦   𝑥,𝑌,𝑦   𝜑,𝑥,𝑦

Allowed substitution hints:   𝐶(𝑥,𝑦)   𝐹(𝑥,𝑦)   𝑊(𝑥,𝑦)

Proof of Theorem fvmpocurryd

Dummy variables 𝑎 𝑏 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fvmpocurryd.b	. . 3 ⊢ (𝜑 → 𝐵 ∈ 𝑌)
2		csbcom 4377	. . . . 5 ⊢ ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐴 / 𝑎⦌⦋𝐵 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
3		csbcow 3870	. . . . . 6 ⊢ ⦋𝐵 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
4	3	csbeq2i 3863	. . . . 5 ⊢ ⦋𝐴 / 𝑎⦌⦋𝐵 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐴 / 𝑎⦌⦋𝐵 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
5		csbcom 4377	. . . . . 6 ⊢ ⦋𝐴 / 𝑎⦌⦋𝐵 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶
6		csbcow 3870	. . . . . . 7 ⊢ ⦋𝐴 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐴 / 𝑥⦌𝐶
7	6	csbeq2i 3863	. . . . . 6 ⊢ ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶
8	5, 7	eqtri 2764	. . . . 5 ⊢ ⦋𝐴 / 𝑎⦌⦋𝐵 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶
9	2, 4, 8	3eqtri 2768	. . . 4 ⊢ ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶
10		fvmpocurryd.a	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ 𝑋)
11		fvmpocurryd.c	. . . . 5 ⊢ (𝜑 → ∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑌 𝐶 ∈ 𝑉)
12		nfcsb1v 3880	. . . . . . . 8 ⊢ Ⅎ𝑥⦋𝐴 / 𝑥⦌𝐶
13	12	nfel1 2923	. . . . . . 7 ⊢ Ⅎ𝑥⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉
14		nfcsb1v 3880	. . . . . . . 8 ⊢ Ⅎ𝑦⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶
15	14	nfel1 2923	. . . . . . 7 ⊢ Ⅎ𝑦⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉
16		csbeq1a 3869	. . . . . . . 8 ⊢ (𝑥 = 𝐴 → 𝐶 = ⦋𝐴 / 𝑥⦌𝐶)
17	16	eleq1d 2822	. . . . . . 7 ⊢ (𝑥 = 𝐴 → (𝐶 ∈ 𝑉 ↔ ⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉))
18		csbeq1a 3869	. . . . . . . 8 ⊢ (𝑦 = 𝐵 → ⦋𝐴 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶)
19	18	eleq1d 2822	. . . . . . 7 ⊢ (𝑦 = 𝐵 → (⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉 ↔ ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉))
20	13, 15, 17, 19	rspc2 3588	. . . . . 6 ⊢ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑌) → (∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑌 𝐶 ∈ 𝑉 → ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉))
21	20	imp 407	. . . . 5 ⊢ (((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑌) ∧ ∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑌 𝐶 ∈ 𝑉) → ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉)
22	10, 1, 11, 21	syl21anc 836	. . . 4 ⊢ (𝜑 → ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉)
23	9, 22	eqeltrid 2842	. . 3 ⊢ (𝜑 → ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉)
24		eqid 2736	. . . 4 ⊢ (𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶) = (𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
25	24	fvmpts 6951	. . 3 ⊢ ((𝐵 ∈ 𝑌 ∧ ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉) → ((𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)‘𝐵) = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
26	1, 23, 25	syl2anc 584	. 2 ⊢ (𝜑 → ((𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)‘𝐵) = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
27		fvmpocurryd.f	. . . . 5 ⊢ 𝐹 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ 𝐶)
28		nfcv 2907	. . . . . 6 ⊢ Ⅎ𝑎𝐶
29		nfcv 2907	. . . . . 6 ⊢ Ⅎ𝑏𝐶
30		nfcv 2907	. . . . . . 7 ⊢ Ⅎ𝑥𝑏
31		nfcsb1v 3880	. . . . . . 7 ⊢ Ⅎ𝑥⦋𝑎 / 𝑥⦌𝐶
32	30, 31	nfcsbw 3882	. . . . . 6 ⊢ Ⅎ𝑥⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
33		nfcsb1v 3880	. . . . . 6 ⊢ Ⅎ𝑦⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
34		csbeq1a 3869	. . . . . . 7 ⊢ (𝑥 = 𝑎 → 𝐶 = ⦋𝑎 / 𝑥⦌𝐶)
35		csbeq1a 3869	. . . . . . 7 ⊢ (𝑦 = 𝑏 → ⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
36	34, 35	sylan9eq 2796	. . . . . 6 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → 𝐶 = ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
37	28, 29, 32, 33, 36	cbvmpo 7451	. . . . 5 ⊢ (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ 𝐶) = (𝑎 ∈ 𝑋, 𝑏 ∈ 𝑌 ↦ ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
38	27, 37	eqtri 2764	. . . 4 ⊢ 𝐹 = (𝑎 ∈ 𝑋, 𝑏 ∈ 𝑌 ↦ ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
39	31	nfel1 2923	. . . . . . 7 ⊢ Ⅎ𝑥⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉
40	33	nfel1 2923	. . . . . . 7 ⊢ Ⅎ𝑦⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉
41	34	eleq1d 2822	. . . . . . 7 ⊢ (𝑥 = 𝑎 → (𝐶 ∈ 𝑉 ↔ ⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉))
42	35	eleq1d 2822	. . . . . . 7 ⊢ (𝑦 = 𝑏 → (⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉 ↔ ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉))
43	39, 40, 41, 42	rspc2 3588	. . . . . 6 ⊢ ((𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑌) → (∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑌 𝐶 ∈ 𝑉 → ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉))
44	11, 43	mpan9 507	. . . . 5 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑌)) → ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉)
45	44	ralrimivva 3197	. . . 4 ⊢ (𝜑 → ∀𝑎 ∈ 𝑋 ∀𝑏 ∈ 𝑌 ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉)
46	1	ne0d 4295	. . . 4 ⊢ (𝜑 → 𝑌 ≠ ∅)
47		fvmpocurryd.y	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝑊)
48	38, 45, 46, 47, 10	mpocurryvald 8201	. . 3 ⊢ (𝜑 → (curry 𝐹‘𝐴) = (𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶))
49	48	fveq1d 6844	. 2 ⊢ (𝜑 → ((curry 𝐹‘𝐴)‘𝐵) = ((𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)‘𝐵))
50	27	a1i 11	. . 3 ⊢ (𝜑 → 𝐹 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ 𝐶))
51		csbcow 3870	. . . . . . . 8 ⊢ ⦋𝑦 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑦 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
52		csbid 3868	. . . . . . . 8 ⊢ ⦋𝑦 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑎 / 𝑥⦌𝐶
53	51, 52	eqtr2i 2765	. . . . . . 7 ⊢ ⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑦 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
54	53	a1i 11	. . . . . 6 ⊢ (𝜑 → ⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑦 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
55	54	csbeq2dv 3862	. . . . 5 ⊢ (𝜑 → ⦋𝑥 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑥 / 𝑎⦌⦋𝑦 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
56		csbcow 3870	. . . . . 6 ⊢ ⦋𝑥 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑥 / 𝑥⦌𝐶
57		csbid 3868	. . . . . 6 ⊢ ⦋𝑥 / 𝑥⦌𝐶 = 𝐶
58	56, 57	eqtri 2764	. . . . 5 ⊢ ⦋𝑥 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶 = 𝐶
59		csbcom 4377	. . . . 5 ⊢ ⦋𝑥 / 𝑎⦌⦋𝑦 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑦 / 𝑏⦌⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
60	55, 58, 59	3eqtr3g 2799	. . . 4 ⊢ (𝜑 → 𝐶 = ⦋𝑦 / 𝑏⦌⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
61		csbeq1 3858	. . . . . . 7 ⊢ (𝑥 = 𝐴 → ⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
62	61	adantr 481	. . . . . 6 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
63	62	csbeq2dv 3862	. . . . 5 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ⦋𝑦 / 𝑏⦌⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑦 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
64		csbeq1 3858	. . . . . 6 ⊢ (𝑦 = 𝐵 → ⦋𝑦 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
65	64	adantl 482	. . . . 5 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ⦋𝑦 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
66	63, 65	eqtrd 2776	. . . 4 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ⦋𝑦 / 𝑏⦌⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
67	60, 66	sylan9eq 2796	. . 3 ⊢ ((𝜑 ∧ (𝑥 = 𝐴 ∧ 𝑦 = 𝐵)) → 𝐶 = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
68		eqidd 2737	. . 3 ⊢ ((𝜑 ∧ 𝑥 = 𝐴) → 𝑌 = 𝑌)
69		nfv 1917	. . 3 ⊢ Ⅎ𝑥𝜑
70		nfv 1917	. . 3 ⊢ Ⅎ𝑦𝜑
71		nfcv 2907	. . 3 ⊢ Ⅎ𝑦𝐴
72		nfcv 2907	. . 3 ⊢ Ⅎ𝑥𝐵
73		nfcv 2907	. . . . 5 ⊢ Ⅎ𝑥𝐴
74	73, 32	nfcsbw 3882	. . . 4 ⊢ Ⅎ𝑥⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
75	72, 74	nfcsbw 3882	. . 3 ⊢ Ⅎ𝑥⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
76	9, 14	nfcxfr 2905	. . 3 ⊢ Ⅎ𝑦⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
77	50, 67, 68, 10, 1, 23, 69, 70, 71, 72, 75, 76	ovmpodxf 7505	. 2 ⊢ (𝜑 → (𝐴𝐹𝐵) = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
78	26, 49, 77	3eqtr4d 2786	1 ⊢ (𝜑 → ((curry 𝐹‘𝐴)‘𝐵) = (𝐴𝐹𝐵))

Syntax hints:   → wi 4   ∧ wa 396   = wceq 1541   ∈ wcel 2106  ∀wral 3064  ⦋csb 3855   ↦ cmpt 5188  ‘cfv 6496  (class class class)co 7357   ∈ cmpo 7359  curry ccur 8196

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 2707  ax-rep 5242  ax-sep 5256  ax-nul 5263  ax-pr 5384  ax-un 7672

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-ral 3065  df-rex 3074  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-nul 4283  df-if 4487  df-sn 4587  df-pr 4589  df-op 4593  df-uni 4866  df-iun 4956  df-br 5106  df-opab 5168  df-mpt 5189  df-id 5531  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-res 5645  df-ima 5646  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-ov 7360  df-oprab 7361  df-mpo 7362  df-1st 7921  df-2nd 7922  df-cur 8198

This theorem is referenced by:  pmatcollpw3lem  22132  logbfval  26140