Theorem curry1 8145

Description: Composition with ^◡(2^nd ↾ ({𝐶} × V)) turns any binary operation 𝐹 with a constant first operand into a function 𝐺 of the second operand only. This transformation is called "currying". (Contributed by NM, 28-Mar-2008.) (Revised by Mario Carneiro, 26-Dec-2014.)

Hypothesis

Ref	Expression
curry1.1	⊢ 𝐺 = (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V)))

Assertion

Ref	Expression
curry1	⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → 𝐺 = (𝑥 ∈ 𝐵 ↦ (𝐶𝐹𝑥)))

Distinct variable groups:   𝑥,𝐴   𝑥,𝐵   𝑥,𝐶   𝑥,𝐹   𝑥,𝐺

Proof of Theorem curry1

Step	Hyp	Ref	Expression
1		fnfun 6679	. . . . 5 ⊢ (𝐹 Fn (𝐴 × 𝐵) → Fun 𝐹)
2		2ndconst 8142	. . . . . 6 ⊢ (𝐶 ∈ 𝐴 → (2nd ↾ ({𝐶} × V)):({𝐶} × V)–1-1-onto→V)
3		dff1o3 6868	. . . . . . 7 ⊢ ((2nd ↾ ({𝐶} × V)):({𝐶} × V)–1-1-onto→V ↔ ((2nd ↾ ({𝐶} × V)):({𝐶} × V)–onto→V ∧ Fun ◡(2nd ↾ ({𝐶} × V))))
4	3	simprbi 496	. . . . . 6 ⊢ ((2nd ↾ ({𝐶} × V)):({𝐶} × V)–1-1-onto→V → Fun ◡(2nd ↾ ({𝐶} × V)))
5	2, 4	syl 17	. . . . 5 ⊢ (𝐶 ∈ 𝐴 → Fun ◡(2nd ↾ ({𝐶} × V)))
6		funco 6618	. . . . 5 ⊢ ((Fun 𝐹 ∧ Fun ◡(2nd ↾ ({𝐶} × V))) → Fun (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V))))
7	1, 5, 6	syl2an 595	. . . 4 ⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → Fun (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V))))
8		dmco 6285	. . . . 5 ⊢ dom (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V))) = (◡◡(2nd ↾ ({𝐶} × V)) “ dom 𝐹)
9		fndm 6682	. . . . . . . 8 ⊢ (𝐹 Fn (𝐴 × 𝐵) → dom 𝐹 = (𝐴 × 𝐵))
10	9	adantr 480	. . . . . . 7 ⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → dom 𝐹 = (𝐴 × 𝐵))
11	10	imaeq2d 6089	. . . . . 6 ⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → (◡◡(2nd ↾ ({𝐶} × V)) “ dom 𝐹) = (◡◡(2nd ↾ ({𝐶} × V)) “ (𝐴 × 𝐵)))
12		imacnvcnv 6237	. . . . . . . . 9 ⊢ (◡◡(2nd ↾ ({𝐶} × V)) “ (𝐴 × 𝐵)) = ((2nd ↾ ({𝐶} × V)) “ (𝐴 × 𝐵))
13		df-ima 5713	. . . . . . . . 9 ⊢ ((2nd ↾ ({𝐶} × V)) “ (𝐴 × 𝐵)) = ran ((2nd ↾ ({𝐶} × V)) ↾ (𝐴 × 𝐵))
14		resres 6022	. . . . . . . . . 10 ⊢ ((2nd ↾ ({𝐶} × V)) ↾ (𝐴 × 𝐵)) = (2nd ↾ (({𝐶} × V) ∩ (𝐴 × 𝐵)))
15	14	rneqi 5962	. . . . . . . . 9 ⊢ ran ((2nd ↾ ({𝐶} × V)) ↾ (𝐴 × 𝐵)) = ran (2nd ↾ (({𝐶} × V) ∩ (𝐴 × 𝐵)))
16	12, 13, 15	3eqtri 2772	. . . . . . . 8 ⊢ (◡◡(2nd ↾ ({𝐶} × V)) “ (𝐴 × 𝐵)) = ran (2nd ↾ (({𝐶} × V) ∩ (𝐴 × 𝐵)))
17		inxp 5856	. . . . . . . . . . . . 13 ⊢ (({𝐶} × V) ∩ (𝐴 × 𝐵)) = (({𝐶} ∩ 𝐴) × (V ∩ 𝐵))
18		incom 4230	. . . . . . . . . . . . . . 15 ⊢ (V ∩ 𝐵) = (𝐵 ∩ V)
19		inv1 4421	. . . . . . . . . . . . . . 15 ⊢ (𝐵 ∩ V) = 𝐵
20	18, 19	eqtri 2768	. . . . . . . . . . . . . 14 ⊢ (V ∩ 𝐵) = 𝐵
21	20	xpeq2i 5727	. . . . . . . . . . . . 13 ⊢ (({𝐶} ∩ 𝐴) × (V ∩ 𝐵)) = (({𝐶} ∩ 𝐴) × 𝐵)
22	17, 21	eqtri 2768	. . . . . . . . . . . 12 ⊢ (({𝐶} × V) ∩ (𝐴 × 𝐵)) = (({𝐶} ∩ 𝐴) × 𝐵)
23		snssi 4833	. . . . . . . . . . . . . 14 ⊢ (𝐶 ∈ 𝐴 → {𝐶} ⊆ 𝐴)
24		dfss2 3994	. . . . . . . . . . . . . 14 ⊢ ({𝐶} ⊆ 𝐴 ↔ ({𝐶} ∩ 𝐴) = {𝐶})
25	23, 24	sylib 218	. . . . . . . . . . . . 13 ⊢ (𝐶 ∈ 𝐴 → ({𝐶} ∩ 𝐴) = {𝐶})
26	25	xpeq1d 5729	. . . . . . . . . . . 12 ⊢ (𝐶 ∈ 𝐴 → (({𝐶} ∩ 𝐴) × 𝐵) = ({𝐶} × 𝐵))
27	22, 26	eqtrid 2792	. . . . . . . . . . 11 ⊢ (𝐶 ∈ 𝐴 → (({𝐶} × V) ∩ (𝐴 × 𝐵)) = ({𝐶} × 𝐵))
28	27	reseq2d 6009	. . . . . . . . . 10 ⊢ (𝐶 ∈ 𝐴 → (2nd ↾ (({𝐶} × V) ∩ (𝐴 × 𝐵))) = (2nd ↾ ({𝐶} × 𝐵)))
29	28	rneqd 5963	. . . . . . . . 9 ⊢ (𝐶 ∈ 𝐴 → ran (2nd ↾ (({𝐶} × V) ∩ (𝐴 × 𝐵))) = ran (2nd ↾ ({𝐶} × 𝐵)))
30		2ndconst 8142	. . . . . . . . . 10 ⊢ (𝐶 ∈ 𝐴 → (2nd ↾ ({𝐶} × 𝐵)):({𝐶} × 𝐵)–1-1-onto→𝐵)
31		f1ofo 6869	. . . . . . . . . 10 ⊢ ((2nd ↾ ({𝐶} × 𝐵)):({𝐶} × 𝐵)–1-1-onto→𝐵 → (2nd ↾ ({𝐶} × 𝐵)):({𝐶} × 𝐵)–onto→𝐵)
32		forn 6837	. . . . . . . . . 10 ⊢ ((2nd ↾ ({𝐶} × 𝐵)):({𝐶} × 𝐵)–onto→𝐵 → ran (2nd ↾ ({𝐶} × 𝐵)) = 𝐵)
33	30, 31, 32	3syl 18	. . . . . . . . 9 ⊢ (𝐶 ∈ 𝐴 → ran (2nd ↾ ({𝐶} × 𝐵)) = 𝐵)
34	29, 33	eqtrd 2780	. . . . . . . 8 ⊢ (𝐶 ∈ 𝐴 → ran (2nd ↾ (({𝐶} × V) ∩ (𝐴 × 𝐵))) = 𝐵)
35	16, 34	eqtrid 2792	. . . . . . 7 ⊢ (𝐶 ∈ 𝐴 → (◡◡(2nd ↾ ({𝐶} × V)) “ (𝐴 × 𝐵)) = 𝐵)
36	35	adantl 481	. . . . . 6 ⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → (◡◡(2nd ↾ ({𝐶} × V)) “ (𝐴 × 𝐵)) = 𝐵)
37	11, 36	eqtrd 2780	. . . . 5 ⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → (◡◡(2nd ↾ ({𝐶} × V)) “ dom 𝐹) = 𝐵)
38	8, 37	eqtrid 2792	. . . 4 ⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → dom (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V))) = 𝐵)
39		curry1.1	. . . . . 6 ⊢ 𝐺 = (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V)))
40	39	fneq1i 6676	. . . . 5 ⊢ (𝐺 Fn 𝐵 ↔ (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V))) Fn 𝐵)
41		df-fn 6576	. . . . 5 ⊢ ((𝐹 ∘ ◡(2nd ↾ ({𝐶} × V))) Fn 𝐵 ↔ (Fun (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V))) ∧ dom (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V))) = 𝐵))
42	40, 41	bitri 275	. . . 4 ⊢ (𝐺 Fn 𝐵 ↔ (Fun (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V))) ∧ dom (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V))) = 𝐵))
43	7, 38, 42	sylanbrc 582	. . 3 ⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → 𝐺 Fn 𝐵)
44		dffn5 6980	. . 3 ⊢ (𝐺 Fn 𝐵 ↔ 𝐺 = (𝑥 ∈ 𝐵 ↦ (𝐺‘𝑥)))
45	43, 44	sylib 218	. 2 ⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → 𝐺 = (𝑥 ∈ 𝐵 ↦ (𝐺‘𝑥)))
46	39	fveq1i 6921	. . . . 5 ⊢ (𝐺‘𝑥) = ((𝐹 ∘ ◡(2nd ↾ ({𝐶} × V)))‘𝑥)
47		dff1o4 6870	. . . . . . . 8 ⊢ ((2nd ↾ ({𝐶} × V)):({𝐶} × V)–1-1-onto→V ↔ ((2nd ↾ ({𝐶} × V)) Fn ({𝐶} × V) ∧ ◡(2nd ↾ ({𝐶} × V)) Fn V))
48	2, 47	sylib 218	. . . . . . 7 ⊢ (𝐶 ∈ 𝐴 → ((2nd ↾ ({𝐶} × V)) Fn ({𝐶} × V) ∧ ◡(2nd ↾ ({𝐶} × V)) Fn V))
49		fvco2 7019	. . . . . . . 8 ⊢ ((◡(2nd ↾ ({𝐶} × V)) Fn V ∧ 𝑥 ∈ V) → ((𝐹 ∘ ◡(2nd ↾ ({𝐶} × V)))‘𝑥) = (𝐹‘(◡(2nd ↾ ({𝐶} × V))‘𝑥)))
50	49	elvd 3494	. . . . . . 7 ⊢ (◡(2nd ↾ ({𝐶} × V)) Fn V → ((𝐹 ∘ ◡(2nd ↾ ({𝐶} × V)))‘𝑥) = (𝐹‘(◡(2nd ↾ ({𝐶} × V))‘𝑥)))
51	48, 50	simpl2im 503	. . . . . 6 ⊢ (𝐶 ∈ 𝐴 → ((𝐹 ∘ ◡(2nd ↾ ({𝐶} × V)))‘𝑥) = (𝐹‘(◡(2nd ↾ ({𝐶} × V))‘𝑥)))
52	51	ad2antlr 726	. . . . 5 ⊢ (((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) ∧ 𝑥 ∈ 𝐵) → ((𝐹 ∘ ◡(2nd ↾ ({𝐶} × V)))‘𝑥) = (𝐹‘(◡(2nd ↾ ({𝐶} × V))‘𝑥)))
53	46, 52	eqtrid 2792	. . . 4 ⊢ (((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) ∧ 𝑥 ∈ 𝐵) → (𝐺‘𝑥) = (𝐹‘(◡(2nd ↾ ({𝐶} × V))‘𝑥)))
54	2	adantr 480	. . . . . . . . 9 ⊢ ((𝐶 ∈ 𝐴 ∧ 𝑥 ∈ 𝐵) → (2nd ↾ ({𝐶} × V)):({𝐶} × V)–1-1-onto→V)
55		snidg 4682	. . . . . . . . . . 11 ⊢ (𝐶 ∈ 𝐴 → 𝐶 ∈ {𝐶})
56		vex 3492	. . . . . . . . . . 11 ⊢ 𝑥 ∈ V
57		opelxp 5736	. . . . . . . . . . 11 ⊢ (⟨𝐶, 𝑥⟩ ∈ ({𝐶} × V) ↔ (𝐶 ∈ {𝐶} ∧ 𝑥 ∈ V))
58	55, 56, 57	sylanblrc 589	. . . . . . . . . 10 ⊢ (𝐶 ∈ 𝐴 → ⟨𝐶, 𝑥⟩ ∈ ({𝐶} × V))
59	58	adantr 480	. . . . . . . . 9 ⊢ ((𝐶 ∈ 𝐴 ∧ 𝑥 ∈ 𝐵) → ⟨𝐶, 𝑥⟩ ∈ ({𝐶} × V))
60	54, 59	jca 511	. . . . . . . 8 ⊢ ((𝐶 ∈ 𝐴 ∧ 𝑥 ∈ 𝐵) → ((2nd ↾ ({𝐶} × V)):({𝐶} × V)–1-1-onto→V ∧ ⟨𝐶, 𝑥⟩ ∈ ({𝐶} × V)))
61	58	fvresd 6940	. . . . . . . . . 10 ⊢ (𝐶 ∈ 𝐴 → ((2nd ↾ ({𝐶} × V))‘⟨𝐶, 𝑥⟩) = (2nd ‘⟨𝐶, 𝑥⟩))
62		op2ndg 8043	. . . . . . . . . . 11 ⊢ ((𝐶 ∈ 𝐴 ∧ 𝑥 ∈ V) → (2nd ‘⟨𝐶, 𝑥⟩) = 𝑥)
63	62	elvd 3494	. . . . . . . . . 10 ⊢ (𝐶 ∈ 𝐴 → (2nd ‘⟨𝐶, 𝑥⟩) = 𝑥)
64	61, 63	eqtrd 2780	. . . . . . . . 9 ⊢ (𝐶 ∈ 𝐴 → ((2nd ↾ ({𝐶} × V))‘⟨𝐶, 𝑥⟩) = 𝑥)
65	64	adantr 480	. . . . . . . 8 ⊢ ((𝐶 ∈ 𝐴 ∧ 𝑥 ∈ 𝐵) → ((2nd ↾ ({𝐶} × V))‘⟨𝐶, 𝑥⟩) = 𝑥)
66		f1ocnvfv 7314	. . . . . . . 8 ⊢ (((2nd ↾ ({𝐶} × V)):({𝐶} × V)–1-1-onto→V ∧ ⟨𝐶, 𝑥⟩ ∈ ({𝐶} × V)) → (((2nd ↾ ({𝐶} × V))‘⟨𝐶, 𝑥⟩) = 𝑥 → (◡(2nd ↾ ({𝐶} × V))‘𝑥) = ⟨𝐶, 𝑥⟩))
67	60, 65, 66	sylc 65	. . . . . . 7 ⊢ ((𝐶 ∈ 𝐴 ∧ 𝑥 ∈ 𝐵) → (◡(2nd ↾ ({𝐶} × V))‘𝑥) = ⟨𝐶, 𝑥⟩)
68	67	fveq2d 6924	. . . . . 6 ⊢ ((𝐶 ∈ 𝐴 ∧ 𝑥 ∈ 𝐵) → (𝐹‘(◡(2nd ↾ ({𝐶} × V))‘𝑥)) = (𝐹‘⟨𝐶, 𝑥⟩))
69	68	adantll 713	. . . . 5 ⊢ (((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) ∧ 𝑥 ∈ 𝐵) → (𝐹‘(◡(2nd ↾ ({𝐶} × V))‘𝑥)) = (𝐹‘⟨𝐶, 𝑥⟩))
70		df-ov 7451	. . . . 5 ⊢ (𝐶𝐹𝑥) = (𝐹‘⟨𝐶, 𝑥⟩)
71	69, 70	eqtr4di 2798	. . . 4 ⊢ (((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) ∧ 𝑥 ∈ 𝐵) → (𝐹‘(◡(2nd ↾ ({𝐶} × V))‘𝑥)) = (𝐶𝐹𝑥))
72	53, 71	eqtrd 2780	. . 3 ⊢ (((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) ∧ 𝑥 ∈ 𝐵) → (𝐺‘𝑥) = (𝐶𝐹𝑥))
73	72	mpteq2dva 5266	. 2 ⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → (𝑥 ∈ 𝐵 ↦ (𝐺‘𝑥)) = (𝑥 ∈ 𝐵 ↦ (𝐶𝐹𝑥)))
74	45, 73	eqtrd 2780	1 ⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → 𝐺 = (𝑥 ∈ 𝐵 ↦ (𝐶𝐹𝑥)))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1537   ∈ wcel 2108  Vcvv 3488   ∩ cin 3975   ⊆ wss 3976  {csn 4648  ⟨cop 4654   ↦ cmpt 5249   × cxp 5698  ^◡ccnv 5699  dom cdm 5700  ran crn 5701   ↾ cres 5702   “ cima 5703   ∘ ccom 5704  Fun wfun 6567   Fn wfn 6568  –onto→wfo 6571  –1-1-onto→wf1o 6572  ‘cfv 6573  (class class class)co 7448  2^nd c2nd 8029

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-sep 5317  ax-nul 5324  ax-pr 5447  ax-un 7770

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-ral 3068  df-rex 3077  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-nul 4353  df-if 4549  df-sn 4649  df-pr 4651  df-op 4655  df-uni 4932  df-iun 5017  df-br 5167  df-opab 5229  df-mpt 5250  df-id 5593  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-ov 7451  df-1st 8030  df-2nd 8031

This theorem is referenced by:  curry1val  8146  curry1f  8147