Theorem bj-snsetex 35434

Description: The class of sets "whose singletons" belong to a set is a set. Nice application of ax-rep 5242. (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 2819	. . . 4 ⊢ (𝐴 ∈ 𝑉 → ∃𝑦 𝑦 = 𝐴)
2		eleq2 2826	. . . . . . 7 ⊢ (𝑦 = 𝐴 → ({𝑥} ∈ 𝑦 ↔ {𝑥} ∈ 𝐴))
3	2	abbidv 2805	. . . . . 6 ⊢ (𝑦 = 𝐴 → {𝑥 ∣ {𝑥} ∈ 𝑦} = {𝑥 ∣ {𝑥} ∈ 𝐴})
4		eleq1 2825	. . . . . . 7 ⊢ ({𝑥 ∣ {𝑥} ∈ 𝑦} = {𝑥 ∣ {𝑥} ∈ 𝐴} → ({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V ↔ {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
5	4	biimpd 228	. . . . . 6 ⊢ ({𝑥 ∣ {𝑥} ∈ 𝑦} = {𝑥 ∣ {𝑥} ∈ 𝐴} → ({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
6	3, 5	syl 17	. . . . 5 ⊢ (𝑦 = 𝐴 → ({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
7	6	eximi 1837	. . . 4 ⊢ (∃𝑦 𝑦 = 𝐴 → ∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
8	1, 7	syl 17	. . 3 ⊢ (𝐴 ∈ 𝑉 → ∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
9		bj-eximcom 35107	. . . . 5 ⊢ (∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V) → (∀𝑦{𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → ∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
10	9	com12 32	. . . 4 ⊢ (∀𝑦{𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → (∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V) → ∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
11		ax-rep 5242	. . . . . . . 8 ⊢ (∀𝑢∃𝑧∀𝑡(∀𝑧 𝑢 = {𝑡} → 𝑡 = 𝑧) → ∃𝑧∀𝑡(𝑡 ∈ 𝑧 ↔ ∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡})))
12		19.3v 1985	. . . . . . . . . . 11 ⊢ (∀𝑧 𝑢 = {𝑡} ↔ 𝑢 = {𝑡})
13	12	sbbii 2079	. . . . . . . . . . 11 ⊢ ([𝑧 / 𝑡]∀𝑧 𝑢 = {𝑡} ↔ [𝑧 / 𝑡]𝑢 = {𝑡})
14		sbsbc 3743	. . . . . . . . . . . . . 14 ⊢ ([𝑧 / 𝑡]𝑢 = {𝑡} ↔ [𝑧 / 𝑡]𝑢 = {𝑡})
15		sbceq2g 4376	. . . . . . . . . . . . . . 15 ⊢ (𝑧 ∈ V → ([𝑧 / 𝑡]𝑢 = {𝑡} ↔ 𝑢 = ⦋𝑧 / 𝑡⦌{𝑡}))
16	15	elv 3451	. . . . . . . . . . . . . 14 ⊢ ([𝑧 / 𝑡]𝑢 = {𝑡} ↔ 𝑢 = ⦋𝑧 / 𝑡⦌{𝑡})
17	14, 16	bitri 274	. . . . . . . . . . . . 13 ⊢ ([𝑧 / 𝑡]𝑢 = {𝑡} ↔ 𝑢 = ⦋𝑧 / 𝑡⦌{𝑡})
18		bj-csbsn 35371	. . . . . . . . . . . . . 14 ⊢ ⦋𝑧 / 𝑡⦌{𝑡} = {𝑧}
19	18	eqeq2i 2749	. . . . . . . . . . . . 13 ⊢ (𝑢 = ⦋𝑧 / 𝑡⦌{𝑡} ↔ 𝑢 = {𝑧})
20	17, 19	bitri 274	. . . . . . . . . . . 12 ⊢ ([𝑧 / 𝑡]𝑢 = {𝑡} ↔ 𝑢 = {𝑧})
21		eqtr2 2760	. . . . . . . . . . . . 13 ⊢ ((𝑢 = {𝑡} ∧ 𝑢 = {𝑧}) → {𝑡} = {𝑧})
22		vex 3449	. . . . . . . . . . . . . 14 ⊢ 𝑡 ∈ V
23	22	sneqr 4798	. . . . . . . . . . . . 13 ⊢ ({𝑡} = {𝑧} → 𝑡 = 𝑧)
24	21, 23	syl 17	. . . . . . . . . . . 12 ⊢ ((𝑢 = {𝑡} ∧ 𝑢 = {𝑧}) → 𝑡 = 𝑧)
25	20, 24	sylan2b 594	. . . . . . . . . . 11 ⊢ ((𝑢 = {𝑡} ∧ [𝑧 / 𝑡]𝑢 = {𝑡}) → 𝑡 = 𝑧)
26	12, 13, 25	syl2anb 598	. . . . . . . . . 10 ⊢ ((∀𝑧 𝑢 = {𝑡} ∧ [𝑧 / 𝑡]∀𝑧 𝑢 = {𝑡}) → 𝑡 = 𝑧)
27	26	gen2 1798	. . . . . . . . 9 ⊢ ∀𝑡∀𝑧((∀𝑧 𝑢 = {𝑡} ∧ [𝑧 / 𝑡]∀𝑧 𝑢 = {𝑡}) → 𝑡 = 𝑧)
28		nfa1 2148	. . . . . . . . . 10 ⊢ Ⅎ𝑧∀𝑧 𝑢 = {𝑡}
29	28	mo 2563	. . . . . . . . 9 ⊢ (∃𝑧∀𝑡(∀𝑧 𝑢 = {𝑡} → 𝑡 = 𝑧) ↔ ∀𝑡∀𝑧((∀𝑧 𝑢 = {𝑡} ∧ [𝑧 / 𝑡]∀𝑧 𝑢 = {𝑡}) → 𝑡 = 𝑧))
30	27, 29	mpbir 230	. . . . . . . 8 ⊢ ∃𝑧∀𝑡(∀𝑧 𝑢 = {𝑡} → 𝑡 = 𝑧)
31	11, 30	mpg 1799	. . . . . . 7 ⊢ ∃𝑧∀𝑡(𝑡 ∈ 𝑧 ↔ ∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡}))
32		bj-sbel1 35372	. . . . . . . . . . . 12 ⊢ ([𝑡 / 𝑥]{𝑥} ∈ 𝑦 ↔ ⦋𝑡 / 𝑥⦌{𝑥} ∈ 𝑦)
33		bj-csbsn 35371	. . . . . . . . . . . . 13 ⊢ ⦋𝑡 / 𝑥⦌{𝑥} = {𝑡}
34	33	eleq1i 2828	. . . . . . . . . . . 12 ⊢ (⦋𝑡 / 𝑥⦌{𝑥} ∈ 𝑦 ↔ {𝑡} ∈ 𝑦)
35	32, 34	bitri 274	. . . . . . . . . . 11 ⊢ ([𝑡 / 𝑥]{𝑥} ∈ 𝑦 ↔ {𝑡} ∈ 𝑦)
36		df-clab 2714	. . . . . . . . . . 11 ⊢ (𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦} ↔ [𝑡 / 𝑥]{𝑥} ∈ 𝑦)
37	12	anbi2i 623	. . . . . . . . . . . . . 14 ⊢ ((𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡}) ↔ (𝑢 ∈ 𝑦 ∧ 𝑢 = {𝑡}))
38		eleq1a 2833	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑢 ∈ 𝑦 → ({𝑡} = 𝑢 → {𝑡} ∈ 𝑦))
39	38	com12 32	. . . . . . . . . . . . . . . . 17 ⊢ ({𝑡} = 𝑢 → (𝑢 ∈ 𝑦 → {𝑡} ∈ 𝑦))
40	39	eqcoms 2744	. . . . . . . . . . . . . . . 16 ⊢ (𝑢 = {𝑡} → (𝑢 ∈ 𝑦 → {𝑡} ∈ 𝑦))
41	40	imdistanri 570	. . . . . . . . . . . . . . 15 ⊢ ((𝑢 ∈ 𝑦 ∧ 𝑢 = {𝑡}) → ({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}))
42		eleq1a 2833	. . . . . . . . . . . . . . . 16 ⊢ ({𝑡} ∈ 𝑦 → (𝑢 = {𝑡} → 𝑢 ∈ 𝑦))
43	42	impac 553	. . . . . . . . . . . . . . 15 ⊢ (({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}) → (𝑢 ∈ 𝑦 ∧ 𝑢 = {𝑡}))
44	41, 43	impbii 208	. . . . . . . . . . . . . 14 ⊢ ((𝑢 ∈ 𝑦 ∧ 𝑢 = {𝑡}) ↔ ({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}))
45	37, 44	bitri 274	. . . . . . . . . . . . 13 ⊢ ((𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡}) ↔ ({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}))
46	45	exbii 1850	. . . . . . . . . . . 12 ⊢ (∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡}) ↔ ∃𝑢({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}))
47		vsnex 5386	. . . . . . . . . . . . . 14 ⊢ {𝑡} ∈ V
48	47	isseti 3460	. . . . . . . . . . . . 13 ⊢ ∃𝑢 𝑢 = {𝑡}
49		19.42v 1957	. . . . . . . . . . . . 13 ⊢ (∃𝑢({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}) ↔ ({𝑡} ∈ 𝑦 ∧ ∃𝑢 𝑢 = {𝑡}))
50	48, 49	mpbiran2 708	. . . . . . . . . . . 12 ⊢ (∃𝑢({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}) ↔ {𝑡} ∈ 𝑦)
51	46, 50	bitri 274	. . . . . . . . . . 11 ⊢ (∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡}) ↔ {𝑡} ∈ 𝑦)
52	35, 36, 51	3bitr4ri 303	. . . . . . . . . 10 ⊢ (∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡}) ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦})
53	52	bibi2i 337	. . . . . . . . 9 ⊢ ((𝑡 ∈ 𝑧 ↔ ∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡})) ↔ (𝑡 ∈ 𝑧 ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦}))
54	53	albii 1821	. . . . . . . 8 ⊢ (∀𝑡(𝑡 ∈ 𝑧 ↔ ∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡})) ↔ ∀𝑡(𝑡 ∈ 𝑧 ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦}))
55	54	exbii 1850	. . . . . . 7 ⊢ (∃𝑧∀𝑡(𝑡 ∈ 𝑧 ↔ ∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡})) ↔ ∃𝑧∀𝑡(𝑡 ∈ 𝑧 ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦}))
56	31, 55	mpbi 229	. . . . . 6 ⊢ ∃𝑧∀𝑡(𝑡 ∈ 𝑧 ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦})
57		dfcleq 2729	. . . . . . 7 ⊢ (𝑧 = {𝑥 ∣ {𝑥} ∈ 𝑦} ↔ ∀𝑡(𝑡 ∈ 𝑧 ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦}))
58	57	exbii 1850	. . . . . 6 ⊢ (∃𝑧 𝑧 = {𝑥 ∣ {𝑥} ∈ 𝑦} ↔ ∃𝑧∀𝑡(𝑡 ∈ 𝑧 ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦}))
59	56, 58	mpbir 230	. . . . 5 ⊢ ∃𝑧 𝑧 = {𝑥 ∣ {𝑥} ∈ 𝑦}
60	59	issetri 3461	. . . 4 ⊢ {𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V
61	10, 60	mpg 1799	. . 3 ⊢ (∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V) → ∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V)
62	8, 61	syl 17	. 2 ⊢ (𝐴 ∈ 𝑉 → ∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V)
63		ax5e 1915	. 2 ⊢ (∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V)
64	62, 63	syl 17	1 ⊢ (𝐴 ∈ 𝑉 → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V)

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396  ∀wal 1539   = wceq 1541  ∃wex 1781  [wsb 2067   ∈ wcel 2106  {cab 2713  Vcvv 3445  [wsbc 3739  ⦋csb 3855  {csn 4586

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-rep 5242  ax-sep 5256  ax-pr 5384

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-nul 4283  df-sn 4587  df-pr 4589

This theorem is referenced by:  bj-clexab  35435  bj-snglex  35444