Users' Mathboxes Mathbox for BJ < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  bj-snsetex Structured version   Visualization version   GIF version

Theorem bj-snsetex 33076
Description: The class of sets "whose singletons" belong to a set is a set. Nice application of ax-rep 4804. (Contributed by BJ, 6-Oct-2018.)
Assertion
Ref Expression
bj-snsetex (𝐴𝑉 → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V)
Distinct variable group:   𝑥,𝐴
Allowed substitution hint:   𝑉(𝑥)

Proof of Theorem bj-snsetex
Dummy variables 𝑦 𝑧 𝑡 𝑢 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 elisset 3246 . . . 4 (𝐴𝑉 → ∃𝑦 𝑦 = 𝐴)
2 eleq2 2719 . . . . . . 7 (𝑦 = 𝐴 → ({𝑥} ∈ 𝑦 ↔ {𝑥} ∈ 𝐴))
32abbidv 2770 . . . . . 6 (𝑦 = 𝐴 → {𝑥 ∣ {𝑥} ∈ 𝑦} = {𝑥 ∣ {𝑥} ∈ 𝐴})
4 eleq1 2718 . . . . . . 7 ({𝑥 ∣ {𝑥} ∈ 𝑦} = {𝑥 ∣ {𝑥} ∈ 𝐴} → ({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V ↔ {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
54biimpd 219 . . . . . 6 ({𝑥 ∣ {𝑥} ∈ 𝑦} = {𝑥 ∣ {𝑥} ∈ 𝐴} → ({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
63, 5syl 17 . . . . 5 (𝑦 = 𝐴 → ({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
76eximi 1802 . . . 4 (∃𝑦 𝑦 = 𝐴 → ∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
81, 7syl 17 . . 3 (𝐴𝑉 → ∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
9 19.35 1845 . . . . . 6 (∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V) ↔ (∀𝑦{𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → ∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
109biimpi 206 . . . . 5 (∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V) → (∀𝑦{𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → ∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
1110com12 32 . . . 4 (∀𝑦{𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → (∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V) → ∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
12 ax-rep 4804 . . . . . . . 8 (∀𝑢𝑧𝑡(∀𝑧 𝑢 = {𝑡} → 𝑡 = 𝑧) → ∃𝑧𝑡(𝑡𝑧 ↔ ∃𝑢(𝑢𝑦 ∧ ∀𝑧 𝑢 = {𝑡})))
13 19.3v 1954 . . . . . . . . . . 11 (∀𝑧 𝑢 = {𝑡} ↔ 𝑢 = {𝑡})
1413sbbii 1944 . . . . . . . . . . 11 ([𝑧 / 𝑡]∀𝑧 𝑢 = {𝑡} ↔ [𝑧 / 𝑡]𝑢 = {𝑡})
15 sbsbc 3472 . . . . . . . . . . . . . 14 ([𝑧 / 𝑡]𝑢 = {𝑡} ↔ [𝑧 / 𝑡]𝑢 = {𝑡})
16 vex 3234 . . . . . . . . . . . . . . 15 𝑧 ∈ V
17 sbceq2g 4023 . . . . . . . . . . . . . . 15 (𝑧 ∈ V → ([𝑧 / 𝑡]𝑢 = {𝑡} ↔ 𝑢 = 𝑧 / 𝑡{𝑡}))
1816, 17ax-mp 5 . . . . . . . . . . . . . 14 ([𝑧 / 𝑡]𝑢 = {𝑡} ↔ 𝑢 = 𝑧 / 𝑡{𝑡})
1915, 18bitri 264 . . . . . . . . . . . . 13 ([𝑧 / 𝑡]𝑢 = {𝑡} ↔ 𝑢 = 𝑧 / 𝑡{𝑡})
20 bj-csbsn 33024 . . . . . . . . . . . . . 14 𝑧 / 𝑡{𝑡} = {𝑧}
2120eqeq2i 2663 . . . . . . . . . . . . 13 (𝑢 = 𝑧 / 𝑡{𝑡} ↔ 𝑢 = {𝑧})
2219, 21bitri 264 . . . . . . . . . . . 12 ([𝑧 / 𝑡]𝑢 = {𝑡} ↔ 𝑢 = {𝑧})
23 eqtr2 2671 . . . . . . . . . . . . 13 ((𝑢 = {𝑡} ∧ 𝑢 = {𝑧}) → {𝑡} = {𝑧})
24 vex 3234 . . . . . . . . . . . . . 14 𝑡 ∈ V
2524sneqr 4403 . . . . . . . . . . . . 13 ({𝑡} = {𝑧} → 𝑡 = 𝑧)
2623, 25syl 17 . . . . . . . . . . . 12 ((𝑢 = {𝑡} ∧ 𝑢 = {𝑧}) → 𝑡 = 𝑧)
2722, 26sylan2b 491 . . . . . . . . . . 11 ((𝑢 = {𝑡} ∧ [𝑧 / 𝑡]𝑢 = {𝑡}) → 𝑡 = 𝑧)
2813, 14, 27syl2anb 495 . . . . . . . . . 10 ((∀𝑧 𝑢 = {𝑡} ∧ [𝑧 / 𝑡]∀𝑧 𝑢 = {𝑡}) → 𝑡 = 𝑧)
2928gen2 1763 . . . . . . . . 9 𝑡𝑧((∀𝑧 𝑢 = {𝑡} ∧ [𝑧 / 𝑡]∀𝑧 𝑢 = {𝑡}) → 𝑡 = 𝑧)
30 nfa1 2068 . . . . . . . . . 10 𝑧𝑧 𝑢 = {𝑡}
3130mo 2537 . . . . . . . . 9 (∃𝑧𝑡(∀𝑧 𝑢 = {𝑡} → 𝑡 = 𝑧) ↔ ∀𝑡𝑧((∀𝑧 𝑢 = {𝑡} ∧ [𝑧 / 𝑡]∀𝑧 𝑢 = {𝑡}) → 𝑡 = 𝑧))
3229, 31mpbir 221 . . . . . . . 8 𝑧𝑡(∀𝑧 𝑢 = {𝑡} → 𝑡 = 𝑧)
3312, 32mpg 1764 . . . . . . 7 𝑧𝑡(𝑡𝑧 ↔ ∃𝑢(𝑢𝑦 ∧ ∀𝑧 𝑢 = {𝑡}))
34 bj-sbel1 33025 . . . . . . . . . . . 12 ([𝑡 / 𝑥]{𝑥} ∈ 𝑦𝑡 / 𝑥{𝑥} ∈ 𝑦)
35 bj-csbsn 33024 . . . . . . . . . . . . 13 𝑡 / 𝑥{𝑥} = {𝑡}
3635eleq1i 2721 . . . . . . . . . . . 12 (𝑡 / 𝑥{𝑥} ∈ 𝑦 ↔ {𝑡} ∈ 𝑦)
3734, 36bitri 264 . . . . . . . . . . 11 ([𝑡 / 𝑥]{𝑥} ∈ 𝑦 ↔ {𝑡} ∈ 𝑦)
38 df-clab 2638 . . . . . . . . . . 11 (𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦} ↔ [𝑡 / 𝑥]{𝑥} ∈ 𝑦)
3913anbi2i 730 . . . . . . . . . . . . . 14 ((𝑢𝑦 ∧ ∀𝑧 𝑢 = {𝑡}) ↔ (𝑢𝑦𝑢 = {𝑡}))
40 eleq1a 2725 . . . . . . . . . . . . . . . . . 18 (𝑢𝑦 → ({𝑡} = 𝑢 → {𝑡} ∈ 𝑦))
4140com12 32 . . . . . . . . . . . . . . . . 17 ({𝑡} = 𝑢 → (𝑢𝑦 → {𝑡} ∈ 𝑦))
4241eqcoms 2659 . . . . . . . . . . . . . . . 16 (𝑢 = {𝑡} → (𝑢𝑦 → {𝑡} ∈ 𝑦))
4342imdistanri 727 . . . . . . . . . . . . . . 15 ((𝑢𝑦𝑢 = {𝑡}) → ({𝑡} ∈ 𝑦𝑢 = {𝑡}))
44 eleq1a 2725 . . . . . . . . . . . . . . . 16 ({𝑡} ∈ 𝑦 → (𝑢 = {𝑡} → 𝑢𝑦))
4544impac 650 . . . . . . . . . . . . . . 15 (({𝑡} ∈ 𝑦𝑢 = {𝑡}) → (𝑢𝑦𝑢 = {𝑡}))
4643, 45impbii 199 . . . . . . . . . . . . . 14 ((𝑢𝑦𝑢 = {𝑡}) ↔ ({𝑡} ∈ 𝑦𝑢 = {𝑡}))
4739, 46bitri 264 . . . . . . . . . . . . 13 ((𝑢𝑦 ∧ ∀𝑧 𝑢 = {𝑡}) ↔ ({𝑡} ∈ 𝑦𝑢 = {𝑡}))
4847exbii 1814 . . . . . . . . . . . 12 (∃𝑢(𝑢𝑦 ∧ ∀𝑧 𝑢 = {𝑡}) ↔ ∃𝑢({𝑡} ∈ 𝑦𝑢 = {𝑡}))
49 snex 4938 . . . . . . . . . . . . . 14 {𝑡} ∈ V
5049isseti 3240 . . . . . . . . . . . . 13 𝑢 𝑢 = {𝑡}
51 19.42v 1921 . . . . . . . . . . . . 13 (∃𝑢({𝑡} ∈ 𝑦𝑢 = {𝑡}) ↔ ({𝑡} ∈ 𝑦 ∧ ∃𝑢 𝑢 = {𝑡}))
5250, 51mpbiran2 974 . . . . . . . . . . . 12 (∃𝑢({𝑡} ∈ 𝑦𝑢 = {𝑡}) ↔ {𝑡} ∈ 𝑦)
5348, 52bitri 264 . . . . . . . . . . 11 (∃𝑢(𝑢𝑦 ∧ ∀𝑧 𝑢 = {𝑡}) ↔ {𝑡} ∈ 𝑦)
5437, 38, 533bitr4ri 293 . . . . . . . . . 10 (∃𝑢(𝑢𝑦 ∧ ∀𝑧 𝑢 = {𝑡}) ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦})
5554bibi2i 326 . . . . . . . . 9 ((𝑡𝑧 ↔ ∃𝑢(𝑢𝑦 ∧ ∀𝑧 𝑢 = {𝑡})) ↔ (𝑡𝑧𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦}))
5655albii 1787 . . . . . . . 8 (∀𝑡(𝑡𝑧 ↔ ∃𝑢(𝑢𝑦 ∧ ∀𝑧 𝑢 = {𝑡})) ↔ ∀𝑡(𝑡𝑧𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦}))
5756exbii 1814 . . . . . . 7 (∃𝑧𝑡(𝑡𝑧 ↔ ∃𝑢(𝑢𝑦 ∧ ∀𝑧 𝑢 = {𝑡})) ↔ ∃𝑧𝑡(𝑡𝑧𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦}))
5833, 57mpbi 220 . . . . . 6 𝑧𝑡(𝑡𝑧𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦})
59 dfcleq 2645 . . . . . . 7 (𝑧 = {𝑥 ∣ {𝑥} ∈ 𝑦} ↔ ∀𝑡(𝑡𝑧𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦}))
6059exbii 1814 . . . . . 6 (∃𝑧 𝑧 = {𝑥 ∣ {𝑥} ∈ 𝑦} ↔ ∃𝑧𝑡(𝑡𝑧𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦}))
6158, 60mpbir 221 . . . . 5 𝑧 𝑧 = {𝑥 ∣ {𝑥} ∈ 𝑦}
6261issetri 3241 . . . 4 {𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V
6311, 62mpg 1764 . . 3 (∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V) → ∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V)
648, 63syl 17 . 2 (𝐴𝑉 → ∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V)
65 ax5e 1881 . 2 (∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V)
6664, 65syl 17 1 (𝐴𝑉 → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 383  wal 1521   = wceq 1523  wex 1744  [wsb 1937  wcel 2030  {cab 2637  Vcvv 3231  [wsbc 3468  csb 3566  {csn 4210
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1762  ax-4 1777  ax-5 1879  ax-6 1945  ax-7 1981  ax-9 2039  ax-10 2059  ax-11 2074  ax-12 2087  ax-13 2282  ax-ext 2631  ax-rep 4804  ax-sep 4814  ax-nul 4822  ax-pr 4936
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-tru 1526  df-fal 1529  df-ex 1745  df-nf 1750  df-sb 1938  df-eu 2502  df-mo 2503  df-clab 2638  df-cleq 2644  df-clel 2647  df-nfc 2782  df-v 3233  df-sbc 3469  df-csb 3567  df-dif 3610  df-un 3612  df-nul 3949  df-sn 4211  df-pr 4213
This theorem is referenced by:  bj-clex  33077  bj-snglex  33086
  Copyright terms: Public domain W3C validator