Theorem fvmpocurryd 7937

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 4369	. . . . 5 ⊢ ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐴 / 𝑎⦌⦋𝐵 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
3		csbcow 3898	. . . . . 6 ⊢ ⦋𝐵 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
4	3	csbeq2i 3891	. . . . 5 ⊢ ⦋𝐴 / 𝑎⦌⦋𝐵 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐴 / 𝑎⦌⦋𝐵 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
5		csbcom 4369	. . . . . 6 ⊢ ⦋𝐴 / 𝑎⦌⦋𝐵 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶
6		csbcow 3898	. . . . . . 7 ⊢ ⦋𝐴 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐴 / 𝑥⦌𝐶
7	6	csbeq2i 3891	. . . . . 6 ⊢ ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶
8	5, 7	eqtri 2844	. . . . 5 ⊢ ⦋𝐴 / 𝑎⦌⦋𝐵 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶
9	2, 4, 8	3eqtri 2848	. . . 4 ⊢ ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶
10		fvmpocurryd.a	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ 𝑋)
11		fvmpocurryd.c	. . . . 5 ⊢ (𝜑 → ∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑌 𝐶 ∈ 𝑉)
12		nfcsb1v 3907	. . . . . . . 8 ⊢ Ⅎ𝑥⦋𝐴 / 𝑥⦌𝐶
13	12	nfel1 2994	. . . . . . 7 ⊢ Ⅎ𝑥⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉
14		nfcsb1v 3907	. . . . . . . 8 ⊢ Ⅎ𝑦⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶
15	14	nfel1 2994	. . . . . . 7 ⊢ Ⅎ𝑦⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉
16		csbeq1a 3897	. . . . . . . 8 ⊢ (𝑥 = 𝐴 → 𝐶 = ⦋𝐴 / 𝑥⦌𝐶)
17	16	eleq1d 2897	. . . . . . 7 ⊢ (𝑥 = 𝐴 → (𝐶 ∈ 𝑉 ↔ ⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉))
18		csbeq1a 3897	. . . . . . . 8 ⊢ (𝑦 = 𝐵 → ⦋𝐴 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶)
19	18	eleq1d 2897	. . . . . . 7 ⊢ (𝑦 = 𝐵 → (⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉 ↔ ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉))
20	13, 15, 17, 19	rspc2 3631	. . . . . 6 ⊢ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑌) → (∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑌 𝐶 ∈ 𝑉 → ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉))
21	20	imp 409	. . . . 5 ⊢ (((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑌) ∧ ∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑌 𝐶 ∈ 𝑉) → ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉)
22	10, 1, 11, 21	syl21anc 835	. . . 4 ⊢ (𝜑 → ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉)
23	9, 22	eqeltrid 2917	. . 3 ⊢ (𝜑 → ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉)
24		eqid 2821	. . . 4 ⊢ (𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶) = (𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
25	24	fvmpts 6771	. . 3 ⊢ ((𝐵 ∈ 𝑌 ∧ ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉) → ((𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)‘𝐵) = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
26	1, 23, 25	syl2anc 586	. 2 ⊢ (𝜑 → ((𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)‘𝐵) = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
27		fvmpocurryd.f	. . . . 5 ⊢ 𝐹 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ 𝐶)
28		nfcv 2977	. . . . . 6 ⊢ Ⅎ𝑎𝐶
29		nfcv 2977	. . . . . 6 ⊢ Ⅎ𝑏𝐶
30		nfcv 2977	. . . . . . 7 ⊢ Ⅎ𝑥𝑏
31		nfcsb1v 3907	. . . . . . 7 ⊢ Ⅎ𝑥⦋𝑎 / 𝑥⦌𝐶
32	30, 31	nfcsbw 3909	. . . . . 6 ⊢ Ⅎ𝑥⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
33		nfcsb1v 3907	. . . . . 6 ⊢ Ⅎ𝑦⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
34		csbeq1a 3897	. . . . . . 7 ⊢ (𝑥 = 𝑎 → 𝐶 = ⦋𝑎 / 𝑥⦌𝐶)
35		csbeq1a 3897	. . . . . . 7 ⊢ (𝑦 = 𝑏 → ⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
36	34, 35	sylan9eq 2876	. . . . . 6 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → 𝐶 = ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
37	28, 29, 32, 33, 36	cbvmpo 7248	. . . . 5 ⊢ (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ 𝐶) = (𝑎 ∈ 𝑋, 𝑏 ∈ 𝑌 ↦ ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
38	27, 37	eqtri 2844	. . . 4 ⊢ 𝐹 = (𝑎 ∈ 𝑋, 𝑏 ∈ 𝑌 ↦ ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
39	31	nfel1 2994	. . . . . . 7 ⊢ Ⅎ𝑥⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉
40	33	nfel1 2994	. . . . . . 7 ⊢ Ⅎ𝑦⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉
41	34	eleq1d 2897	. . . . . . 7 ⊢ (𝑥 = 𝑎 → (𝐶 ∈ 𝑉 ↔ ⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉))
42	35	eleq1d 2897	. . . . . . 7 ⊢ (𝑦 = 𝑏 → (⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉 ↔ ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉))
43	39, 40, 41, 42	rspc2 3631	. . . . . 6 ⊢ ((𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑌) → (∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑌 𝐶 ∈ 𝑉 → ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉))
44	11, 43	mpan9 509	. . . . 5 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑌)) → ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉)
45	44	ralrimivva 3191	. . . 4 ⊢ (𝜑 → ∀𝑎 ∈ 𝑋 ∀𝑏 ∈ 𝑌 ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉)
46	1	ne0d 4301	. . . 4 ⊢ (𝜑 → 𝑌 ≠ ∅)
47		fvmpocurryd.y	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝑊)
48	38, 45, 46, 47, 10	mpocurryvald 7936	. . 3 ⊢ (𝜑 → (curry 𝐹‘𝐴) = (𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶))
49	48	fveq1d 6672	. 2 ⊢ (𝜑 → ((curry 𝐹‘𝐴)‘𝐵) = ((𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)‘𝐵))
50	27	a1i 11	. . 3 ⊢ (𝜑 → 𝐹 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ 𝐶))
51		csbcow 3898	. . . . . . . 8 ⊢ ⦋𝑦 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑦 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
52		csbid 3896	. . . . . . . 8 ⊢ ⦋𝑦 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑎 / 𝑥⦌𝐶
53	51, 52	eqtr2i 2845	. . . . . . 7 ⊢ ⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑦 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
54	53	a1i 11	. . . . . 6 ⊢ (𝜑 → ⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑦 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
55	54	csbeq2dv 3890	. . . . 5 ⊢ (𝜑 → ⦋𝑥 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑥 / 𝑎⦌⦋𝑦 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
56		csbcow 3898	. . . . . 6 ⊢ ⦋𝑥 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑥 / 𝑥⦌𝐶
57		csbid 3896	. . . . . 6 ⊢ ⦋𝑥 / 𝑥⦌𝐶 = 𝐶
58	56, 57	eqtri 2844	. . . . 5 ⊢ ⦋𝑥 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶 = 𝐶
59		csbcom 4369	. . . . 5 ⊢ ⦋𝑥 / 𝑎⦌⦋𝑦 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑦 / 𝑏⦌⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
60	55, 58, 59	3eqtr3g 2879	. . . 4 ⊢ (𝜑 → 𝐶 = ⦋𝑦 / 𝑏⦌⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
61		csbeq1 3886	. . . . . . 7 ⊢ (𝑥 = 𝐴 → ⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
62	61	adantr 483	. . . . . 6 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
63	62	csbeq2dv 3890	. . . . 5 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ⦋𝑦 / 𝑏⦌⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑦 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
64		csbeq1 3886	. . . . . 6 ⊢ (𝑦 = 𝐵 → ⦋𝑦 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
65	64	adantl 484	. . . . 5 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ⦋𝑦 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
66	63, 65	eqtrd 2856	. . . 4 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ⦋𝑦 / 𝑏⦌⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
67	60, 66	sylan9eq 2876	. . 3 ⊢ ((𝜑 ∧ (𝑥 = 𝐴 ∧ 𝑦 = 𝐵)) → 𝐶 = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
68		eqidd 2822	. . 3 ⊢ ((𝜑 ∧ 𝑥 = 𝐴) → 𝑌 = 𝑌)
69		nfv 1915	. . 3 ⊢ Ⅎ𝑥𝜑
70		nfv 1915	. . 3 ⊢ Ⅎ𝑦𝜑
71		nfcv 2977	. . 3 ⊢ Ⅎ𝑦𝐴
72		nfcv 2977	. . 3 ⊢ Ⅎ𝑥𝐵
73		nfcv 2977	. . . . 5 ⊢ Ⅎ𝑥𝐴
74	73, 32	nfcsbw 3909	. . . 4 ⊢ Ⅎ𝑥⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
75	72, 74	nfcsbw 3909	. . 3 ⊢ Ⅎ𝑥⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
76	9, 14	nfcxfr 2975	. . 3 ⊢ Ⅎ𝑦⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
77	50, 67, 68, 10, 1, 23, 69, 70, 71, 72, 75, 76	ovmpodxf 7300	. 2 ⊢ (𝜑 → (𝐴𝐹𝐵) = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
78	26, 49, 77	3eqtr4d 2866	1 ⊢ (𝜑 → ((curry 𝐹‘𝐴)‘𝐵) = (𝐴𝐹𝐵))

Syntax hints:   → wi 4   ∧ wa 398   = wceq 1537   ∈ wcel 2114  ∀wral 3138  ⦋csb 3883   ↦ cmpt 5146  ‘cfv 6355  (class class class)co 7156   ∈ cmpo 7158  curry ccur 7931

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793  ax-rep 5190  ax-sep 5203  ax-nul 5210  ax-pow 5266  ax-pr 5330  ax-un 7461

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-fal 1550  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-ral 3143  df-rex 3144  df-reu 3145  df-rab 3147  df-v 3496  df-sbc 3773  df-csb 3884  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-nul 4292  df-if 4468  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4839  df-iun 4921  df-br 5067  df-opab 5129  df-mpt 5147  df-id 5460  df-xp 5561  df-rel 5562  df-cnv 5563  df-co 5564  df-dm 5565  df-rn 5566  df-res 5567  df-ima 5568  df-iota 6314  df-fun 6357  df-fn 6358  df-f 6359  df-f1 6360  df-fo 6361  df-f1o 6362  df-fv 6363  df-ov 7159  df-oprab 7160  df-mpo 7161  df-1st 7689  df-2nd 7690  df-cur 7933

This theorem is referenced by:  pmatcollpw3lem  21391  logbfval  25368