ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  mapsnen GIF version

Theorem mapsnen 6712
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.)
Hypotheses
Ref Expression
mapsnen.1 𝐴 ∈ V
mapsnen.2 𝐵 ∈ V
Assertion
Ref Expression
mapsnen (𝐴𝑚 {𝐵}) ≈ 𝐴

Proof of Theorem mapsnen
Dummy variables 𝑦 𝑤 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fnmap 6556 . . 3 𝑚 Fn (V × V)
2 mapsnen.1 . . 3 𝐴 ∈ V
3 mapsnen.2 . . . 4 𝐵 ∈ V
43snex 4116 . . 3 {𝐵} ∈ V
5 fnovex 5811 . . 3 (( ↑𝑚 Fn (V × V) ∧ 𝐴 ∈ V ∧ {𝐵} ∈ V) → (𝐴𝑚 {𝐵}) ∈ V)
61, 2, 4, 5mp3an 1316 . 2 (𝐴𝑚 {𝐵}) ∈ V
7 vex 2692 . . . 4 𝑧 ∈ V
87, 3fvex 5448 . . 3 (𝑧𝐵) ∈ V
98a1i 9 . 2 (𝑧 ∈ (𝐴𝑚 {𝐵}) → (𝑧𝐵) ∈ V)
10 vex 2692 . . . . 5 𝑤 ∈ V
113, 10opex 4158 . . . 4 𝐵, 𝑤⟩ ∈ V
1211snex 4116 . . 3 {⟨𝐵, 𝑤⟩} ∈ V
1312a1i 9 . 2 (𝑤𝐴 → {⟨𝐵, 𝑤⟩} ∈ V)
142, 3mapsn 6591 . . . . . 6 (𝐴𝑚 {𝐵}) = {𝑧 ∣ ∃𝑦𝐴 𝑧 = {⟨𝐵, 𝑦⟩}}
1514abeq2i 2251 . . . . 5 (𝑧 ∈ (𝐴𝑚 {𝐵}) ↔ ∃𝑦𝐴 𝑧 = {⟨𝐵, 𝑦⟩})
1615anbi1i 454 . . . 4 ((𝑧 ∈ (𝐴𝑚 {𝐵}) ∧ 𝑤 = (𝑧𝐵)) ↔ (∃𝑦𝐴 𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧𝐵)))
17 r19.41v 2590 . . . 4 (∃𝑦𝐴 (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧𝐵)) ↔ (∃𝑦𝐴 𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧𝐵)))
18 df-rex 2423 . . . 4 (∃𝑦𝐴 (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧𝐵)) ↔ ∃𝑦(𝑦𝐴 ∧ (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧𝐵))))
1916, 17, 183bitr2i 207 . . 3 ((𝑧 ∈ (𝐴𝑚 {𝐵}) ∧ 𝑤 = (𝑧𝐵)) ↔ ∃𝑦(𝑦𝐴 ∧ (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧𝐵))))
20 fveq1 5427 . . . . . . . . . 10 (𝑧 = {⟨𝐵, 𝑦⟩} → (𝑧𝐵) = ({⟨𝐵, 𝑦⟩}‘𝐵))
21 vex 2692 . . . . . . . . . . 11 𝑦 ∈ V
223, 21fvsn 5622 . . . . . . . . . 10 ({⟨𝐵, 𝑦⟩}‘𝐵) = 𝑦
2320, 22eqtrdi 2189 . . . . . . . . 9 (𝑧 = {⟨𝐵, 𝑦⟩} → (𝑧𝐵) = 𝑦)
2423eqeq2d 2152 . . . . . . . 8 (𝑧 = {⟨𝐵, 𝑦⟩} → (𝑤 = (𝑧𝐵) ↔ 𝑤 = 𝑦))
25 equcom 1683 . . . . . . . 8 (𝑤 = 𝑦𝑦 = 𝑤)
2624, 25syl6bb 195 . . . . . . 7 (𝑧 = {⟨𝐵, 𝑦⟩} → (𝑤 = (𝑧𝐵) ↔ 𝑦 = 𝑤))
2726pm5.32i 450 . . . . . 6 ((𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧𝐵)) ↔ (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑦 = 𝑤))
2827anbi2i 453 . . . . 5 ((𝑦𝐴 ∧ (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧𝐵))) ↔ (𝑦𝐴 ∧ (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑦 = 𝑤)))
29 anass 399 . . . . 5 (((𝑦𝐴𝑧 = {⟨𝐵, 𝑦⟩}) ∧ 𝑦 = 𝑤) ↔ (𝑦𝐴 ∧ (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑦 = 𝑤)))
30 ancom 264 . . . . 5 (((𝑦𝐴𝑧 = {⟨𝐵, 𝑦⟩}) ∧ 𝑦 = 𝑤) ↔ (𝑦 = 𝑤 ∧ (𝑦𝐴𝑧 = {⟨𝐵, 𝑦⟩})))
3128, 29, 303bitr2i 207 . . . 4 ((𝑦𝐴 ∧ (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧𝐵))) ↔ (𝑦 = 𝑤 ∧ (𝑦𝐴𝑧 = {⟨𝐵, 𝑦⟩})))
3231exbii 1585 . . 3 (∃𝑦(𝑦𝐴 ∧ (𝑧 = {⟨𝐵, 𝑦⟩} ∧ 𝑤 = (𝑧𝐵))) ↔ ∃𝑦(𝑦 = 𝑤 ∧ (𝑦𝐴𝑧 = {⟨𝐵, 𝑦⟩})))
33 eleq1w 2201 . . . . 5 (𝑦 = 𝑤 → (𝑦𝐴𝑤𝐴))
34 opeq2 3713 . . . . . . 7 (𝑦 = 𝑤 → ⟨𝐵, 𝑦⟩ = ⟨𝐵, 𝑤⟩)
3534sneqd 3544 . . . . . 6 (𝑦 = 𝑤 → {⟨𝐵, 𝑦⟩} = {⟨𝐵, 𝑤⟩})
3635eqeq2d 2152 . . . . 5 (𝑦 = 𝑤 → (𝑧 = {⟨𝐵, 𝑦⟩} ↔ 𝑧 = {⟨𝐵, 𝑤⟩}))
3733, 36anbi12d 465 . . . 4 (𝑦 = 𝑤 → ((𝑦𝐴𝑧 = {⟨𝐵, 𝑦⟩}) ↔ (𝑤𝐴𝑧 = {⟨𝐵, 𝑤⟩})))
3810, 37ceqsexv 2728 . . 3 (∃𝑦(𝑦 = 𝑤 ∧ (𝑦𝐴𝑧 = {⟨𝐵, 𝑦⟩})) ↔ (𝑤𝐴𝑧 = {⟨𝐵, 𝑤⟩}))
3919, 32, 383bitri 205 . 2 ((𝑧 ∈ (𝐴𝑚 {𝐵}) ∧ 𝑤 = (𝑧𝐵)) ↔ (𝑤𝐴𝑧 = {⟨𝐵, 𝑤⟩}))
406, 2, 9, 13, 39en2i 6671 1 (𝐴𝑚 {𝐵}) ≈ 𝐴
Colors of variables: wff set class
Syntax hints:  wa 103   = wceq 1332  wex 1469  wcel 1481  wrex 2418  Vcvv 2689  {csn 3531  cop 3534   class class class wbr 3936   × cxp 4544   Fn wfn 5125  cfv 5130  (class class class)co 5781  𝑚 cmap 6549  cen 6639
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 604  ax-in2 605  ax-io 699  ax-5 1424  ax-7 1425  ax-gen 1426  ax-ie1 1470  ax-ie2 1471  ax-8 1483  ax-10 1484  ax-11 1485  ax-i12 1486  ax-bndl 1487  ax-4 1488  ax-13 1492  ax-14 1493  ax-17 1507  ax-i9 1511  ax-ial 1515  ax-i5r 1516  ax-ext 2122  ax-sep 4053  ax-pow 4105  ax-pr 4138  ax-un 4362  ax-setind 4459
This theorem depends on definitions:  df-bi 116  df-3an 965  df-tru 1335  df-fal 1338  df-nf 1438  df-sb 1737  df-eu 2003  df-mo 2004  df-clab 2127  df-cleq 2133  df-clel 2136  df-nfc 2271  df-ne 2310  df-ral 2422  df-rex 2423  df-reu 2424  df-rab 2426  df-v 2691  df-sbc 2913  df-csb 3007  df-dif 3077  df-un 3079  df-in 3081  df-ss 3088  df-pw 3516  df-sn 3537  df-pr 3538  df-op 3540  df-uni 3744  df-iun 3822  df-br 3937  df-opab 3997  df-mpt 3998  df-id 4222  df-xp 4552  df-rel 4553  df-cnv 4554  df-co 4555  df-dm 4556  df-rn 4557  df-res 4558  df-ima 4559  df-iota 5095  df-fun 5132  df-fn 5133  df-f 5134  df-f1 5135  df-fo 5136  df-f1o 5137  df-fv 5138  df-ov 5784  df-oprab 5785  df-mpo 5786  df-1st 6045  df-2nd 6046  df-map 6551  df-en 6642
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator