Theorem mapsnd 8862

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 5393	. . . . 5 ⊢ {𝐵} ∈ V
3	2	a1i 11	. . . 4 ⊢ (𝜑 → {𝐵} ∈ V)
4	1, 3	elmapd 8815	. . 3 ⊢ (𝜑 → (𝑓 ∈ (𝐴 ↑m {𝐵}) ↔ 𝑓:{𝐵}⟶𝐴))
5		ffn 6686	. . . . . . . . 9 ⊢ (𝑓:{𝐵}⟶𝐴 → 𝑓 Fn {𝐵})
6		mapsnd.2	. . . . . . . . . 10 ⊢ (𝜑 → 𝐵 ∈ 𝑊)
7		snidg 4616	. . . . . . . . . 10 ⊢ (𝐵 ∈ 𝑊 → 𝐵 ∈ {𝐵})
8	6, 7	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝐵 ∈ {𝐵})
9		fneu 6626	. . . . . . . . 9 ⊢ ((𝑓 Fn {𝐵} ∧ 𝐵 ∈ {𝐵}) → ∃!𝑦 𝐵𝑓𝑦)
10	5, 8, 9	syl2anr 606	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) → ∃!𝑦 𝐵𝑓𝑦)
11		euabsn 4682	. . . . . . . . . 10 ⊢ (∃!𝑦 𝐵𝑓𝑦 ↔ ∃𝑦{𝑦 ∣ 𝐵𝑓𝑦} = {𝑦})
12		frel 6692	. . . . . . . . . . . . . 14 ⊢ (𝑓:{𝐵}⟶𝐴 → Rel 𝑓)
13		relimasn 6070	. . . . . . . . . . . . . 14 ⊢ (Rel 𝑓 → (𝑓 “ {𝐵}) = {𝑦 ∣ 𝐵𝑓𝑦})
14	12, 13	syl 17	. . . . . . . . . . . . 13 ⊢ (𝑓:{𝐵}⟶𝐴 → (𝑓 “ {𝐵}) = {𝑦 ∣ 𝐵𝑓𝑦})
15		fdm 6696	. . . . . . . . . . . . . . 15 ⊢ (𝑓:{𝐵}⟶𝐴 → dom 𝑓 = {𝐵})
16	15	imaeq2d 6045	. . . . . . . . . . . . . 14 ⊢ (𝑓:{𝐵}⟶𝐴 → (𝑓 “ dom 𝑓) = (𝑓 “ {𝐵}))
17		imadmrn 6055	. . . . . . . . . . . . . 14 ⊢ (𝑓 “ dom 𝑓) = ran 𝑓
18	16, 17	eqtr3di 2811	. . . . . . . . . . . . 13 ⊢ (𝑓:{𝐵}⟶𝐴 → (𝑓 “ {𝐵}) = ran 𝑓)
19	14, 18	eqtr3d 2798	. . . . . . . . . . . 12 ⊢ (𝑓:{𝐵}⟶𝐴 → {𝑦 ∣ 𝐵𝑓𝑦} = ran 𝑓)
20	19	eqeq1d 2763	. . . . . . . . . . 11 ⊢ (𝑓:{𝐵}⟶𝐴 → ({𝑦 ∣ 𝐵𝑓𝑦} = {𝑦} ↔ ran 𝑓 = {𝑦}))
21	20	exbidv 1940	. . . . . . . . . 10 ⊢ (𝑓:{𝐵}⟶𝐴 → (∃𝑦{𝑦 ∣ 𝐵𝑓𝑦} = {𝑦} ↔ ∃𝑦ran 𝑓 = {𝑦}))
22	11, 21	bitrid 285	. . . . . . . . 9 ⊢ (𝑓:{𝐵}⟶𝐴 → (∃!𝑦 𝐵𝑓𝑦 ↔ ∃𝑦ran 𝑓 = {𝑦}))
23	22	adantl 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) → (∃!𝑦 𝐵𝑓𝑦 ↔ ∃𝑦ran 𝑓 = {𝑦}))
24	10, 23	mpbid 234	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) → ∃𝑦ran 𝑓 = {𝑦})
25		frn 6694	. . . . . . . . . . . . 13 ⊢ (𝑓:{𝐵}⟶𝐴 → ran 𝑓 ⊆ 𝐴)
26	25	sseld 3933	. . . . . . . . . . . 12 ⊢ (𝑓:{𝐵}⟶𝐴 → (𝑦 ∈ ran 𝑓 → 𝑦 ∈ 𝐴))
27		vsnid 4619	. . . . . . . . . . . . 13 ⊢ 𝑦 ∈ {𝑦}
28		eleq2 2850	. . . . . . . . . . . . 13 ⊢ (ran 𝑓 = {𝑦} → (𝑦 ∈ ran 𝑓 ↔ 𝑦 ∈ {𝑦}))
29	27, 28	mpbiri 260	. . . . . . . . . . . 12 ⊢ (ran 𝑓 = {𝑦} → 𝑦 ∈ ran 𝑓)
30	26, 29	impel 513	. . . . . . . . . . 11 ⊢ ((𝑓:{𝐵}⟶𝐴 ∧ ran 𝑓 = {𝑦}) → 𝑦 ∈ 𝐴)
31	30	adantll 724	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) ∧ ran 𝑓 = {𝑦}) → 𝑦 ∈ 𝐴)
32		ffrn 6700	. . . . . . . . . . . . . 14 ⊢ (𝑓:{𝐵}⟶𝐴 → 𝑓:{𝐵}⟶ran 𝑓)
33		feq3 6666	. . . . . . . . . . . . . 14 ⊢ (ran 𝑓 = {𝑦} → (𝑓:{𝐵}⟶ran 𝑓 ↔ 𝑓:{𝐵}⟶{𝑦}))
34	32, 33	syl5ibcom 247	. . . . . . . . . . . . 13 ⊢ (𝑓:{𝐵}⟶𝐴 → (ran 𝑓 = {𝑦} → 𝑓:{𝐵}⟶{𝑦}))
35	34	imp 410	. . . . . . . . . . . 12 ⊢ ((𝑓:{𝐵}⟶𝐴 ∧ ran 𝑓 = {𝑦}) → 𝑓:{𝐵}⟶{𝑦})
36	35	adantll 724	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) ∧ ran 𝑓 = {𝑦}) → 𝑓:{𝐵}⟶{𝑦})
37	6	ad2antrr 736	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) ∧ ran 𝑓 = {𝑦}) → 𝐵 ∈ 𝑊)
38		vex 3457	. . . . . . . . . . . 12 ⊢ 𝑦 ∈ V
39		fsng 7114	. . . . . . . . . . . 12 ⊢ ((𝐵 ∈ 𝑊 ∧ 𝑦 ∈ V) → (𝑓:{𝐵}⟶{𝑦} ↔ 𝑓 = {⟨𝐵, 𝑦⟩}))
40	37, 38, 39	sylancl 595	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) ∧ ran 𝑓 = {𝑦}) → (𝑓:{𝐵}⟶{𝑦} ↔ 𝑓 = {⟨𝐵, 𝑦⟩}))
41	36, 40	mpbid 234	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) ∧ ran 𝑓 = {𝑦}) → 𝑓 = {⟨𝐵, 𝑦⟩})
42	31, 41	jca 519	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) ∧ ran 𝑓 = {𝑦}) → (𝑦 ∈ 𝐴 ∧ 𝑓 = {⟨𝐵, 𝑦⟩}))
43	42	ex 416	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) → (ran 𝑓 = {𝑦} → (𝑦 ∈ 𝐴 ∧ 𝑓 = {⟨𝐵, 𝑦⟩})))
44	43	eximdv 1936	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) → (∃𝑦ran 𝑓 = {𝑦} → ∃𝑦(𝑦 ∈ 𝐴 ∧ 𝑓 = {⟨𝐵, 𝑦⟩})))
45	24, 44	mpd 15	. . . . . 6 ⊢ ((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) → ∃𝑦(𝑦 ∈ 𝐴 ∧ 𝑓 = {⟨𝐵, 𝑦⟩}))
46		df-rex 3086	. . . . . 6 ⊢ (∃𝑦 ∈ 𝐴 𝑓 = {⟨𝐵, 𝑦⟩} ↔ ∃𝑦(𝑦 ∈ 𝐴 ∧ 𝑓 = {⟨𝐵, 𝑦⟩}))
47	45, 46	sylibr 236	. . . . 5 ⊢ ((𝜑 ∧ 𝑓:{𝐵}⟶𝐴) → ∃𝑦 ∈ 𝐴 𝑓 = {⟨𝐵, 𝑦⟩})
48	47	ex 416	. . . 4 ⊢ (𝜑 → (𝑓:{𝐵}⟶𝐴 → ∃𝑦 ∈ 𝐴 𝑓 = {⟨𝐵, 𝑦⟩}))
49		f1osng 6844	. . . . . . . . . . 11 ⊢ ((𝐵 ∈ 𝑊 ∧ 𝑦 ∈ V) → {⟨𝐵, 𝑦⟩}:{𝐵}–1-1-onto→{𝑦})
50	6, 38, 49	sylancl 595	. . . . . . . . . 10 ⊢ (𝜑 → {⟨𝐵, 𝑦⟩}:{𝐵}–1-1-onto→{𝑦})
51	50	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑓 = {⟨𝐵, 𝑦⟩}) → {⟨𝐵, 𝑦⟩}:{𝐵}–1-1-onto→{𝑦})
52		f1oeq1 6789	. . . . . . . . . . 11 ⊢ (𝑓 = {⟨𝐵, 𝑦⟩} → (𝑓:{𝐵}–1-1-onto→{𝑦} ↔ {⟨𝐵, 𝑦⟩}:{𝐵}–1-1-onto→{𝑦}))
53	52	bicomd 225	. . . . . . . . . 10 ⊢ (𝑓 = {⟨𝐵, 𝑦⟩} → ({⟨𝐵, 𝑦⟩}:{𝐵}–1-1-onto→{𝑦} ↔ 𝑓:{𝐵}–1-1-onto→{𝑦}))
54	53	adantl 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑓 = {⟨𝐵, 𝑦⟩}) → ({⟨𝐵, 𝑦⟩}:{𝐵}–1-1-onto→{𝑦} ↔ 𝑓:{𝐵}–1-1-onto→{𝑦}))
55	51, 54	mpbid 234	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑓 = {⟨𝐵, 𝑦⟩}) → 𝑓:{𝐵}–1-1-onto→{𝑦})
56		f1of 6801	. . . . . . . 8 ⊢ (𝑓:{𝐵}–1-1-onto→{𝑦} → 𝑓:{𝐵}⟶{𝑦})
57	55, 56	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑓 = {⟨𝐵, 𝑦⟩}) → 𝑓:{𝐵}⟶{𝑦})
58	57	3adant2 1143	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴 ∧ 𝑓 = {⟨𝐵, 𝑦⟩}) → 𝑓:{𝐵}⟶{𝑦})
59		snssi 4741	. . . . . . 7 ⊢ (𝑦 ∈ 𝐴 → {𝑦} ⊆ 𝐴)
60	59	3ad2ant2 1146	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴 ∧ 𝑓 = {⟨𝐵, 𝑦⟩}) → {𝑦} ⊆ 𝐴)
61	58, 60	fssd 6704	. . . . 5 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝐴 ∧ 𝑓 = {⟨𝐵, 𝑦⟩}) → 𝑓:{𝐵}⟶𝐴)
62	61	rexlimdv3a 3166	. . . 4 ⊢ (𝜑 → (∃𝑦 ∈ 𝐴 𝑓 = {⟨𝐵, 𝑦⟩} → 𝑓:{𝐵}⟶𝐴))
63	48, 62	impbid 214	. . 3 ⊢ (𝜑 → (𝑓:{𝐵}⟶𝐴 ↔ ∃𝑦 ∈ 𝐴 𝑓 = {⟨𝐵, 𝑦⟩}))
64	4, 63	bitrd 281	. 2 ⊢ (𝜑 → (𝑓 ∈ (𝐴 ↑m {𝐵}) ↔ ∃𝑦 ∈ 𝐴 𝑓 = {⟨𝐵, 𝑦⟩}))
65	64	eqabdv 2894	1 ⊢ (𝜑 → (𝐴 ↑m {𝐵}) = {𝑓 ∣ ∃𝑦 ∈ 𝐴 𝑓 = {⟨𝐵, 𝑦⟩}})

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 399   ∧ w3a 1097   = wceq 1559  ∃wex 1798   ∈ wcel 2141  ∃!weu 2594  {cab 2739  ∃wrex 3085  Vcvv 3453   ⊆ wss 3902  {csn 4579  ⟨cop 4585   class class class wbr 5097  dom cdm 5643  ran crn 5644   “ cima 5646  Rel wrel 5648   Fn wfn 6511  ⟶wf 6512  –1-1-onto→wf1o 6515  (class class class)co 7391   ↑_m cmap 8802

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1814  ax-4 1828  ax-5 1929  ax-6 1986  ax-7 2027  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-sep 5243  ax-pow 5319  ax-pr 5387  ax-un 7713

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3an 1099  df-tru 1562  df-fal 1572  df-ex 1799  df-nf 1803  df-sb 2090  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ral 3076  df-rex 3086  df-reu 3367  df-rab 3414  df-v 3455  df-sbc 3743  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4580  df-pr 4582  df-op 4586  df-uni 4863  df-br 5098  df-opab 5160  df-id 5538  df-xp 5649  df-rel 5650  df-cnv 5651  df-co 5652  df-dm 5653  df-rn 5654  df-res 5655  df-ima 5656  df-iota 6472  df-fun 6518  df-fn 6519  df-f 6520  df-f1 6521  df-fo 6522  df-f1o 6523  df-fv 6524  df-ov 7394  df-oprab 7395  df-mpo 7396  df-map 8804

This theorem is referenced by:  mapsn  8864  mapsnend  9011  iunmapsn  45754