Theorem curry1 8105

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 6636	. . . . 5 ⊢ (𝐹 Fn (𝐴 × 𝐵) → Fun 𝐹)
2		2ndconst 8102	. . . . . 6 ⊢ (𝐶 ∈ 𝐴 → (2nd ↾ ({𝐶} × V)):({𝐶} × V)–1-1-onto→V)
3		dff1o3 6828	. . . . . . 7 ⊢ ((2nd ↾ ({𝐶} × V)):({𝐶} × V)–1-1-onto→V ↔ ((2nd ↾ ({𝐶} × V)):({𝐶} × V)–onto→V ∧ Fun ◡(2nd ↾ ({𝐶} × V))))
4	3	simprbi 503	. . . . . 6 ⊢ ((2nd ↾ ({𝐶} × V)):({𝐶} × V)–1-1-onto→V → Fun ◡(2nd ↾ ({𝐶} × V)))
5	2, 4	syl 18	. . . . 5 ⊢ (𝐶 ∈ 𝐴 → Fun ◡(2nd ↾ ({𝐶} × V)))
6		funco 6577	. . . . 5 ⊢ ((Fun 𝐹 ∧ Fun ◡(2nd ↾ ({𝐶} × V))) → Fun (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V))))
7	1, 5, 6	syl2an 608	. . . 4 ⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → Fun (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V))))
8		dmco 6255	. . . . 5 ⊢ dom (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V))) = (◡◡(2nd ↾ ({𝐶} × V)) “ dom 𝐹)
9		fndm 6639	. . . . . . . 8 ⊢ (𝐹 Fn (𝐴 × 𝐵) → dom 𝐹 = (𝐴 × 𝐵))
10	9	adantr 486	. . . . . . 7 ⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → dom 𝐹 = (𝐴 × 𝐵))
11	10	imaeq2d 6060	. . . . . 6 ⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → (◡◡(2nd ↾ ({𝐶} × V)) “ dom 𝐹) = (◡◡(2nd ↾ ({𝐶} × V)) “ (𝐴 × 𝐵)))
12		imacnvcnv 6206	. . . . . . . . 9 ⊢ (◡◡(2nd ↾ ({𝐶} × V)) “ (𝐴 × 𝐵)) = ((2nd ↾ ({𝐶} × V)) “ (𝐴 × 𝐵))
13		df-ima 5672	. . . . . . . . 9 ⊢ ((2nd ↾ ({𝐶} × V)) “ (𝐴 × 𝐵)) = ran ((2nd ↾ ({𝐶} × V)) ↾ (𝐴 × 𝐵))
14		resres 5989	. . . . . . . . . 10 ⊢ ((2nd ↾ ({𝐶} × V)) ↾ (𝐴 × 𝐵)) = (2nd ↾ (({𝐶} × V) ∩ (𝐴 × 𝐵)))
15	14	rneqi 5925	. . . . . . . . 9 ⊢ ran ((2nd ↾ ({𝐶} × V)) ↾ (𝐴 × 𝐵)) = ran (2nd ↾ (({𝐶} × V) ∩ (𝐴 × 𝐵)))
16	12, 13, 15	3eqtri 2789	. . . . . . . 8 ⊢ (◡◡(2nd ↾ ({𝐶} × V)) “ (𝐴 × 𝐵)) = ran (2nd ↾ (({𝐶} × V) ∩ (𝐴 × 𝐵)))
17		inxp 5816	. . . . . . . . . . . . 13 ⊢ (({𝐶} × V) ∩ (𝐴 × 𝐵)) = (({𝐶} ∩ 𝐴) × (V ∩ 𝐵))
18		incom 4158	. . . . . . . . . . . . . . 15 ⊢ (V ∩ 𝐵) = (𝐵 ∩ V)
19		inv1 4351	. . . . . . . . . . . . . . 15 ⊢ (𝐵 ∩ V) = 𝐵
20	18, 19	eqtri 2785	. . . . . . . . . . . . . 14 ⊢ (V ∩ 𝐵) = 𝐵
21	20	xpeq2i 5686	. . . . . . . . . . . . 13 ⊢ (({𝐶} ∩ 𝐴) × (V ∩ 𝐵)) = (({𝐶} ∩ 𝐴) × 𝐵)
22	17, 21	eqtri 2785	. . . . . . . . . . . 12 ⊢ (({𝐶} × V) ∩ (𝐴 × 𝐵)) = (({𝐶} ∩ 𝐴) × 𝐵)
23		snssi 4749	. . . . . . . . . . . . . 14 ⊢ (𝐶 ∈ 𝐴 → {𝐶} ⊆ 𝐴)
24		dfss2 3920	. . . . . . . . . . . . . 14 ⊢ ({𝐶} ⊆ 𝐴 ↔ ({𝐶} ∩ 𝐴) = {𝐶})
25	23, 24	sylib 221	. . . . . . . . . . . . 13 ⊢ (𝐶 ∈ 𝐴 → ({𝐶} ∩ 𝐴) = {𝐶})
26	25	xpeq1d 5688	. . . . . . . . . . . 12 ⊢ (𝐶 ∈ 𝐴 → (({𝐶} ∩ 𝐴) × 𝐵) = ({𝐶} × 𝐵))
27	22, 26	eqtrid 2809	. . . . . . . . . . 11 ⊢ (𝐶 ∈ 𝐴 → (({𝐶} × V) ∩ (𝐴 × 𝐵)) = ({𝐶} × 𝐵))
28	27	reseq2d 5976	. . . . . . . . . 10 ⊢ (𝐶 ∈ 𝐴 → (2nd ↾ (({𝐶} × V) ∩ (𝐴 × 𝐵))) = (2nd ↾ ({𝐶} × 𝐵)))
29	28	rneqd 5926	. . . . . . . . 9 ⊢ (𝐶 ∈ 𝐴 → ran (2nd ↾ (({𝐶} × V) ∩ (𝐴 × 𝐵))) = ran (2nd ↾ ({𝐶} × 𝐵)))
30		2ndconst 8102	. . . . . . . . . 10 ⊢ (𝐶 ∈ 𝐴 → (2nd ↾ ({𝐶} × 𝐵)):({𝐶} × 𝐵)–1-1-onto→𝐵)
31		f1ofo 6829	. . . . . . . . . 10 ⊢ ((2nd ↾ ({𝐶} × 𝐵)):({𝐶} × 𝐵)–1-1-onto→𝐵 → (2nd ↾ ({𝐶} × 𝐵)):({𝐶} × 𝐵)–onto→𝐵)
32		forn 6796	. . . . . . . . . 10 ⊢ ((2nd ↾ ({𝐶} × 𝐵)):({𝐶} × 𝐵)–onto→𝐵 → ran (2nd ↾ ({𝐶} × 𝐵)) = 𝐵)
33	30, 31, 32	3syl 19	. . . . . . . . 9 ⊢ (𝐶 ∈ 𝐴 → ran (2nd ↾ ({𝐶} × 𝐵)) = 𝐵)
34	29, 33	eqtrd 2797	. . . . . . . 8 ⊢ (𝐶 ∈ 𝐴 → ran (2nd ↾ (({𝐶} × V) ∩ (𝐴 × 𝐵))) = 𝐵)
35	16, 34	eqtrid 2809	. . . . . . 7 ⊢ (𝐶 ∈ 𝐴 → (◡◡(2nd ↾ ({𝐶} × V)) “ (𝐴 × 𝐵)) = 𝐵)
36	35	adantl 487	. . . . . 6 ⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → (◡◡(2nd ↾ ({𝐶} × V)) “ (𝐴 × 𝐵)) = 𝐵)
37	11, 36	eqtrd 2797	. . . . 5 ⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → (◡◡(2nd ↾ ({𝐶} × V)) “ dom 𝐹) = 𝐵)
38	8, 37	eqtrid 2809	. . . 4 ⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → dom (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V))) = 𝐵)
39		curry1.1	. . . . . 6 ⊢ 𝐺 = (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V)))
40	39	fneq1i 6633	. . . . 5 ⊢ (𝐺 Fn 𝐵 ↔ (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V))) Fn 𝐵)
41		df-fn 6540	. . . . 5 ⊢ ((𝐹 ∘ ◡(2nd ↾ ({𝐶} × V))) Fn 𝐵 ↔ (Fun (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V))) ∧ dom (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V))) = 𝐵))
42	40, 41	bitri 278	. . . 4 ⊢ (𝐺 Fn 𝐵 ↔ (Fun (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V))) ∧ dom (𝐹 ∘ ◡(2nd ↾ ({𝐶} × V))) = 𝐵))
43	7, 38, 42	sylanbrc 595	. . 3 ⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → 𝐺 Fn 𝐵)
44		dffn5 6940	. . 3 ⊢ (𝐺 Fn 𝐵 ↔ 𝐺 = (𝑥 ∈ 𝐵 ↦ (𝐺‘𝑥)))
45	43, 44	sylib 221	. 2 ⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → 𝐺 = (𝑥 ∈ 𝐵 ↦ (𝐺‘𝑥)))
46	39	fveq1i 6883	. . . . 5 ⊢ (𝐺‘𝑥) = ((𝐹 ∘ ◡(2nd ↾ ({𝐶} × V)))‘𝑥)
47		dff1o4 6830	. . . . . . . 8 ⊢ ((2nd ↾ ({𝐶} × V)):({𝐶} × V)–1-1-onto→V ↔ ((2nd ↾ ({𝐶} × V)) Fn ({𝐶} × V) ∧ ◡(2nd ↾ ({𝐶} × V)) Fn V))
48	2, 47	sylib 221	. . . . . . 7 ⊢ (𝐶 ∈ 𝐴 → ((2nd ↾ ({𝐶} × V)) Fn ({𝐶} × V) ∧ ◡(2nd ↾ ({𝐶} × V)) Fn V))
49		fvco2 6979	. . . . . . . 8 ⊢ ((◡(2nd ↾ ({𝐶} × V)) Fn V ∧ 𝑥 ∈ V) → ((𝐹 ∘ ◡(2nd ↾ ({𝐶} × V)))‘𝑥) = (𝐹‘(◡(2nd ↾ ({𝐶} × V))‘𝑥)))
50	49	elvd 3459	. . . . . . 7 ⊢ (◡(2nd ↾ ({𝐶} × V)) Fn V → ((𝐹 ∘ ◡(2nd ↾ ({𝐶} × V)))‘𝑥) = (𝐹‘(◡(2nd ↾ ({𝐶} × V))‘𝑥)))
51	48, 50	simpl2im 513	. . . . . 6 ⊢ (𝐶 ∈ 𝐴 → ((𝐹 ∘ ◡(2nd ↾ ({𝐶} × V)))‘𝑥) = (𝐹‘(◡(2nd ↾ ({𝐶} × V))‘𝑥)))
52	51	ad2antlr 740	. . . . 5 ⊢ (((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) ∧ 𝑥 ∈ 𝐵) → ((𝐹 ∘ ◡(2nd ↾ ({𝐶} × V)))‘𝑥) = (𝐹‘(◡(2nd ↾ ({𝐶} × V))‘𝑥)))
53	46, 52	eqtrid 2809	. . . 4 ⊢ (((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) ∧ 𝑥 ∈ 𝐵) → (𝐺‘𝑥) = (𝐹‘(◡(2nd ↾ ({𝐶} × V))‘𝑥)))
54	2	adantr 486	. . . . . . . . 9 ⊢ ((𝐶 ∈ 𝐴 ∧ 𝑥 ∈ 𝐵) → (2nd ↾ ({𝐶} × V)):({𝐶} × V)–1-1-onto→V)
55		snidg 4624	. . . . . . . . . . 11 ⊢ (𝐶 ∈ 𝐴 → 𝐶 ∈ {𝐶})
56		vex 3457	. . . . . . . . . . 11 ⊢ 𝑥 ∈ V
57		opelxp 5695	. . . . . . . . . . 11 ⊢ (⟨𝐶, 𝑥⟩ ∈ ({𝐶} × V) ↔ (𝐶 ∈ {𝐶} ∧ 𝑥 ∈ V))
58	55, 56, 57	sylanblrc 602	. . . . . . . . . 10 ⊢ (𝐶 ∈ 𝐴 → ⟨𝐶, 𝑥⟩ ∈ ({𝐶} × V))
59	58	adantr 486	. . . . . . . . 9 ⊢ ((𝐶 ∈ 𝐴 ∧ 𝑥 ∈ 𝐵) → ⟨𝐶, 𝑥⟩ ∈ ({𝐶} × V))
60	54, 59	jca 521	. . . . . . . 8 ⊢ ((𝐶 ∈ 𝐴 ∧ 𝑥 ∈ 𝐵) → ((2nd ↾ ({𝐶} × V)):({𝐶} × V)–1-1-onto→V ∧ ⟨𝐶, 𝑥⟩ ∈ ({𝐶} × V)))
61	58	fvresd 6902	. . . . . . . . . 10 ⊢ (𝐶 ∈ 𝐴 → ((2nd ↾ ({𝐶} × V))‘⟨𝐶, 𝑥⟩) = (2nd ‘⟨𝐶, 𝑥⟩))
62		op2ndg 8003	. . . . . . . . . . 11 ⊢ ((𝐶 ∈ 𝐴 ∧ 𝑥 ∈ V) → (2nd ‘⟨𝐶, 𝑥⟩) = 𝑥)
63	62	elvd 3459	. . . . . . . . . 10 ⊢ (𝐶 ∈ 𝐴 → (2nd ‘⟨𝐶, 𝑥⟩) = 𝑥)
64	61, 63	eqtrd 2797	. . . . . . . . 9 ⊢ (𝐶 ∈ 𝐴 → ((2nd ↾ ({𝐶} × V))‘⟨𝐶, 𝑥⟩) = 𝑥)
65	64	adantr 486	. . . . . . . 8 ⊢ ((𝐶 ∈ 𝐴 ∧ 𝑥 ∈ 𝐵) → ((2nd ↾ ({𝐶} × V))‘⟨𝐶, 𝑥⟩) = 𝑥)
66		f1ocnvfv 7283	. . . . . . . 8 ⊢ (((2nd ↾ ({𝐶} × V)):({𝐶} × V)–1-1-onto→V ∧ ⟨𝐶, 𝑥⟩ ∈ ({𝐶} × V)) → (((2nd ↾ ({𝐶} × V))‘⟨𝐶, 𝑥⟩) = 𝑥 → (◡(2nd ↾ ({𝐶} × V))‘𝑥) = ⟨𝐶, 𝑥⟩))
67	60, 65, 66	sylc 66	. . . . . . 7 ⊢ ((𝐶 ∈ 𝐴 ∧ 𝑥 ∈ 𝐵) → (◡(2nd ↾ ({𝐶} × V))‘𝑥) = ⟨𝐶, 𝑥⟩)
68	67	fveq2d 6886	. . . . . 6 ⊢ ((𝐶 ∈ 𝐴 ∧ 𝑥 ∈ 𝐵) → (𝐹‘(◡(2nd ↾ ({𝐶} × V))‘𝑥)) = (𝐹‘⟨𝐶, 𝑥⟩))
69	68	adantll 727	. . . . 5 ⊢ (((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) ∧ 𝑥 ∈ 𝐵) → (𝐹‘(◡(2nd ↾ ({𝐶} × V))‘𝑥)) = (𝐹‘⟨𝐶, 𝑥⟩))
70		df-ov 7420	. . . . 5 ⊢ (𝐶𝐹𝑥) = (𝐹‘⟨𝐶, 𝑥⟩)
71	69, 70	eqtr4di 2815	. . . 4 ⊢ (((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) ∧ 𝑥 ∈ 𝐵) → (𝐹‘(◡(2nd ↾ ({𝐶} × V))‘𝑥)) = (𝐶𝐹𝑥))
72	53, 71	eqtrd 2797	. . 3 ⊢ (((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) ∧ 𝑥 ∈ 𝐵) → (𝐺‘𝑥) = (𝐶𝐹𝑥))
73	72	mpteq2dva 5202	. 2 ⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → (𝑥 ∈ 𝐵 ↦ (𝐺‘𝑥)) = (𝑥 ∈ 𝐵 ↦ (𝐶𝐹𝑥)))
74	45, 73	eqtrd 2797	1 ⊢ ((𝐹 Fn (𝐴 × 𝐵) ∧ 𝐶 ∈ 𝐴) → 𝐺 = (𝑥 ∈ 𝐵 ↦ (𝐶𝐹𝑥)))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2145  Vcvv 3453   ∩ cin 3901   ⊆ wss 3902  {csn 4587  ⟨cop 4593   ↦ cmpt 5190   × cxp 5657  ^◡ccnv 5658  dom cdm 5659  ran crn 5660   ↾ cres 5661   “ cima 5662   ∘ ccom 5663  Fun wfun 6531   Fn wfn 6532  –onto→wfo 6535  –1-1-onto→wf1o 6536  ‘cfv 6537  (class class class)co 7417  2^nd c2nd 7989

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2215  ax-ext 2734  ax-sep 5255  ax-nul 5267  ax-pr 5402  ax-un 7740

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-ral 3079  df-rex 3089  df-rab 3415  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-nul 4283  df-if 4486  df-sn 4588  df-pr 4590  df-op 4594  df-uni 4871  df-iun 4956  df-br 5108  df-opab 5172  df-mpt 5191  df-id 5554  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-ov 7420  df-1st 7990  df-2nd 7991

This theorem is used by:  curry1val  8106  curry1f  8107