Theorem rabsnifsb 4693

Description: A restricted class abstraction restricted to a singleton is either the empty set or the singleton itself. (Contributed by AV, 21-Jul-2019.)

Assertion

Ref	Expression
rabsnifsb	⊢ {𝑥 ∈ {𝐴} ∣ 𝜑} = if([𝐴 / 𝑥]𝜑, {𝐴}, ∅)

Distinct variable group:   𝑥,𝐴

Allowed substitution hint:   𝜑(𝑥)

Proof of Theorem rabsnifsb

Dummy variable 𝑦 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		elsni 4611	. . . . . . . 8 ⊢ (𝑥 ∈ {𝐴} → 𝑥 = 𝐴)
2		sbceq1a 3758	. . . . . . . . 9 ⊢ (𝑥 = 𝐴 → (𝜑 ↔ [𝐴 / 𝑥]𝜑))
3	2	biimpd 232	. . . . . . . 8 ⊢ (𝑥 = 𝐴 → (𝜑 → [𝐴 / 𝑥]𝜑))
4	1, 3	syl 18	. . . . . . 7 ⊢ (𝑥 ∈ {𝐴} → (𝜑 → [𝐴 / 𝑥]𝜑))
5	4	imdistani 579	. . . . . 6 ⊢ ((𝑥 ∈ {𝐴} ∧ 𝜑) → (𝑥 ∈ {𝐴} ∧ [𝐴 / 𝑥]𝜑))
6	5	orcd 887	. . . . 5 ⊢ ((𝑥 ∈ {𝐴} ∧ 𝜑) → ((𝑥 ∈ {𝐴} ∧ [𝐴 / 𝑥]𝜑) ∨ (𝑥 ∈ ∅ ∧ ¬ [𝐴 / 𝑥]𝜑)))
7	2	biimprd 251	. . . . . . . 8 ⊢ (𝑥 = 𝐴 → ([𝐴 / 𝑥]𝜑 → 𝜑))
8	1, 7	syl 18	. . . . . . 7 ⊢ (𝑥 ∈ {𝐴} → ([𝐴 / 𝑥]𝜑 → 𝜑))
9	8	imdistani 579	. . . . . 6 ⊢ ((𝑥 ∈ {𝐴} ∧ [𝐴 / 𝑥]𝜑) → (𝑥 ∈ {𝐴} ∧ 𝜑))
10		noel 4294	. . . . . . . 8 ⊢ ¬ 𝑥 ∈ ∅
11	10	pm2.21i 120	. . . . . . 7 ⊢ (𝑥 ∈ ∅ → (𝑥 ∈ {𝐴} ∧ 𝜑))
12	11	adantr 486	. . . . . 6 ⊢ ((𝑥 ∈ ∅ ∧ ¬ [𝐴 / 𝑥]𝜑) → (𝑥 ∈ {𝐴} ∧ 𝜑))
13	9, 12	jaoi 871	. . . . 5 ⊢ (((𝑥 ∈ {𝐴} ∧ [𝐴 / 𝑥]𝜑) ∨ (𝑥 ∈ ∅ ∧ ¬ [𝐴 / 𝑥]𝜑)) → (𝑥 ∈ {𝐴} ∧ 𝜑))
14	6, 13	impbii 212	. . . 4 ⊢ ((𝑥 ∈ {𝐴} ∧ 𝜑) ↔ ((𝑥 ∈ {𝐴} ∧ [𝐴 / 𝑥]𝜑) ∨ (𝑥 ∈ ∅ ∧ ¬ [𝐴 / 𝑥]𝜑)))
15	14	abbii 2833	. . 3 ⊢ {𝑥 ∣ (𝑥 ∈ {𝐴} ∧ 𝜑)} = {𝑥 ∣ ((𝑥 ∈ {𝐴} ∧ [𝐴 / 𝑥]𝜑) ∨ (𝑥 ∈ ∅ ∧ ¬ [𝐴 / 𝑥]𝜑))}
16		nfv 1947	. . . 4 ⊢ Ⅎ𝑦((𝑥 ∈ {𝐴} ∧ [𝐴 / 𝑥]𝜑) ∨ (𝑥 ∈ ∅ ∧ ¬ [𝐴 / 𝑥]𝜑))
17		nfv 1947	. . . . . 6 ⊢ Ⅎ𝑥 𝑦 ∈ {𝐴}
18		nfsbc1v 3767	. . . . . 6 ⊢ Ⅎ𝑥[𝐴 / 𝑥]𝜑
19	17, 18	nfan 1932	. . . . 5 ⊢ Ⅎ𝑥(𝑦 ∈ {𝐴} ∧ [𝐴 / 𝑥]𝜑)
20		nfv 1947	. . . . . 6 ⊢ Ⅎ𝑥 𝑦 ∈ ∅
21	18	nfn 1890	. . . . . 6 ⊢ Ⅎ𝑥 ¬ [𝐴 / 𝑥]𝜑
22	20, 21	nfan 1932	. . . . 5 ⊢ Ⅎ𝑥(𝑦 ∈ ∅ ∧ ¬ [𝐴 / 𝑥]𝜑)
23	19, 22	nfor 1937	. . . 4 ⊢ Ⅎ𝑥((𝑦 ∈ {𝐴} ∧ [𝐴 / 𝑥]𝜑) ∨ (𝑦 ∈ ∅ ∧ ¬ [𝐴 / 𝑥]𝜑))
24		eleq1w 2849	. . . . . 6 ⊢ (𝑥 = 𝑦 → (𝑥 ∈ {𝐴} ↔ 𝑦 ∈ {𝐴}))
25	24	anbi1d 643	. . . . 5 ⊢ (𝑥 = 𝑦 → ((𝑥 ∈ {𝐴} ∧ [𝐴 / 𝑥]𝜑) ↔ (𝑦 ∈ {𝐴} ∧ [𝐴 / 𝑥]𝜑)))
26		eleq1w 2849	. . . . . 6 ⊢ (𝑥 = 𝑦 → (𝑥 ∈ ∅ ↔ 𝑦 ∈ ∅))
27	26	anbi1d 643	. . . . 5 ⊢ (𝑥 = 𝑦 → ((𝑥 ∈ ∅ ∧ ¬ [𝐴 / 𝑥]𝜑) ↔ (𝑦 ∈ ∅ ∧ ¬ [𝐴 / 𝑥]𝜑)))
28	25, 27	orbi12d 932	. . . 4 ⊢ (𝑥 = 𝑦 → (((𝑥 ∈ {𝐴} ∧ [𝐴 / 𝑥]𝜑) ∨ (𝑥 ∈ ∅ ∧ ¬ [𝐴 / 𝑥]𝜑)) ↔ ((𝑦 ∈ {𝐴} ∧ [𝐴 / 𝑥]𝜑) ∨ (𝑦 ∈ ∅ ∧ ¬ [𝐴 / 𝑥]𝜑))))
29	16, 23, 28	cbvabw 2837	. . 3 ⊢ {𝑥 ∣ ((𝑥 ∈ {𝐴} ∧ [𝐴 / 𝑥]𝜑) ∨ (𝑥 ∈ ∅ ∧ ¬ [𝐴 / 𝑥]𝜑))} = {𝑦 ∣ ((𝑦 ∈ {𝐴} ∧ [𝐴 / 𝑥]𝜑) ∨ (𝑦 ∈ ∅ ∧ ¬ [𝐴 / 𝑥]𝜑))}
30	15, 29	eqtri 2789	. 2 ⊢ {𝑥 ∣ (𝑥 ∈ {𝐴} ∧ 𝜑)} = {𝑦 ∣ ((𝑦 ∈ {𝐴} ∧ [𝐴 / 𝑥]𝜑) ∨ (𝑦 ∈ ∅ ∧ ¬ [𝐴 / 𝑥]𝜑))}
31		df-rab 3420	. 2 ⊢ {𝑥 ∈ {𝐴} ∣ 𝜑} = {𝑥 ∣ (𝑥 ∈ {𝐴} ∧ 𝜑)}
32		df-if 4493	. 2 ⊢ if([𝐴 / 𝑥]𝜑, {𝐴}, ∅) = {𝑦 ∣ ((𝑦 ∈ {𝐴} ∧ [𝐴 / 𝑥]𝜑) ∨ (𝑦 ∈ ∅ ∧ ¬ [𝐴 / 𝑥]𝜑))}
33	30, 31, 32	3eqtr4i 2799	1 ⊢ {𝑥 ∈ {𝐴} ∣ 𝜑} = if([𝐴 / 𝑥]𝜑, {𝐴}, ∅)

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ∧ wa 401   ∨ wo 861   = wceq 1570   ∈ wcel 2146  {cab 2744  {crab 3419  [wsbc 3747  ∅c0 4289  ifcif 4492  {csn 4594

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-rab 3420  df-sbc 3748  df-dif 3911  df-nul 4290  df-if 4493  df-sn 4595

This theorem is used by:  rabsnif  4694  rabrsn  4695