Theorem fvmpocurryd 8087

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 4351	. . . . 5 ⊢ ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐴 / 𝑎⦌⦋𝐵 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
3		csbcow 3847	. . . . . 6 ⊢ ⦋𝐵 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
4	3	csbeq2i 3840	. . . . 5 ⊢ ⦋𝐴 / 𝑎⦌⦋𝐵 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐴 / 𝑎⦌⦋𝐵 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
5		csbcom 4351	. . . . . 6 ⊢ ⦋𝐴 / 𝑎⦌⦋𝐵 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶
6		csbcow 3847	. . . . . . 7 ⊢ ⦋𝐴 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐴 / 𝑥⦌𝐶
7	6	csbeq2i 3840	. . . . . 6 ⊢ ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶
8	5, 7	eqtri 2766	. . . . 5 ⊢ ⦋𝐴 / 𝑎⦌⦋𝐵 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶
9	2, 4, 8	3eqtri 2770	. . . 4 ⊢ ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶
10		fvmpocurryd.a	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ 𝑋)
11		fvmpocurryd.c	. . . . 5 ⊢ (𝜑 → ∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑌 𝐶 ∈ 𝑉)
12		nfcsb1v 3857	. . . . . . . 8 ⊢ Ⅎ𝑥⦋𝐴 / 𝑥⦌𝐶
13	12	nfel1 2923	. . . . . . 7 ⊢ Ⅎ𝑥⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉
14		nfcsb1v 3857	. . . . . . . 8 ⊢ Ⅎ𝑦⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶
15	14	nfel1 2923	. . . . . . 7 ⊢ Ⅎ𝑦⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉
16		csbeq1a 3846	. . . . . . . 8 ⊢ (𝑥 = 𝐴 → 𝐶 = ⦋𝐴 / 𝑥⦌𝐶)
17	16	eleq1d 2823	. . . . . . 7 ⊢ (𝑥 = 𝐴 → (𝐶 ∈ 𝑉 ↔ ⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉))
18		csbeq1a 3846	. . . . . . . 8 ⊢ (𝑦 = 𝐵 → ⦋𝐴 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶)
19	18	eleq1d 2823	. . . . . . 7 ⊢ (𝑦 = 𝐵 → (⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉 ↔ ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉))
20	13, 15, 17, 19	rspc2 3568	. . . . . 6 ⊢ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑌) → (∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑌 𝐶 ∈ 𝑉 → ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉))
21	20	imp 407	. . . . 5 ⊢ (((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑌) ∧ ∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑌 𝐶 ∈ 𝑉) → ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉)
22	10, 1, 11, 21	syl21anc 835	. . . 4 ⊢ (𝜑 → ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉)
23	9, 22	eqeltrid 2843	. . 3 ⊢ (𝜑 → ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉)
24		eqid 2738	. . . 4 ⊢ (𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶) = (𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
25	24	fvmpts 6878	. . 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 3857	. . . . . . 7 ⊢ Ⅎ𝑥⦋𝑎 / 𝑥⦌𝐶
32	30, 31	nfcsbw 3859	. . . . . 6 ⊢ Ⅎ𝑥⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
33		nfcsb1v 3857	. . . . . 6 ⊢ Ⅎ𝑦⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
34		csbeq1a 3846	. . . . . . 7 ⊢ (𝑥 = 𝑎 → 𝐶 = ⦋𝑎 / 𝑥⦌𝐶)
35		csbeq1a 3846	. . . . . . 7 ⊢ (𝑦 = 𝑏 → ⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
36	34, 35	sylan9eq 2798	. . . . . 6 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → 𝐶 = ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
37	28, 29, 32, 33, 36	cbvmpo 7369	. . . . 5 ⊢ (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ 𝐶) = (𝑎 ∈ 𝑋, 𝑏 ∈ 𝑌 ↦ ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
38	27, 37	eqtri 2766	. . . 4 ⊢ 𝐹 = (𝑎 ∈ 𝑋, 𝑏 ∈ 𝑌 ↦ ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
39	31	nfel1 2923	. . . . . . 7 ⊢ Ⅎ𝑥⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉
40	33	nfel1 2923	. . . . . . 7 ⊢ Ⅎ𝑦⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉
41	34	eleq1d 2823	. . . . . . 7 ⊢ (𝑥 = 𝑎 → (𝐶 ∈ 𝑉 ↔ ⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉))
42	35	eleq1d 2823	. . . . . . 7 ⊢ (𝑦 = 𝑏 → (⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉 ↔ ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉))
43	39, 40, 41, 42	rspc2 3568	. . . . . 6 ⊢ ((𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑌) → (∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑌 𝐶 ∈ 𝑉 → ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉))
44	11, 43	mpan9 507	. . . . 5 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑌)) → ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉)
45	44	ralrimivva 3123	. . . 4 ⊢ (𝜑 → ∀𝑎 ∈ 𝑋 ∀𝑏 ∈ 𝑌 ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉)
46	1	ne0d 4269	. . . 4 ⊢ (𝜑 → 𝑌 ≠ ∅)
47		fvmpocurryd.y	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝑊)
48	38, 45, 46, 47, 10	mpocurryvald 8086	. . 3 ⊢ (𝜑 → (curry 𝐹‘𝐴) = (𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶))
49	48	fveq1d 6776	. 2 ⊢ (𝜑 → ((curry 𝐹‘𝐴)‘𝐵) = ((𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)‘𝐵))
50	27	a1i 11	. . 3 ⊢ (𝜑 → 𝐹 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ 𝐶))
51		csbcow 3847	. . . . . . . 8 ⊢ ⦋𝑦 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑦 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
52		csbid 3845	. . . . . . . 8 ⊢ ⦋𝑦 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑎 / 𝑥⦌𝐶
53	51, 52	eqtr2i 2767	. . . . . . 7 ⊢ ⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑦 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
54	53	a1i 11	. . . . . 6 ⊢ (𝜑 → ⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑦 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
55	54	csbeq2dv 3839	. . . . 5 ⊢ (𝜑 → ⦋𝑥 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑥 / 𝑎⦌⦋𝑦 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
56		csbcow 3847	. . . . . 6 ⊢ ⦋𝑥 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑥 / 𝑥⦌𝐶
57		csbid 3845	. . . . . 6 ⊢ ⦋𝑥 / 𝑥⦌𝐶 = 𝐶
58	56, 57	eqtri 2766	. . . . 5 ⊢ ⦋𝑥 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶 = 𝐶
59		csbcom 4351	. . . . 5 ⊢ ⦋𝑥 / 𝑎⦌⦋𝑦 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑦 / 𝑏⦌⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
60	55, 58, 59	3eqtr3g 2801	. . . 4 ⊢ (𝜑 → 𝐶 = ⦋𝑦 / 𝑏⦌⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
61		csbeq1 3835	. . . . . . 7 ⊢ (𝑥 = 𝐴 → ⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
62	61	adantr 481	. . . . . 6 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
63	62	csbeq2dv 3839	. . . . 5 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ⦋𝑦 / 𝑏⦌⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑦 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
64		csbeq1 3835	. . . . . 6 ⊢ (𝑦 = 𝐵 → ⦋𝑦 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
65	64	adantl 482	. . . . 5 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ⦋𝑦 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
66	63, 65	eqtrd 2778	. . . 4 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ⦋𝑦 / 𝑏⦌⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
67	60, 66	sylan9eq 2798	. . 3 ⊢ ((𝜑 ∧ (𝑥 = 𝐴 ∧ 𝑦 = 𝐵)) → 𝐶 = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
68		eqidd 2739	. . 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 3859	. . . 4 ⊢ Ⅎ𝑥⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
75	72, 74	nfcsbw 3859	. . 3 ⊢ Ⅎ𝑥⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
76	9, 14	nfcxfr 2905	. . 3 ⊢ Ⅎ𝑦⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
77	50, 67, 68, 10, 1, 23, 69, 70, 71, 72, 75, 76	ovmpodxf 7423	. 2 ⊢ (𝜑 → (𝐴𝐹𝐵) = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
78	26, 49, 77	3eqtr4d 2788	1 ⊢ (𝜑 → ((curry 𝐹‘𝐴)‘𝐵) = (𝐴𝐹𝐵))

Syntax hints:   → wi 4   ∧ wa 396   = wceq 1539   ∈ wcel 2106  ∀wral 3064  ⦋csb 3832   ↦ cmpt 5157  ‘cfv 6433  (class class class)co 7275   ∈ cmpo 7277  curry ccur 8081

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  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 2709  ax-rep 5209  ax-sep 5223  ax-nul 5230  ax-pr 5352  ax-un 7588

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ne 2944  df-ral 3069  df-rex 3070  df-reu 3072  df-rab 3073  df-v 3434  df-sbc 3717  df-csb 3833  df-dif 3890  df-un 3892  df-in 3894  df-ss 3904  df-nul 4257  df-if 4460  df-sn 4562  df-pr 4564  df-op 4568  df-uni 4840  df-iun 4926  df-br 5075  df-opab 5137  df-mpt 5158  df-id 5489  df-xp 5595  df-rel 5596  df-cnv 5597  df-co 5598  df-dm 5599  df-rn 5600  df-res 5601  df-ima 5602  df-iota 6391  df-fun 6435  df-fn 6436  df-f 6437  df-f1 6438  df-fo 6439  df-f1o 6440  df-fv 6441  df-ov 7278  df-oprab 7279  df-mpo 7280  df-1st 7831  df-2nd 7832  df-cur 8083

This theorem is referenced by:  pmatcollpw3lem  21932  logbfval  25940