Theorem bj-snsetex 33263

Description: The class of sets "whose singletons" belong to a set is a set. Nice application of ax-rep 4971. (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 3416	. . . 4 ⊢ (𝐴 ∈ 𝑉 → ∃𝑦 𝑦 = 𝐴)
2		eleq2 2881	. . . . . . 7 ⊢ (𝑦 = 𝐴 → ({𝑥} ∈ 𝑦 ↔ {𝑥} ∈ 𝐴))
3	2	abbidv 2932	. . . . . 6 ⊢ (𝑦 = 𝐴 → {𝑥 ∣ {𝑥} ∈ 𝑦} = {𝑥 ∣ {𝑥} ∈ 𝐴})
4		eleq1 2880	. . . . . . 7 ⊢ ({𝑥 ∣ {𝑥} ∈ 𝑦} = {𝑥 ∣ {𝑥} ∈ 𝐴} → ({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V ↔ {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
5	4	biimpd 220	. . . . . 6 ⊢ ({𝑥 ∣ {𝑥} ∈ 𝑦} = {𝑥 ∣ {𝑥} ∈ 𝐴} → ({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
6	3, 5	syl 17	. . . . 5 ⊢ (𝑦 = 𝐴 → ({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
7	6	eximi 1919	. . . 4 ⊢ (∃𝑦 𝑦 = 𝐴 → ∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
8	1, 7	syl 17	. . 3 ⊢ (𝐴 ∈ 𝑉 → ∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
9		19.35 1967	. . . . . 6 ⊢ (∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V) ↔ (∀𝑦{𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → ∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
10	9	biimpi 207	. . . . 5 ⊢ (∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V) → (∀𝑦{𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → ∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
11	10	com12 32	. . . 4 ⊢ (∀𝑦{𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → (∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V) → ∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V))
12		ax-rep 4971	. . . . . . . 8 ⊢ (∀𝑢∃𝑧∀𝑡(∀𝑧 𝑢 = {𝑡} → 𝑡 = 𝑧) → ∃𝑧∀𝑡(𝑡 ∈ 𝑧 ↔ ∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡})))
13		19.3v 2078	. . . . . . . . . . 11 ⊢ (∀𝑧 𝑢 = {𝑡} ↔ 𝑢 = {𝑡})
14	13	sbbii 2068	. . . . . . . . . . 11 ⊢ ([𝑧 / 𝑡]∀𝑧 𝑢 = {𝑡} ↔ [𝑧 / 𝑡]𝑢 = {𝑡})
15		sbsbc 3644	. . . . . . . . . . . . . 14 ⊢ ([𝑧 / 𝑡]𝑢 = {𝑡} ↔ [𝑧 / 𝑡]𝑢 = {𝑡})
16		vex 3401	. . . . . . . . . . . . . . 15 ⊢ 𝑧 ∈ V
17		sbceq2g 4194	. . . . . . . . . . . . . . 15 ⊢ (𝑧 ∈ V → ([𝑧 / 𝑡]𝑢 = {𝑡} ↔ 𝑢 = ⦋𝑧 / 𝑡⦌{𝑡}))
18	16, 17	ax-mp 5	. . . . . . . . . . . . . 14 ⊢ ([𝑧 / 𝑡]𝑢 = {𝑡} ↔ 𝑢 = ⦋𝑧 / 𝑡⦌{𝑡})
19	15, 18	bitri 266	. . . . . . . . . . . . 13 ⊢ ([𝑧 / 𝑡]𝑢 = {𝑡} ↔ 𝑢 = ⦋𝑧 / 𝑡⦌{𝑡})
20		bj-csbsn 33209	. . . . . . . . . . . . . 14 ⊢ ⦋𝑧 / 𝑡⦌{𝑡} = {𝑧}
21	20	eqeq2i 2825	. . . . . . . . . . . . 13 ⊢ (𝑢 = ⦋𝑧 / 𝑡⦌{𝑡} ↔ 𝑢 = {𝑧})
22	19, 21	bitri 266	. . . . . . . . . . . 12 ⊢ ([𝑧 / 𝑡]𝑢 = {𝑡} ↔ 𝑢 = {𝑧})
23		eqtr2 2833	. . . . . . . . . . . . 13 ⊢ ((𝑢 = {𝑡} ∧ 𝑢 = {𝑧}) → {𝑡} = {𝑧})
24		vex 3401	. . . . . . . . . . . . . 14 ⊢ 𝑡 ∈ V
25	24	sneqr 4566	. . . . . . . . . . . . 13 ⊢ ({𝑡} = {𝑧} → 𝑡 = 𝑧)
26	23, 25	syl 17	. . . . . . . . . . . 12 ⊢ ((𝑢 = {𝑡} ∧ 𝑢 = {𝑧}) → 𝑡 = 𝑧)
27	22, 26	sylan2b 583	. . . . . . . . . . 11 ⊢ ((𝑢 = {𝑡} ∧ [𝑧 / 𝑡]𝑢 = {𝑡}) → 𝑡 = 𝑧)
28	13, 14, 27	syl2anb 587	. . . . . . . . . 10 ⊢ ((∀𝑧 𝑢 = {𝑡} ∧ [𝑧 / 𝑡]∀𝑧 𝑢 = {𝑡}) → 𝑡 = 𝑧)
29	28	gen2 1878	. . . . . . . . 9 ⊢ ∀𝑡∀𝑧((∀𝑧 𝑢 = {𝑡} ∧ [𝑧 / 𝑡]∀𝑧 𝑢 = {𝑡}) → 𝑡 = 𝑧)
30		nfa1 2196	. . . . . . . . . 10 ⊢ Ⅎ𝑧∀𝑧 𝑢 = {𝑡}
31	30	mo 2678	. . . . . . . . 9 ⊢ (∃𝑧∀𝑡(∀𝑧 𝑢 = {𝑡} → 𝑡 = 𝑧) ↔ ∀𝑡∀𝑧((∀𝑧 𝑢 = {𝑡} ∧ [𝑧 / 𝑡]∀𝑧 𝑢 = {𝑡}) → 𝑡 = 𝑧))
32	29, 31	mpbir 222	. . . . . . . 8 ⊢ ∃𝑧∀𝑡(∀𝑧 𝑢 = {𝑡} → 𝑡 = 𝑧)
33	12, 32	mpg 1879	. . . . . . 7 ⊢ ∃𝑧∀𝑡(𝑡 ∈ 𝑧 ↔ ∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡}))
34		bj-sbel1 33210	. . . . . . . . . . . 12 ⊢ ([𝑡 / 𝑥]{𝑥} ∈ 𝑦 ↔ ⦋𝑡 / 𝑥⦌{𝑥} ∈ 𝑦)
35		bj-csbsn 33209	. . . . . . . . . . . . 13 ⊢ ⦋𝑡 / 𝑥⦌{𝑥} = {𝑡}
36	35	eleq1i 2883	. . . . . . . . . . . 12 ⊢ (⦋𝑡 / 𝑥⦌{𝑥} ∈ 𝑦 ↔ {𝑡} ∈ 𝑦)
37	34, 36	bitri 266	. . . . . . . . . . 11 ⊢ ([𝑡 / 𝑥]{𝑥} ∈ 𝑦 ↔ {𝑡} ∈ 𝑦)
38		df-clab 2800	. . . . . . . . . . 11 ⊢ (𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦} ↔ [𝑡 / 𝑥]{𝑥} ∈ 𝑦)
39	13	anbi2i 611	. . . . . . . . . . . . . 14 ⊢ ((𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡}) ↔ (𝑢 ∈ 𝑦 ∧ 𝑢 = {𝑡}))
40		eleq1a 2887	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑢 ∈ 𝑦 → ({𝑡} = 𝑢 → {𝑡} ∈ 𝑦))
41	40	com12 32	. . . . . . . . . . . . . . . . 17 ⊢ ({𝑡} = 𝑢 → (𝑢 ∈ 𝑦 → {𝑡} ∈ 𝑦))
42	41	eqcoms 2821	. . . . . . . . . . . . . . . 16 ⊢ (𝑢 = {𝑡} → (𝑢 ∈ 𝑦 → {𝑡} ∈ 𝑦))
43	42	imdistanri 561	. . . . . . . . . . . . . . 15 ⊢ ((𝑢 ∈ 𝑦 ∧ 𝑢 = {𝑡}) → ({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}))
44		eleq1a 2887	. . . . . . . . . . . . . . . 16 ⊢ ({𝑡} ∈ 𝑦 → (𝑢 = {𝑡} → 𝑢 ∈ 𝑦))
45	44	impac 544	. . . . . . . . . . . . . . 15 ⊢ (({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}) → (𝑢 ∈ 𝑦 ∧ 𝑢 = {𝑡}))
46	43, 45	impbii 200	. . . . . . . . . . . . . 14 ⊢ ((𝑢 ∈ 𝑦 ∧ 𝑢 = {𝑡}) ↔ ({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}))
47	39, 46	bitri 266	. . . . . . . . . . . . 13 ⊢ ((𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡}) ↔ ({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}))
48	47	exbii 1933	. . . . . . . . . . . 12 ⊢ (∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡}) ↔ ∃𝑢({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}))
49		snex 5105	. . . . . . . . . . . . . 14 ⊢ {𝑡} ∈ V
50	49	isseti 3410	. . . . . . . . . . . . 13 ⊢ ∃𝑢 𝑢 = {𝑡}
51		19.42v 2044	. . . . . . . . . . . . 13 ⊢ (∃𝑢({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}) ↔ ({𝑡} ∈ 𝑦 ∧ ∃𝑢 𝑢 = {𝑡}))
52	50, 51	mpbiran2 692	. . . . . . . . . . . 12 ⊢ (∃𝑢({𝑡} ∈ 𝑦 ∧ 𝑢 = {𝑡}) ↔ {𝑡} ∈ 𝑦)
53	48, 52	bitri 266	. . . . . . . . . . 11 ⊢ (∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡}) ↔ {𝑡} ∈ 𝑦)
54	37, 38, 53	3bitr4ri 295	. . . . . . . . . 10 ⊢ (∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡}) ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦})
55	54	bibi2i 328	. . . . . . . . 9 ⊢ ((𝑡 ∈ 𝑧 ↔ ∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡})) ↔ (𝑡 ∈ 𝑧 ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦}))
56	55	albii 1904	. . . . . . . 8 ⊢ (∀𝑡(𝑡 ∈ 𝑧 ↔ ∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡})) ↔ ∀𝑡(𝑡 ∈ 𝑧 ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦}))
57	56	exbii 1933	. . . . . . 7 ⊢ (∃𝑧∀𝑡(𝑡 ∈ 𝑧 ↔ ∃𝑢(𝑢 ∈ 𝑦 ∧ ∀𝑧 𝑢 = {𝑡})) ↔ ∃𝑧∀𝑡(𝑡 ∈ 𝑧 ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦}))
58	33, 57	mpbi 221	. . . . . 6 ⊢ ∃𝑧∀𝑡(𝑡 ∈ 𝑧 ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦})
59		dfcleq 2807	. . . . . . 7 ⊢ (𝑧 = {𝑥 ∣ {𝑥} ∈ 𝑦} ↔ ∀𝑡(𝑡 ∈ 𝑧 ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦}))
60	59	exbii 1933	. . . . . 6 ⊢ (∃𝑧 𝑧 = {𝑥 ∣ {𝑥} ∈ 𝑦} ↔ ∃𝑧∀𝑡(𝑡 ∈ 𝑧 ↔ 𝑡 ∈ {𝑥 ∣ {𝑥} ∈ 𝑦}))
61	58, 60	mpbir 222	. . . . 5 ⊢ ∃𝑧 𝑧 = {𝑥 ∣ {𝑥} ∈ 𝑦}
62	61	issetri 3411	. . . 4 ⊢ {𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V
63	11, 62	mpg 1879	. . 3 ⊢ (∃𝑦({𝑥 ∣ {𝑥} ∈ 𝑦} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V) → ∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V)
64	8, 63	syl 17	. 2 ⊢ (𝐴 ∈ 𝑉 → ∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V)
65		ax5e 2003	. 2 ⊢ (∃𝑦{𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V)
66	64, 65	syl 17	1 ⊢ (𝐴 ∈ 𝑉 → {𝑥 ∣ {𝑥} ∈ 𝐴} ∈ V)

Syntax hints:   → wi 4   ↔ wb 197   ∧ wa 384  ∀wal 1635   = wceq 1637  ∃wex 1859  [wsb 2061   ∈ wcel 2157  {cab 2799  Vcvv 3398  [wsbc 3640  ⦋csb 3735  {csn 4377

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1877  ax-4 1894  ax-5 2001  ax-6 2069  ax-7 2105  ax-9 2166  ax-10 2186  ax-11 2202  ax-12 2215  ax-13 2422  ax-ext 2791  ax-rep 4971  ax-sep 4982  ax-nul 4990  ax-pr 5103

This theorem depends on definitions:  df-bi 198  df-an 385  df-or 866  df-tru 1641  df-fal 1651  df-ex 1860  df-nf 1864  df-sb 2062  df-mo 2635  df-eu 2638  df-clab 2800  df-cleq 2806  df-clel 2809  df-nfc 2944  df-v 3400  df-sbc 3641  df-csb 3736  df-dif 3779  df-un 3781  df-nul 4124  df-sn 4378  df-pr 4380

This theorem is referenced by:  bj-clex  33264  bj-snglex  33273