Theorem mapsnend 8582

Description: Set exponentiation to a singleton exponent is equinumerous to its base. Exercise 4.43 of [Mendelson] p. 255. (Contributed by NM, 17-Dec-2003.) (Revised by Mario Carneiro, 15-Nov-2014.) (Revised by Glauco Siliprandi, 24-Dec-2020.)

Hypotheses

Ref	Expression
mapsnend.a	⊢ (𝜑 → 𝐴 ∈ 𝑉)
mapsnend.b	⊢ (𝜑 → 𝐵 ∈ 𝑊)

Assertion

Ref	Expression
mapsnend	⊢ (𝜑 → (𝐴 ↑m {𝐵}) ≈ 𝐴)

Proof of Theorem mapsnend

Dummy variables 𝑤 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		ovexd 7185	. 2 ⊢ (𝜑 → (𝐴 ↑m {𝐵}) ∈ V)
2		mapsnend.a	. . 3 ⊢ (𝜑 → 𝐴 ∈ 𝑉)
3	2	elexd 3515	. 2 ⊢ (𝜑 → 𝐴 ∈ V)
4		fvexd 6680	. . 3 ⊢ (𝑧 ∈ (𝐴 ↑m {𝐵}) → (𝑧‘𝐵) ∈ V)
5	4	a1i 11	. 2 ⊢ (𝜑 → (𝑧 ∈ (𝐴 ↑m {𝐵}) → (𝑧‘𝐵) ∈ V))
6		snex 5324	. . 3 ⊢ {⟨𝐵, 𝑤⟩} ∈ V
7	6	2a1i 12	. 2 ⊢ (𝜑 → (𝑤 ∈ 𝐴 → {⟨𝐵, 𝑤⟩} ∈ V))
8		mapsnend.b	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ 𝑊)
9	2, 8	mapsnd 8444	. . . . . 6 ⊢ (𝜑 → (𝐴 ↑m {𝐵}) = {𝑧 ∣ ∃𝑦 ∈ 𝐴 𝑧 = {⟨𝐵, 𝑦⟩}})
10	9	abeq2d 2947	. . . . 5 ⊢ (𝜑 → (𝑧 ∈ (𝐴 ↑m {𝐵}) ↔ ∃𝑦 ∈ 𝐴 𝑧 = {⟨𝐵, 𝑦⟩}))
11	10	anbi1d 631	. . . 4 ⊢ (𝜑 → ((𝑧 ∈ (𝐴 ↑m {𝐵}) ∧ 𝑤 = (𝑧‘𝐵)) ↔ (∃𝑦 ∈ 𝐴 𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧‘𝐵))))
12		r19.41v 3347	. . . . . 6 ⊢ (∃𝑦 ∈ 𝐴 (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧‘𝐵)) ↔ (∃𝑦 ∈ 𝐴 𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧‘𝐵)))
13	12	bicomi 226	. . . . 5 ⊢ ((∃𝑦 ∈ 𝐴 𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧‘𝐵)) ↔ ∃𝑦 ∈ 𝐴 (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧‘𝐵)))
14	13	a1i 11	. . . 4 ⊢ (𝜑 → ((∃𝑦 ∈ 𝐴 𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧‘𝐵)) ↔ ∃𝑦 ∈ 𝐴 (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧‘𝐵))))
15		df-rex 3144	. . . . 5 ⊢ (∃𝑦 ∈ 𝐴 (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧‘𝐵)) ↔ ∃𝑦(𝑦 ∈ 𝐴 ∧ (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧‘𝐵))))
16	15	a1i 11	. . . 4 ⊢ (𝜑 → (∃𝑦 ∈ 𝐴 (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧‘𝐵)) ↔ ∃𝑦(𝑦 ∈ 𝐴 ∧ (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧‘𝐵)))))
17	11, 14, 16	3bitrd 307	. . 3 ⊢ (𝜑 → ((𝑧 ∈ (𝐴 ↑m {𝐵}) ∧ 𝑤 = (𝑧‘𝐵)) ↔ ∃𝑦(𝑦 ∈ 𝐴 ∧ (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧‘𝐵)))))
18		fveq1 6664	. . . . . . . . . 10 ⊢ (𝑧 = {⟨𝐵, 𝑦⟩} → (𝑧‘𝐵) = ({⟨𝐵, 𝑦⟩}‘𝐵))
19		vex 3498	. . . . . . . . . . 11 ⊢ 𝑦 ∈ V
20		fvsng 6937	. . . . . . . . . . 11 ⊢ ((𝐵 ∈ 𝑊 ∧ 𝑦 ∈ V) → ({⟨𝐵, 𝑦⟩}‘𝐵) = 𝑦)
21	8, 19, 20	sylancl 588	. . . . . . . . . 10 ⊢ (𝜑 → ({⟨𝐵, 𝑦⟩}‘𝐵) = 𝑦)
22	18, 21	sylan9eqr 2878	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 = {⟨𝐵, 𝑦⟩}) → (𝑧‘𝐵) = 𝑦)
23	22	eqeq2d 2832	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 = {⟨𝐵, 𝑦⟩}) → (𝑤 = (𝑧‘𝐵) ↔ 𝑤 = 𝑦))
24		equcom 2021	. . . . . . . 8 ⊢ (𝑤 = 𝑦 ↔ 𝑦 = 𝑤)
25	23, 24	syl6bb 289	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑧 = {⟨𝐵, 𝑦⟩}) → (𝑤 = (𝑧‘𝐵) ↔ 𝑦 = 𝑤))
26	25	pm5.32da 581	. . . . . 6 ⊢ (𝜑 → ((𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧‘𝐵)) ↔ (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑦 = 𝑤)))
27	26	anbi2d 630	. . . . 5 ⊢ (𝜑 → ((𝑦 ∈ 𝐴 ∧ (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧‘𝐵))) ↔ (𝑦 ∈ 𝐴 ∧ (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑦 = 𝑤))))
28		anass 471	. . . . . 6 ⊢ (((𝑦 ∈ 𝐴 ∧ 𝑧 = {⟨𝐵, 𝑦⟩}) ∧ 𝑦 = 𝑤) ↔ (𝑦 ∈ 𝐴 ∧ (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑦 = 𝑤)))
29	28	a1i 11	. . . . 5 ⊢ (𝜑 → (((𝑦 ∈ 𝐴 ∧ 𝑧 = {⟨𝐵, 𝑦⟩}) ∧ 𝑦 = 𝑤) ↔ (𝑦 ∈ 𝐴 ∧ (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑦 = 𝑤))))
30		ancom 463	. . . . . 6 ⊢ (((𝑦 ∈ 𝐴 ∧ 𝑧 = {⟨𝐵, 𝑦⟩}) ∧ 𝑦 = 𝑤) ↔ (𝑦 = 𝑤 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 = {⟨𝐵, 𝑦⟩})))
31	30	a1i 11	. . . . 5 ⊢ (𝜑 → (((𝑦 ∈ 𝐴 ∧ 𝑧 = {⟨𝐵, 𝑦⟩}) ∧ 𝑦 = 𝑤) ↔ (𝑦 = 𝑤 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 = {⟨𝐵, 𝑦⟩}))))
32	27, 29, 31	3bitr2d 309	. . . 4 ⊢ (𝜑 → ((𝑦 ∈ 𝐴 ∧ (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧‘𝐵))) ↔ (𝑦 = 𝑤 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 = {⟨𝐵, 𝑦⟩}))))
33	32	exbidv 1918	. . 3 ⊢ (𝜑 → (∃𝑦(𝑦 ∈ 𝐴 ∧ (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧‘𝐵))) ↔ ∃𝑦(𝑦 = 𝑤 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 = {⟨𝐵, 𝑦⟩}))))
34		eleq1w 2895	. . . . . 6 ⊢ (𝑦 = 𝑤 → (𝑦 ∈ 𝐴 ↔ 𝑤 ∈ 𝐴))
35		opeq2 4798	. . . . . . . 8 ⊢ (𝑦 = 𝑤 → ⟨𝐵, 𝑦⟩ = ⟨𝐵, 𝑤⟩)
36	35	sneqd 4573	. . . . . . 7 ⊢ (𝑦 = 𝑤 → {⟨𝐵, 𝑦⟩} = {⟨𝐵, 𝑤⟩})
37	36	eqeq2d 2832	. . . . . 6 ⊢ (𝑦 = 𝑤 → (𝑧 = {⟨𝐵, 𝑦⟩} ↔ 𝑧 = {⟨𝐵, 𝑤⟩}))
38	34, 37	anbi12d 632	. . . . 5 ⊢ (𝑦 = 𝑤 → ((𝑦 ∈ 𝐴 ∧ 𝑧 = {⟨𝐵, 𝑦⟩}) ↔ (𝑤 ∈ 𝐴 ∧ 𝑧 = {⟨𝐵, 𝑤⟩})))
39	38	equsexvw 2007	. . . 4 ⊢ (∃𝑦(𝑦 = 𝑤 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 = {⟨𝐵, 𝑦⟩})) ↔ (𝑤 ∈ 𝐴 ∧ 𝑧 = {⟨𝐵, 𝑤⟩}))
40	39	a1i 11	. . 3 ⊢ (𝜑 → (∃𝑦(𝑦 = 𝑤 ∧ (𝑦 ∈ 𝐴 ∧ 𝑧 = {⟨𝐵, 𝑦⟩})) ↔ (𝑤 ∈ 𝐴 ∧ 𝑧 = {⟨𝐵, 𝑤⟩})))
41	17, 33, 40	3bitrd 307	. 2 ⊢ (𝜑 → ((𝑧 ∈ (𝐴 ↑m {𝐵}) ∧ 𝑤 = (𝑧‘𝐵)) ↔ (𝑤 ∈ 𝐴 ∧ 𝑧 = {⟨𝐵, 𝑤⟩})))
42	1, 3, 5, 7, 41	en2d 8539	1 ⊢ (𝜑 → (𝐴 ↑m {𝐵}) ≈ 𝐴)

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   = wceq 1533  ∃wex 1776   ∈ wcel 2110  ∃wrex 3139  Vcvv 3495  {csn 4561  ⟨cop 4567   class class class wbr 5059  ‘cfv 6350  (class class class)co 7150   ↑_m cmap 8400   ≈ cen 8500

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1907  ax-6 1966  ax-7 2011  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2156  ax-12 2172  ax-ext 2793  ax-sep 5196  ax-nul 5203  ax-pow 5259  ax-pr 5322  ax-un 7455

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1536  df-ex 1777  df-nf 1781  df-sb 2066  df-mo 2618  df-eu 2650  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-ral 3143  df-rex 3144  df-reu 3145  df-rab 3147  df-v 3497  df-sbc 3773  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-nul 4292  df-if 4468  df-pw 4541  df-sn 4562  df-pr 4564  df-op 4568  df-uni 4833  df-br 5060  df-opab 5122  df-mpt 5140  df-id 5455  df-xp 5556  df-rel 5557  df-cnv 5558  df-co 5559  df-dm 5560  df-rn 5561  df-res 5562  df-ima 5563  df-iota 6309  df-fun 6352  df-fn 6353  df-f 6354  df-f1 6355  df-fo 6356  df-f1o 6357  df-fv 6358  df-ov 7153  df-oprab 7154  df-mpo 7155  df-map 8402  df-en 8504

This theorem is referenced by:  mapsnen  8583  map2xp  8681  mapdom3  8683  ackbij1lem5  9640  pwxpndom2  10081  hashmap  13790  mpct  41456