Theorem eqsn 4783

Description: Two ways to express that a nonempty set equals a singleton. (Contributed by NM, 15-Dec-2007.) (Proof shortened by JJ, 23-Jul-2021.)

Assertion

Ref	Expression
eqsn	⊢ (𝐴 ≠ ∅ → (𝐴 = {𝐵} ↔ ∀𝑥 ∈ 𝐴 𝑥 = 𝐵))

Distinct variable groups:   𝑥,𝐴   𝑥,𝐵

Proof of Theorem eqsn

Step	Hyp	Ref	Expression
1		df-ne 2931	. . 3 ⊢ (𝐴 ≠ ∅ ↔ ¬ 𝐴 = ∅)
2		biorf 936	. . 3 ⊢ (¬ 𝐴 = ∅ → (𝐴 = {𝐵} ↔ (𝐴 = ∅ ∨ 𝐴 = {𝐵})))
3	1, 2	sylbi 217	. 2 ⊢ (𝐴 ≠ ∅ → (𝐴 = {𝐵} ↔ (𝐴 = ∅ ∨ 𝐴 = {𝐵})))
4		dfss3 3920	. . 3 ⊢ (𝐴 ⊆ {𝐵} ↔ ∀𝑥 ∈ 𝐴 𝑥 ∈ {𝐵})
5		sssn 4780	. . 3 ⊢ (𝐴 ⊆ {𝐵} ↔ (𝐴 = ∅ ∨ 𝐴 = {𝐵}))
6		velsn 4594	. . . 4 ⊢ (𝑥 ∈ {𝐵} ↔ 𝑥 = 𝐵)
7	6	ralbii 3080	. . 3 ⊢ (∀𝑥 ∈ 𝐴 𝑥 ∈ {𝐵} ↔ ∀𝑥 ∈ 𝐴 𝑥 = 𝐵)
8	4, 5, 7	3bitr3i 301	. 2 ⊢ ((𝐴 = ∅ ∨ 𝐴 = {𝐵}) ↔ ∀𝑥 ∈ 𝐴 𝑥 = 𝐵)
9	3, 8	bitrdi 287	1 ⊢ (𝐴 ≠ ∅ → (𝐴 = {𝐵} ↔ ∀𝑥 ∈ 𝐴 𝑥 = 𝐵))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∨ wo 847   = wceq 1541   ∈ wcel 2113   ≠ wne 2930  ∀wral 3049   ⊆ wss 3899  ∅c0 4283  {csn 4578

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-ext 2706

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-tru 1544  df-fal 1554  df-ex 1781  df-sb 2068  df-clab 2713  df-cleq 2726  df-clel 2809  df-ne 2931  df-ral 3050  df-v 3440  df-dif 3902  df-ss 3916  df-nul 4284  df-sn 4579

This theorem is referenced by:  eqsnd  4784  issn  4786  zornn0g  10413  hashgt12el  14343  hashgt12el2  14344  hashge2el2dif  14401  simpgnideld  20028  01eq0ring  20461  lssne0  20900  qtopeu  23658  n0nsnel  32539  dimval  33706  dimvalfi  33707  rngoueqz  38080  n0nsn2el  47213  lmod0rng  48417