Theorem mapsnd 8893

Description: The value of set exponentiation with a singleton exponent. Theorem 98 of [Suppes] p. 89. (Contributed by NM, 10-Dec-2003.) (Revised by Glauco Siliprandi, 24-Dec-2020.)

Hypotheses

Ref	Expression
mapsnd.1	⊢ (𝜑 → 𝐴 ∈ 𝑉)
mapsnd.2	⊢ (𝜑 → 𝐵 ∈ 𝑊)

Assertion

Ref	Expression
mapsnd	⊢ (𝜑 → (𝐴 ↑m {𝐵}) = {𝑓 ∣ ∃𝑦 ∈ 𝐴 𝑓 = {⟨𝐵, 𝑦⟩}})

Distinct variable groups:   𝐴,𝑓,𝑦   𝐵,𝑓,𝑦   𝜑,𝑓,𝑦

Allowed substitution hints:   𝑉(𝑦, 𝑓)   𝑊(𝑦, 𝑓)

Proof of Theorem mapsnd

Step	Hyp	Ref	Expression
1		mapsnd.1	. . . 4 ⊢ (𝜑 → 𝐴 ∈ 𝑉)
2		snex 5404	. . . . 5 ⊢ {𝐵} ∈ V
3	2	a1i 11	. . . 4 ⊢ (𝜑 → {𝐵} ∈ V)
4	1, 3	elmapd 8839	. . 3 ⊢ (𝜑 → (𝑓 ∈ (𝐴 ↑m {𝐵}) ↔ 𝑓:{𝐵}⟶𝐴))
5		ffn 6702	. . . . . . . . 9 ⊢ (𝑓:{𝐵}⟶𝐴 → 𝑓 Fn {𝐵})
6		mapsnd.2	. . . . . . . . . 10 ⊢ (𝜑 → 𝐵 ∈ 𝑊)
7		snidg 4621	. . . . . . . . . 10 ⊢ (𝐵 ∈ 𝑊 → 𝐵 ∈ {𝐵})
8	6, 7	syl 18	. . . . . . . . 9 ⊢ (𝜑 → 𝐵 ∈ {𝐵})
9		fneu 6642	. . . . . . . . 9 ⊢ ((𝑓 Fn {𝐵} ∧ 𝐵 ∈ {𝐵}) → ∃!𝑦 𝐵𝑓𝑦)
10	5, 8, 9	syl2anr 609	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) → ∃!𝑦 𝐵𝑓𝑦)
11		euabsn 4687	. . . . . . . . . 10 ⊢ (∃!𝑦 𝐵𝑓𝑦 ↔ ∃𝑦{𝑦 ∣ 𝐵𝑓𝑦} = {𝑦})
12		frel 6708	. . . . . . . . . . . . . 14 ⊢ (𝑓:{𝐵}⟶𝐴 → Rel 𝑓)
13		relimasn 6081	. . . . . . . . . . . . . 14 ⊢ (Rel 𝑓 → (𝑓 “ {𝐵}) = {𝑦 ∣ 𝐵𝑓𝑦})
14	12, 13	syl 18	. . . . . . . . . . . . 13 ⊢ (𝑓:{𝐵}⟶𝐴 → (𝑓 “ {𝐵}) = {𝑦 ∣ 𝐵𝑓𝑦})
15		fdm 6712	. . . . . . . . . . . . . . 15 ⊢ (𝑓:{𝐵}⟶𝐴 → dom 𝑓 = {𝐵})
16	15	imaeq2d 6056	. . . . . . . . . . . . . 14 ⊢ (𝑓:{𝐵}⟶𝐴 → (𝑓 “ dom 𝑓) = (𝑓 “ {𝐵}))
17		imadmrn 6066	. . . . . . . . . . . . . 14 ⊢ (𝑓 “ dom 𝑓) = ran 𝑓
18	16, 17	eqtr3di 2810	. . . . . . . . . . . . 13 ⊢ (𝑓:{𝐵}⟶𝐴 → (𝑓 “ {𝐵}) = ran 𝑓)
19	14, 18	eqtr3d 2797	. . . . . . . . . . . 12 ⊢ (𝑓:{𝐵}⟶𝐴 → {𝑦 ∣ 𝐵𝑓𝑦} = ran 𝑓)
20	19	eqeq1d 2762	. . . . . . . . . . 11 ⊢ (𝑓:{𝐵}⟶𝐴 → ({𝑦 ∣ 𝐵𝑓𝑦} = {𝑦} ↔ ran 𝑓 = {𝑦}))
21	20	exbidv 1954	. . . . . . . . . 10 ⊢ (𝑓:{𝐵}⟶𝐴 → (∃𝑦{𝑦 ∣ 𝐵𝑓𝑦} = {𝑦} ↔ ∃𝑦ran 𝑓 = {𝑦}))
22	11, 21	bitrid 286	. . . . . . . . 9 ⊢ (𝑓:{𝐵}⟶𝐴 → (∃!𝑦 𝐵𝑓𝑦 ↔ ∃𝑦ran 𝑓 = {𝑦}))
23	22	adantl 487	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) → (∃!𝑦 𝐵𝑓𝑦 ↔ ∃𝑦ran 𝑓 = {𝑦}))
24	10, 23	mpbid 235	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) → ∃𝑦ran 𝑓 = {𝑦})
25		frn 6710	. . . . . . . . . . . . 13 ⊢ (𝑓:{𝐵}⟶𝐴 → ran 𝑓 ⊆ 𝐴)
26	25	sseld 3930	. . . . . . . . . . . 12 ⊢ (𝑓:{𝐵}⟶𝐴 → (𝑦 ∈ ran 𝑓 → 𝑦 ∈ 𝐴))
27		vsnid 4624	. . . . . . . . . . . . 13 ⊢ 𝑦 ∈ {𝑦}
28		eleq2 2849	. . . . . . . . . . . . 13 ⊢ (ran 𝑓 = {𝑦} → (𝑦 ∈ ran 𝑓 ↔ 𝑦 ∈ {𝑦}))
29	27, 28	mpbiri 261	. . . . . . . . . . . 12 ⊢ (ran 𝑓 = {𝑦} → 𝑦 ∈ ran 𝑓)
30	26, 29	impel 515	. . . . . . . . . . 11 ⊢ ((𝑓:{𝐵}⟶𝐴 ∧ ran 𝑓 = {𝑦}) → 𝑦 ∈ 𝐴)
31	30	adantll 727	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) ∧ ran 𝑓 = {𝑦}) → 𝑦 ∈ 𝐴)
32		ffrn 6716	. . . . . . . . . . . . . 14 ⊢ (𝑓:{𝐵}⟶𝐴 → 𝑓:{𝐵}⟶ran 𝑓)
33		feq3 6682	. . . . . . . . . . . . . 14 ⊢ (ran 𝑓 = {𝑦} → (𝑓:{𝐵}⟶ran 𝑓 ↔ 𝑓:{𝐵}⟶{𝑦}))
34	32, 33	syl5ibcom 248	. . . . . . . . . . . . 13 ⊢ (𝑓:{𝐵}⟶𝐴 → (ran 𝑓 = {𝑦} → 𝑓:{𝐵}⟶{𝑦}))
35	34	imp 412	. . . . . . . . . . . 12 ⊢ ((𝑓:{𝐵}⟶𝐴 ∧ ran 𝑓 = {𝑦}) → 𝑓:{𝐵}⟶{𝑦})
36	35	adantll 727	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) ∧ ran 𝑓 = {𝑦}) → 𝑓:{𝐵}⟶{𝑦})
37	6	ad2antrr 739	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) ∧ ran 𝑓 = {𝑦}) → 𝐵 ∈ 𝑊)
38		vex 3454	. . . . . . . . . . . 12 ⊢ 𝑦 ∈ V
39		fsng 7131	. . . . . . . . . . . 12 ⊢ ((𝐵 ∈ 𝑊 ∧ 𝑦 ∈ V) → (𝑓:{𝐵}⟶{𝑦} ↔ 𝑓 = {⟨𝐵, 𝑦⟩}))
40	37, 38, 39	sylancl 598	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) ∧ ran 𝑓 = {𝑦}) → (𝑓:{𝐵}⟶{𝑦} ↔ 𝑓 = {⟨𝐵, 𝑦⟩}))
41	36, 40	mpbid 235	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) ∧ ran 𝑓 = {𝑦}) → 𝑓 = {⟨𝐵, 𝑦⟩})
42	31, 41	jca 521	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) ∧ ran 𝑓 = {𝑦}) → (𝑦 ∈ 𝐴 ∧ 𝑓 = {⟨𝐵, 𝑦⟩}))
43	42	ex 418	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) → (ran 𝑓 = {𝑦} → (𝑦 ∈ 𝐴 ∧ 𝑓 = {⟨𝐵, 𝑦⟩})))
44	43	eximdv 1950	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) → (∃𝑦ran 𝑓 = {𝑦} → ∃𝑦(𝑦 ∈ 𝐴 ∧ 𝑓 = {⟨𝐵, 𝑦⟩})))
45	24, 44	mpd 16	. . . . . 6 ⊢ ((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) → ∃𝑦(𝑦 ∈ 𝐴 ∧ 𝑓 = {⟨𝐵, 𝑦⟩}))
46		df-rex 3087	. . . . . 6 ⊢ (∃𝑦 ∈ 𝐴 𝑓 = {⟨𝐵, 𝑦⟩} ↔ ∃𝑦(𝑦 ∈ 𝐴 ∧ 𝑓 = {⟨𝐵, 𝑦⟩}))
47	45, 46	sylibr 237	. . . . 5 ⊢ ((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) → ∃𝑦 ∈ 𝐴 𝑓 = {⟨𝐵, 𝑦⟩})
48	47	ex 418	. . . 4 ⊢ (𝜑 → (𝑓:{𝐵}⟶𝐴 → ∃𝑦 ∈ 𝐴 𝑓 = {⟨𝐵, 𝑦⟩}))
49		f1osng 6860	. . . . . . . . . . 11 ⊢ ((𝐵 ∈ 𝑊 ∧ 𝑦 ∈ V) → {⟨𝐵, 𝑦⟩}:{𝐵}–1-1-onto→{𝑦})
50	6, 38, 49	sylancl 598	. . . . . . . . . 10 ⊢ (𝜑 → {⟨𝐵, 𝑦⟩}:{𝐵}–1-1-onto→{𝑦})
51	50	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑓 = {⟨𝐵, 𝑦⟩}) → {⟨𝐵, 𝑦⟩}:{𝐵}–1-1-onto→{𝑦})
52		f1oeq1 6805	. . . . . . . . . . 11 ⊢ (𝑓 = {⟨𝐵, 𝑦⟩} → (𝑓:{𝐵}–1-1-onto→{𝑦} ↔ {⟨𝐵, 𝑦⟩}:{𝐵}–1-1-onto→{𝑦}))
53	52	bicomd 226	. . . . . . . . . 10 ⊢ (𝑓 = {⟨𝐵, 𝑦⟩} → ({⟨𝐵, 𝑦⟩}:{𝐵}–1-1-onto→{𝑦} ↔ 𝑓:{𝐵}–1-1-onto→{𝑦}))
54	53	adantl 487	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑓 = {⟨𝐵, 𝑦⟩}) → ({⟨𝐵, 𝑦⟩}:{𝐵}–1-1-onto→{𝑦} ↔ 𝑓:{𝐵}–1-1-onto→{𝑦}))
55	51, 54	mpbid 235	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓 = {⟨𝐵, 𝑦⟩}) → 𝑓:{𝐵}–1-1-onto→{𝑦})
56		f1of 6817	. . . . . . . 8 ⊢ (𝑓:{𝐵}–1-1-onto→{𝑦} → 𝑓:{𝐵}⟶{𝑦})
57	55, 56	syl 18	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓 = {⟨𝐵, 𝑦⟩}) → 𝑓:{𝐵}⟶{𝑦})
58	57	3adant2 1149	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴 ∧ 𝑓 = {⟨𝐵, 𝑦⟩}) → 𝑓:{𝐵}⟶{𝑦})
59		snssi 4746	. . . . . . 7 ⊢ (𝑦 ∈ 𝐴 → {𝑦} ⊆ 𝐴)
60	59	3ad2ant2 1152	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴 ∧ 𝑓 = {⟨𝐵, 𝑦⟩}) → {𝑦} ⊆ 𝐴)
61	58, 60	fssd 6720	. . . . 5 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴 ∧ 𝑓 = {⟨𝐵, 𝑦⟩}) → 𝑓:{𝐵}⟶𝐴)
62	61	rexlimdv3a 3167	. . . 4 ⊢ (𝜑 → (∃𝑦 ∈ 𝐴 𝑓 = {⟨𝐵, 𝑦⟩} → 𝑓:{𝐵}⟶𝐴))
63	48, 62	impbid 215	. . 3 ⊢ (𝜑 → (𝑓:{𝐵}⟶𝐴 ↔ ∃𝑦 ∈ 𝐴 𝑓 = {⟨𝐵, 𝑦⟩}))
64	4, 63	bitrd 282	. 2 ⊢ (𝜑 → (𝑓 ∈ (𝐴 ↑m {𝐵}) ↔ ∃𝑦 ∈ 𝐴 𝑓 = {⟨𝐵, 𝑦⟩}))
65	64	eqabdv 2893	1 ⊢ (𝜑 → (𝐴 ↑m {𝐵}) = {𝑓 ∣ ∃𝑦 ∈ 𝐴 𝑓 = {⟨𝐵, 𝑦⟩}})

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570  ∃wex 1812   ∈ wcel 2145  ∃!weu 2593  {cab 2738  ∃wrex 3086  Vcvv 3450   ⊆ wss 3899  {csn 4584  ⟨cop 4590   class class class wbr 5103  dom cdm 5655  ran crn 5656   “ cima 5658  Rel wrel 5660   Fn wfn 6528  ⟶wf 6529  –1-1-onto→wf1o 6532  (class class class)co 7413   ↑_m cmap 8826

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 2213  ax-ext 2732  ax-sep 5251  ax-pow 5330  ax-pr 5398  ax-un 7736

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 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ral 3077  df-rex 3087  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-br 5104  df-opab 5168  df-id 5550  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-ov 7416  df-oprab 7417  df-mpo 7418  df-map 8828

This theorem is used by:  mapsn  8895  mapsnend  9043  iunmapsn  46047