Theorem fvmpocurryd 8058

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 4348	. . . . 5 ⊢ ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐴 / 𝑎⦌⦋𝐵 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
3		csbcow 3843	. . . . . 6 ⊢ ⦋𝐵 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
4	3	csbeq2i 3836	. . . . 5 ⊢ ⦋𝐴 / 𝑎⦌⦋𝐵 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐴 / 𝑎⦌⦋𝐵 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
5		csbcom 4348	. . . . . 6 ⊢ ⦋𝐴 / 𝑎⦌⦋𝐵 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶
6		csbcow 3843	. . . . . . 7 ⊢ ⦋𝐴 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐴 / 𝑥⦌𝐶
7	6	csbeq2i 3836	. . . . . 6 ⊢ ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶
8	5, 7	eqtri 2766	. . . . 5 ⊢ ⦋𝐴 / 𝑎⦌⦋𝐵 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶
9	2, 4, 8	3eqtri 2770	. . . 4 ⊢ ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶
10		fvmpocurryd.a	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ 𝑋)
11		fvmpocurryd.c	. . . . 5 ⊢ (𝜑 → ∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑌 𝐶 ∈ 𝑉)
12		nfcsb1v 3853	. . . . . . . 8 ⊢ Ⅎ𝑥⦋𝐴 / 𝑥⦌𝐶
13	12	nfel1 2922	. . . . . . 7 ⊢ Ⅎ𝑥⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉
14		nfcsb1v 3853	. . . . . . . 8 ⊢ Ⅎ𝑦⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶
15	14	nfel1 2922	. . . . . . 7 ⊢ Ⅎ𝑦⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉
16		csbeq1a 3842	. . . . . . . 8 ⊢ (𝑥 = 𝐴 → 𝐶 = ⦋𝐴 / 𝑥⦌𝐶)
17	16	eleq1d 2823	. . . . . . 7 ⊢ (𝑥 = 𝐴 → (𝐶 ∈ 𝑉 ↔ ⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉))
18		csbeq1a 3842	. . . . . . . 8 ⊢ (𝑦 = 𝐵 → ⦋𝐴 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶)
19	18	eleq1d 2823	. . . . . . 7 ⊢ (𝑦 = 𝐵 → (⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉 ↔ ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉))
20	13, 15, 17, 19	rspc2 3560	. . . . . 6 ⊢ ((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑌) → (∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑌 𝐶 ∈ 𝑉 → ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉))
21	20	imp 406	. . . . 5 ⊢ (((𝐴 ∈ 𝑋 ∧ 𝐵 ∈ 𝑌) ∧ ∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑌 𝐶 ∈ 𝑉) → ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉)
22	10, 1, 11, 21	syl21anc 834	. . . 4 ⊢ (𝜑 → ⦋𝐵 / 𝑦⦌⦋𝐴 / 𝑥⦌𝐶 ∈ 𝑉)
23	9, 22	eqeltrid 2843	. . 3 ⊢ (𝜑 → ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉)
24		eqid 2738	. . . 4 ⊢ (𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶) = (𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
25	24	fvmpts 6860	. . 3 ⊢ ((𝐵 ∈ 𝑌 ∧ ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉) → ((𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)‘𝐵) = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
26	1, 23, 25	syl2anc 583	. 2 ⊢ (𝜑 → ((𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)‘𝐵) = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
27		fvmpocurryd.f	. . . . 5 ⊢ 𝐹 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ 𝐶)
28		nfcv 2906	. . . . . 6 ⊢ Ⅎ𝑎𝐶
29		nfcv 2906	. . . . . 6 ⊢ Ⅎ𝑏𝐶
30		nfcv 2906	. . . . . . 7 ⊢ Ⅎ𝑥𝑏
31		nfcsb1v 3853	. . . . . . 7 ⊢ Ⅎ𝑥⦋𝑎 / 𝑥⦌𝐶
32	30, 31	nfcsbw 3855	. . . . . 6 ⊢ Ⅎ𝑥⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
33		nfcsb1v 3853	. . . . . 6 ⊢ Ⅎ𝑦⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
34		csbeq1a 3842	. . . . . . 7 ⊢ (𝑥 = 𝑎 → 𝐶 = ⦋𝑎 / 𝑥⦌𝐶)
35		csbeq1a 3842	. . . . . . 7 ⊢ (𝑦 = 𝑏 → ⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
36	34, 35	sylan9eq 2799	. . . . . 6 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → 𝐶 = ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
37	28, 29, 32, 33, 36	cbvmpo 7347	. . . . 5 ⊢ (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ 𝐶) = (𝑎 ∈ 𝑋, 𝑏 ∈ 𝑌 ↦ ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
38	27, 37	eqtri 2766	. . . 4 ⊢ 𝐹 = (𝑎 ∈ 𝑋, 𝑏 ∈ 𝑌 ↦ ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
39	31	nfel1 2922	. . . . . . 7 ⊢ Ⅎ𝑥⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉
40	33	nfel1 2922	. . . . . . 7 ⊢ Ⅎ𝑦⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉
41	34	eleq1d 2823	. . . . . . 7 ⊢ (𝑥 = 𝑎 → (𝐶 ∈ 𝑉 ↔ ⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉))
42	35	eleq1d 2823	. . . . . . 7 ⊢ (𝑦 = 𝑏 → (⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉 ↔ ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉))
43	39, 40, 41, 42	rspc2 3560	. . . . . 6 ⊢ ((𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑌) → (∀𝑥 ∈ 𝑋 ∀𝑦 ∈ 𝑌 𝐶 ∈ 𝑉 → ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉))
44	11, 43	mpan9 506	. . . . 5 ⊢ ((𝜑 ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑌)) → ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉)
45	44	ralrimivva 3114	. . . 4 ⊢ (𝜑 → ∀𝑎 ∈ 𝑋 ∀𝑏 ∈ 𝑌 ⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 ∈ 𝑉)
46	1	ne0d 4266	. . . 4 ⊢ (𝜑 → 𝑌 ≠ ∅)
47		fvmpocurryd.y	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝑊)
48	38, 45, 46, 47, 10	mpocurryvald 8057	. . 3 ⊢ (𝜑 → (curry 𝐹‘𝐴) = (𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶))
49	48	fveq1d 6758	. 2 ⊢ (𝜑 → ((curry 𝐹‘𝐴)‘𝐵) = ((𝑏 ∈ 𝑌 ↦ ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)‘𝐵))
50	27	a1i 11	. . 3 ⊢ (𝜑 → 𝐹 = (𝑥 ∈ 𝑋, 𝑦 ∈ 𝑌 ↦ 𝐶))
51		csbcow 3843	. . . . . . . 8 ⊢ ⦋𝑦 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑦 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
52		csbid 3841	. . . . . . . 8 ⊢ ⦋𝑦 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑎 / 𝑥⦌𝐶
53	51, 52	eqtr2i 2767	. . . . . . 7 ⊢ ⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑦 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
54	53	a1i 11	. . . . . 6 ⊢ (𝜑 → ⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑦 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
55	54	csbeq2dv 3835	. . . . 5 ⊢ (𝜑 → ⦋𝑥 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑥 / 𝑎⦌⦋𝑦 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
56		csbcow 3843	. . . . . 6 ⊢ ⦋𝑥 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑥 / 𝑥⦌𝐶
57		csbid 3841	. . . . . 6 ⊢ ⦋𝑥 / 𝑥⦌𝐶 = 𝐶
58	56, 57	eqtri 2766	. . . . 5 ⊢ ⦋𝑥 / 𝑎⦌⦋𝑎 / 𝑥⦌𝐶 = 𝐶
59		csbcom 4348	. . . . 5 ⊢ ⦋𝑥 / 𝑎⦌⦋𝑦 / 𝑏⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑦 / 𝑏⦌⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
60	55, 58, 59	3eqtr3g 2802	. . . 4 ⊢ (𝜑 → 𝐶 = ⦋𝑦 / 𝑏⦌⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
61		csbeq1 3831	. . . . . . 7 ⊢ (𝑥 = 𝐴 → ⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
62	61	adantr 480	. . . . . 6 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
63	62	csbeq2dv 3835	. . . . 5 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ⦋𝑦 / 𝑏⦌⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝑦 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
64		csbeq1 3831	. . . . . 6 ⊢ (𝑦 = 𝐵 → ⦋𝑦 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
65	64	adantl 481	. . . . 5 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ⦋𝑦 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
66	63, 65	eqtrd 2778	. . . 4 ⊢ ((𝑥 = 𝐴 ∧ 𝑦 = 𝐵) → ⦋𝑦 / 𝑏⦌⦋𝑥 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶 = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
67	60, 66	sylan9eq 2799	. . 3 ⊢ ((𝜑 ∧ (𝑥 = 𝐴 ∧ 𝑦 = 𝐵)) → 𝐶 = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
68		eqidd 2739	. . 3 ⊢ ((𝜑 ∧ 𝑥 = 𝐴) → 𝑌 = 𝑌)
69		nfv 1918	. . 3 ⊢ Ⅎ𝑥𝜑
70		nfv 1918	. . 3 ⊢ Ⅎ𝑦𝜑
71		nfcv 2906	. . 3 ⊢ Ⅎ𝑦𝐴
72		nfcv 2906	. . 3 ⊢ Ⅎ𝑥𝐵
73		nfcv 2906	. . . . 5 ⊢ Ⅎ𝑥𝐴
74	73, 32	nfcsbw 3855	. . . 4 ⊢ Ⅎ𝑥⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
75	72, 74	nfcsbw 3855	. . 3 ⊢ Ⅎ𝑥⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
76	9, 14	nfcxfr 2904	. . 3 ⊢ Ⅎ𝑦⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶
77	50, 67, 68, 10, 1, 23, 69, 70, 71, 72, 75, 76	ovmpodxf 7401	. 2 ⊢ (𝜑 → (𝐴𝐹𝐵) = ⦋𝐵 / 𝑏⦌⦋𝐴 / 𝑎⦌⦋𝑏 / 𝑦⦌⦋𝑎 / 𝑥⦌𝐶)
78	26, 49, 77	3eqtr4d 2788	1 ⊢ (𝜑 → ((curry 𝐹‘𝐴)‘𝐵) = (𝐴𝐹𝐵))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1539   ∈ wcel 2108  ∀wral 3063  ⦋csb 3828   ↦ cmpt 5153  ‘cfv 6418  (class class class)co 7255   ∈ cmpo 7257  curry ccur 8052

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2156  ax-12 2173  ax-ext 2709  ax-rep 5205  ax-sep 5218  ax-nul 5225  ax-pr 5347  ax-un 7566

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1784  df-nf 1788  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2817  df-nfc 2888  df-ne 2943  df-ral 3068  df-rex 3069  df-reu 3070  df-rab 3072  df-v 3424  df-sbc 3712  df-csb 3829  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4254  df-if 4457  df-sn 4559  df-pr 4561  df-op 4565  df-uni 4837  df-iun 4923  df-br 5071  df-opab 5133  df-mpt 5154  df-id 5480  df-xp 5586  df-rel 5587  df-cnv 5588  df-co 5589  df-dm 5590  df-rn 5591  df-res 5592  df-ima 5593  df-iota 6376  df-fun 6420  df-fn 6421  df-f 6422  df-f1 6423  df-fo 6424  df-f1o 6425  df-fv 6426  df-ov 7258  df-oprab 7259  df-mpo 7260  df-1st 7804  df-2nd 7805  df-cur 8054

This theorem is referenced by:  pmatcollpw3lem  21840  logbfval  25845