Theorem bj-snsetex 35080

Description: The class of sets "whose singletons" belong to a set is a set. Nice application of ax-rep 5205. (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.

Step	Hyp	Ref	Expression
1		elisset 2820	. . . 4 ⊢ (𝐴 ∈ 𝑉 → ∃𝑦 𝑦 = 𝐴)
2		eleq2 2827	. . . . . . 7 ⊢ (𝑦 = 𝐴 → ({𝑥} ∈ 𝑦 ↔ {𝑥} ∈ 𝐴))
3	2	abbidv 2808	. . . . . 6 ⊢ (𝑦 = 𝐴 → {𝑥 ∣ {𝑥} ∈ 𝑦} = {𝑥 ∣ {𝑥} ∈ 𝐴})
4		eleq1 2826	. . . . . . 7 ⊢ ({𝑥 ∣ {𝑥} ∈ 𝑦} = {𝑥 ∣ {𝑥} ∈ 𝐴} → ({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V ↔ {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
5	4	biimpd 228	. . . . . 6 ⊢ ({𝑥 ∣ {𝑥} ∈ 𝑦} = {𝑥 ∣ {𝑥} ∈ 𝐴} → ({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
6	3, 5	syl 17	. . . . 5 ⊢ (𝑦 = 𝐴 → ({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
7	6	eximi 1838	. . . 4 ⊢ (∃𝑦 𝑦 = 𝐴 → ∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
8	1, 7	syl 17	. . 3 ⊢ (𝐴 ∈ 𝑉 → ∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
9		bj-eximcom 34751	. . . . 5 ⊢ (∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V) → (∀𝑦{𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → ∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
10	9	com12 32	. . . 4 ⊢ (∀𝑦{𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → (∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V) → ∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
11		ax-rep 5205	. . . . . . . 8 ⊢ (∀𝑢∃𝑧∀𝑡(∀𝑧 𝑢 = {𝑡} → 𝑡 = 𝑧) → ∃𝑧∀𝑡(𝑡 ∈ 𝑧 ↔ ∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡})))
12		19.3v 1986	. . . . . . . . . . 11 ⊢ (∀𝑧 𝑢 = {𝑡} ↔ 𝑢 = {𝑡})
13	12	sbbii 2080	. . . . . . . . . . 11 ⊢ ([𝑧 / 𝑡]∀𝑧 𝑢 = {𝑡} ↔ [𝑧 / 𝑡]𝑢 = {𝑡})
14		sbsbc 3715	. . . . . . . . . . . . . 14 ⊢ ([𝑧 / 𝑡]𝑢 = {𝑡} ↔ [𝑧 / 𝑡]𝑢 = {𝑡})
15		sbceq2g 4347	. . . . . . . . . . . . . . 15 ⊢ (𝑧 ∈ V → ([𝑧 / 𝑡]𝑢 = {𝑡} ↔ 𝑢 = ⦋𝑧 / 𝑡⦌{𝑡}))
16	15	elv 3428	. . . . . . . . . . . . . 14 ⊢ ([𝑧 / 𝑡]𝑢 = {𝑡} ↔ 𝑢 = ⦋𝑧 / 𝑡⦌{𝑡})
17	14, 16	bitri 274	. . . . . . . . . . . . 13 ⊢ ([𝑧 / 𝑡]𝑢 = {𝑡} ↔ 𝑢 = ⦋𝑧 / 𝑡⦌{𝑡})
18		bj-csbsn 35016	. . . . . . . . . . . . . 14 ⊢ ⦋𝑧 / 𝑡⦌{𝑡} = {𝑧}
19	18	eqeq2i 2751	. . . . . . . . . . . . 13 ⊢ (𝑢 = ⦋𝑧 / 𝑡⦌{𝑡} ↔ 𝑢 = {𝑧})
20	17, 19	bitri 274	. . . . . . . . . . . 12 ⊢ ([𝑧 / 𝑡]𝑢 = {𝑡} ↔ 𝑢 = {𝑧})
21		eqtr2 2762	. . . . . . . . . . . . 13 ⊢ ((𝑢 = {𝑡} ∧ 𝑢 = {𝑧}) → {𝑡} = {𝑧})
22		vex 3426	. . . . . . . . . . . . . 14 ⊢ 𝑡 ∈ V
23	22	sneqr 4768	. . . . . . . . . . . . 13 ⊢ ({𝑡} = {𝑧} → 𝑡 = 𝑧)
24	21, 23	syl 17	. . . . . . . . . . . 12 ⊢ ((𝑢 = {𝑡} ∧ 𝑢 = {𝑧}) → 𝑡 = 𝑧)
25	20, 24	sylan2b 593	. . . . . . . . . . 11 ⊢ ((𝑢 = {𝑡} ∧ [𝑧 / 𝑡]𝑢 = {𝑡}) → 𝑡 = 𝑧)
26	12, 13, 25	syl2anb 597	. . . . . . . . . 10 ⊢ ((∀𝑧 𝑢 = {𝑡} ∧ [𝑧 / 𝑡]∀𝑧 𝑢 = {𝑡}) → 𝑡 = 𝑧)
27	26	gen2 1800	. . . . . . . . 9 ⊢ ∀𝑡∀𝑧((∀𝑧 𝑢 = {𝑡} ∧ [𝑧 / 𝑡]∀𝑧 𝑢 = {𝑡}) → 𝑡 = 𝑧)
28		nfa1 2150	. . . . . . . . . 10 ⊢ Ⅎ𝑧∀𝑧 𝑢 = {𝑡}
29	28	mo 2565	. . . . . . . . 9 ⊢ (∃𝑧∀𝑡(∀𝑧 𝑢 = {𝑡} → 𝑡 = 𝑧) ↔ ∀𝑡∀𝑧((∀𝑧 𝑢 = {𝑡} ∧ [𝑧 / 𝑡]∀𝑧 𝑢 = {𝑡}) → 𝑡 = 𝑧))
30	27, 29	mpbir 230	. . . . . . . 8 ⊢ ∃𝑧∀𝑡(∀𝑧 𝑢 = {𝑡} → 𝑡 = 𝑧)
31	11, 30	mpg 1801	. . . . . . 7 ⊢ ∃𝑧∀𝑡(𝑡 ∈ 𝑧 ↔ ∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡}))
32		bj-sbel1 35017	. . . . . . . . . . . 12 ⊢ ([𝑡 / 𝑥]{𝑥} ∈ 𝑦 ↔ ⦋𝑡 / 𝑥⦌{𝑥} ∈ 𝑦)
33		bj-csbsn 35016	. . . . . . . . . . . . 13 ⊢ ⦋𝑡 / 𝑥⦌{𝑥} = {𝑡}
34	33	eleq1i 2829	. . . . . . . . . . . 12 ⊢ (⦋𝑡 / 𝑥⦌{𝑥} ∈ 𝑦 ↔ {𝑡} ∈ 𝑦)
35	32, 34	bitri 274	. . . . . . . . . . 11 ⊢ ([𝑡 / 𝑥]{𝑥} ∈ 𝑦 ↔ {𝑡} ∈ 𝑦)
36		df-clab 2716	. . . . . . . . . . 11 ⊢ (𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦} ↔ [𝑡 / 𝑥]{𝑥} ∈ 𝑦)
37	12	anbi2i 622	. . . . . . . . . . . . . 14 ⊢ ((𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡}) ↔ (𝑢 ∈ 𝑦 ∧ 𝑢 = {𝑡}))
38		eleq1a 2834	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑢 ∈ 𝑦 → ({𝑡} = 𝑢 → {𝑡} ∈ 𝑦))
39	38	com12 32	. . . . . . . . . . . . . . . . 17 ⊢ ({𝑡} = 𝑢 → (𝑢 ∈ 𝑦 → {𝑡} ∈ 𝑦))
40	39	eqcoms 2746	. . . . . . . . . . . . . . . 16 ⊢ (𝑢 = {𝑡} → (𝑢 ∈ 𝑦 → {𝑡} ∈ 𝑦))
41	40	imdistanri 569	. . . . . . . . . . . . . . 15 ⊢ ((𝑢 ∈ 𝑦 ∧ 𝑢 = {𝑡}) → ({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}))
42		eleq1a 2834	. . . . . . . . . . . . . . . 16 ⊢ ({𝑡} ∈ 𝑦 → (𝑢 = {𝑡} → 𝑢 ∈ 𝑦))
43	42	impac 552	. . . . . . . . . . . . . . 15 ⊢ (({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}) → (𝑢 ∈ 𝑦 ∧ 𝑢 = {𝑡}))
44	41, 43	impbii 208	. . . . . . . . . . . . . 14 ⊢ ((𝑢 ∈ 𝑦 ∧ 𝑢 = {𝑡}) ↔ ({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}))
45	37, 44	bitri 274	. . . . . . . . . . . . 13 ⊢ ((𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡}) ↔ ({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}))
46	45	exbii 1851	. . . . . . . . . . . 12 ⊢ (∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡}) ↔ ∃𝑢({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}))
47		snex 5349	. . . . . . . . . . . . . 14 ⊢ {𝑡} ∈ V
48	47	isseti 3437	. . . . . . . . . . . . 13 ⊢ ∃𝑢 𝑢 = {𝑡}
49		19.42v 1958	. . . . . . . . . . . . 13 ⊢ (∃𝑢({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}) ↔ ({𝑡} ∈ 𝑦 ∧ ∃𝑢 𝑢 = {𝑡}))
50	48, 49	mpbiran2 706	. . . . . . . . . . . 12 ⊢ (∃𝑢({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}) ↔ {𝑡} ∈ 𝑦)
51	46, 50	bitri 274	. . . . . . . . . . 11 ⊢ (∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡}) ↔ {𝑡} ∈ 𝑦)
52	35, 36, 51	3bitr4ri 303	. . . . . . . . . 10 ⊢ (∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡}) ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦})
53	52	bibi2i 337	. . . . . . . . 9 ⊢ ((𝑡 ∈ 𝑧 ↔ ∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡})) ↔ (𝑡 ∈ 𝑧 ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦}))
54	53	albii 1823	. . . . . . . 8 ⊢ (∀𝑡(𝑡 ∈ 𝑧 ↔ ∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡})) ↔ ∀𝑡(𝑡 ∈ 𝑧 ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦}))
55	54	exbii 1851	. . . . . . 7 ⊢ (∃𝑧∀𝑡(𝑡 ∈ 𝑧 ↔ ∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡})) ↔ ∃𝑧∀𝑡(𝑡 ∈ 𝑧 ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦}))
56	31, 55	mpbi 229	. . . . . 6 ⊢ ∃𝑧∀𝑡(𝑡 ∈ 𝑧 ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦})
57		dfcleq 2731	. . . . . . 7 ⊢ (𝑧 = {𝑥 ∣ {𝑥} ∈ 𝑦} ↔ ∀𝑡(𝑡 ∈ 𝑧 ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦}))
58	57	exbii 1851	. . . . . 6 ⊢ (∃𝑧 𝑧 = {𝑥 ∣ {𝑥} ∈ 𝑦} ↔ ∃𝑧∀𝑡(𝑡 ∈ 𝑧 ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦}))
59	56, 58	mpbir 230	. . . . 5 ⊢ ∃𝑧 𝑧 = {𝑥 ∣ {𝑥} ∈ 𝑦}
60	59	issetri 3438	. . . 4 ⊢ {𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V
61	10, 60	mpg 1801	. . 3 ⊢ (∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V) → ∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V)
62	8, 61	syl 17	. 2 ⊢ (𝐴 ∈ 𝑉 → ∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V)
63		ax5e 1916	. 2 ⊢ (∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V)
64	62, 63	syl 17	1 ⊢ (𝐴 ∈ 𝑉 → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V)

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 395  ∀wal 1537   = wceq 1539  ∃wex 1783  [wsb 2068   ∈ wcel 2108  {cab 2715  Vcvv 3422  [wsbc 3711  ⦋csb 3828  {csn 4558

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2156  ax-12 2173  ax-ext 2709  ax-rep 5205  ax-sep 5218  ax-nul 5225  ax-pr 5347

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-tru 1542  df-fal 1552  df-ex 1784  df-nf 1788  df-sb 2069  df-mo 2540  df-clab 2716  df-cleq 2730  df-clel 2817  df-nfc 2888  df-v 3424  df-sbc 3712  df-csb 3829  df-dif 3886  df-un 3888  df-nul 4254  df-sn 4559  df-pr 4561

This theorem is referenced by:  bj-clex  35081  bj-snglex  35090