Metamath Proof Explorer


Theorem elpssmo

Description: Uniqueness of elements is equivalent to uniqueness of proper subsets. (Contributed by Adrian Ducourtial, 26-Oct-2026)

Ref Expression
Assertion elpssmo ⊢ ∃* x x ∈ A ↔ ∃* y y ⊂ A

Proof

Step Hyp Ref Expression
1 0ex ⊢ ∅ ∈ V
2 1 a1i ⊢ ∃* x x ∈ A → ∅ ∈ V
3 pssss ⊢ y ⊂ A → y ⊆ A
4 3 sseld ⊢ y ⊂ A → v ∈ y → v ∈ A
5 4 alrimiv ⊢ y ⊂ A → ∀ v v ∈ y → v ∈ A
6 eleq1w ⊢ x = v → x ∈ A ↔ v ∈ A
7 6 cbvmovw ⊢ ∃* x x ∈ A ↔ ∃* v v ∈ A
8 dfmo ⊢ ∃* v v ∈ A ↔ ∃ z ∀ v v ∈ A → v = z
9 eleq1w ⊢ v = w → v ∈ A ↔ w ∈ A
10 equequ1 ⊢ v = w → v = z ↔ w = z
11 9 10 imbi12d ⊢ v = w → v ∈ A → v = z ↔ w ∈ A → w = z
12 11 spvv ⊢ ∀ v v ∈ A → v = z → w ∈ A → w = z
13 12 com12 ⊢ w ∈ A → ∀ v v ∈ A → v = z → w = z
14 equcomiv ⊢ w = z → z = w
15 13 14 syl6 ⊢ w ∈ A → ∀ v v ∈ A → v = z → z = w
16 equequ2 ⊢ z = w → v = z ↔ v = w
17 16 imbi2d ⊢ z = w → v ∈ A → v = z ↔ v ∈ A → v = w
18 17 albidv ⊢ z = w → ∀ v v ∈ A → v = z ↔ ∀ v v ∈ A → v = w
19 15 18 syl6 ⊢ w ∈ A → ∀ v v ∈ A → v = z → ∀ v v ∈ A → v = z ↔ ∀ v v ∈ A → v = w
20 19 ibd ⊢ w ∈ A → ∀ v v ∈ A → v = z → ∀ v v ∈ A → v = w
21 20 com12 ⊢ ∀ v v ∈ A → v = z → w ∈ A → ∀ v v ∈ A → v = w
22 21 exlimiv ⊢ ∃ z ∀ v v ∈ A → v = z → w ∈ A → ∀ v v ∈ A → v = w
23 8 22 sylbi ⊢ ∃* v v ∈ A → w ∈ A → ∀ v v ∈ A → v = w
24 7 23 sylbi ⊢ ∃* x x ∈ A → w ∈ A → ∀ v v ∈ A → v = w
25 elequ1 ⊢ v = w → v ∈ y ↔ w ∈ y
26 25 notbid ⊢ v = w → ¬ v ∈ y ↔ ¬ w ∈ y
27 26 biimprcd ⊢ ¬ w ∈ y → v = w → ¬ v ∈ y
28 27 imim2d ⊢ ¬ w ∈ y → v ∈ A → v = w → v ∈ A → ¬ v ∈ y
29 28 alimdv ⊢ ¬ w ∈ y → ∀ v v ∈ A → v = w → ∀ v v ∈ A → ¬ v ∈ y
30 24 29 syl9 ⊢ ∃* x x ∈ A → ¬ w ∈ y → w ∈ A → ∀ v v ∈ A → ¬ v ∈ y
31 30 impcomd ⊢ ∃* x x ∈ A → w ∈ A ∧ ¬ w ∈ y → ∀ v v ∈ A → ¬ v ∈ y
32 31 exlimdv ⊢ ∃* x x ∈ A → ∃ w w ∈ A ∧ ¬ w ∈ y → ∀ v v ∈ A → ¬ v ∈ y
33 pssnel ⊢ y ⊂ A → ∃ w w ∈ A ∧ ¬ w ∈ y
34 32 33 impel ⊢ ∃* x x ∈ A ∧ y ⊂ A → ∀ v v ∈ A → ¬ v ∈ y
35 alsyl ⊢ ∀ v v ∈ y → v ∈ A ∧ ∀ v v ∈ A → ¬ v ∈ y → ∀ v v ∈ y → ¬ v ∈ y
36 5 34 35 syl2an2 ⊢ ∃* x x ∈ A ∧ y ⊂ A → ∀ v v ∈ y → ¬ v ∈ y
37 pm2.01 ⊢ v ∈ y → ¬ v ∈ y → ¬ v ∈ y
38 36 37 sylg ⊢ ∃* x x ∈ A ∧ y ⊂ A → ∀ v ¬ v ∈ y
39 eq0 ⊢ y = ∅ ↔ ∀ v ¬ v ∈ y
40 38 39 sylibr ⊢ ∃* x x ∈ A ∧ y ⊂ A → y = ∅
41 40 ex ⊢ ∃* x x ∈ A → y ⊂ A → y = ∅
42 41 alrimiv ⊢ ∃* x x ∈ A → ∀ y y ⊂ A → y = ∅
43 eqeq2 ⊢ u = ∅ → y = u ↔ y = ∅
44 43 imbi2d ⊢ u = ∅ → y ⊂ A → y = u ↔ y ⊂ A → y = ∅
45 44 albidv ⊢ u = ∅ → ∀ y y ⊂ A → y = u ↔ ∀ y y ⊂ A → y = ∅
46 2 42 45 spcedv ⊢ ∃* x x ∈ A → ∃ u ∀ y y ⊂ A → y = u
47 dfmo ⊢ ∃* y y ⊂ A ↔ ∃ u ∀ y y ⊂ A → y = u
48 46 47 sylibr ⊢ ∃* x x ∈ A → ∃* y y ⊂ A
49 vsnid ⊢ x ∈ x
50 49 n0ii ⊢ ¬ x = ∅
51 simp1 ⊢ x ∈ A ∧ v ∈ A ∧ ¬ v = x → x ∈ A
52 velsn ⊢ v ∈ x ↔ v = x
53 52 notbii ⊢ ¬ v ∈ x ↔ ¬ v = x
54 ssnelpss ⊢ x ⊆ A → v ∈ A ∧ ¬ v ∈ x → x ⊂ A
55 snssi ⊢ x ∈ A → x ⊆ A
56 54 55 syl11 ⊢ v ∈ A ∧ ¬ v ∈ x → x ∈ A → x ⊂ A
57 53 56 sylan2br ⊢ v ∈ A ∧ ¬ v = x → x ∈ A → x ⊂ A
58 57 ex ⊢ v ∈ A → ¬ v = x → x ∈ A → x ⊂ A
59 58 com23 ⊢ v ∈ A → x ∈ A → ¬ v = x → x ⊂ A
60 59 3imp21 ⊢ x ∈ A ∧ v ∈ A ∧ ¬ v = x → x ⊂ A
61 noel ⊢ ¬ x ∈ ∅
62 0ss ⊢ ∅ ⊆ A
63 ssnelpss ⊢ ∅ ⊆ A → x ∈ A ∧ ¬ x ∈ ∅ → ∅ ⊂ A
64 62 63 ax-mp ⊢ x ∈ A ∧ ¬ x ∈ ∅ → ∅ ⊂ A
65 61 64 mpan2 ⊢ x ∈ A → ∅ ⊂ A
66 psseq1 ⊢ y = w → y ⊂ A ↔ w ⊂ A
67 66 mo4 ⊢ ∃* y y ⊂ A ↔ ∀ y ∀ w y ⊂ A ∧ w ⊂ A → y = w
68 vsnex ⊢ x ∈ V
69 psseq1 ⊢ y = x → y ⊂ A ↔ x ⊂ A
70 69 anbi1d ⊢ y = x → y ⊂ A ∧ w ⊂ A ↔ x ⊂ A ∧ w ⊂ A
71 eqeq1 ⊢ y = x → y = w ↔ x = w
72 70 71 imbi12d ⊢ y = x → y ⊂ A ∧ w ⊂ A → y = w ↔ x ⊂ A ∧ w ⊂ A → x = w
73 72 albidv ⊢ y = x → ∀ w y ⊂ A ∧ w ⊂ A → y = w ↔ ∀ w x ⊂ A ∧ w ⊂ A → x = w
74 68 73 spcv ⊢ ∀ y ∀ w y ⊂ A ∧ w ⊂ A → y = w → ∀ w x ⊂ A ∧ w ⊂ A → x = w
75 67 74 sylbi ⊢ ∃* y y ⊂ A → ∀ w x ⊂ A ∧ w ⊂ A → x = w
76 psseq1 ⊢ w = ∅ → w ⊂ A ↔ ∅ ⊂ A
77 76 anbi2d ⊢ w = ∅ → x ⊂ A ∧ w ⊂ A ↔ x ⊂ A ∧ ∅ ⊂ A
78 eqeq2 ⊢ w = ∅ → x = w ↔ x = ∅
79 77 78 imbi12d ⊢ w = ∅ → x ⊂ A ∧ w ⊂ A → x = w ↔ x ⊂ A ∧ ∅ ⊂ A → x = ∅
80 1 79 spcv ⊢ ∀ w x ⊂ A ∧ w ⊂ A → x = w → x ⊂ A ∧ ∅ ⊂ A → x = ∅
81 75 80 syl ⊢ ∃* y y ⊂ A → x ⊂ A ∧ ∅ ⊂ A → x = ∅
82 81 ancomsd ⊢ ∃* y y ⊂ A → ∅ ⊂ A ∧ x ⊂ A → x = ∅
83 82 com12 ⊢ ∅ ⊂ A ∧ x ⊂ A → ∃* y y ⊂ A → x = ∅
84 65 83 sylan ⊢ x ∈ A ∧ x ⊂ A → ∃* y y ⊂ A → x = ∅
85 51 60 84 syl2anc ⊢ x ∈ A ∧ v ∈ A ∧ ¬ v = x → ∃* y y ⊂ A → x = ∅
86 85 3expia ⊢ x ∈ A ∧ v ∈ A → ¬ v = x → ∃* y y ⊂ A → x = ∅
87 86 com23 ⊢ x ∈ A ∧ v ∈ A → ∃* y y ⊂ A → ¬ v = x → x = ∅
88 87 3impia ⊢ x ∈ A ∧ v ∈ A ∧ ∃* y y ⊂ A → ¬ v = x → x = ∅
89 50 88 mt3i ⊢ x ∈ A ∧ v ∈ A ∧ ∃* y y ⊂ A → v = x
90 89 3comr ⊢ ∃* y y ⊂ A ∧ x ∈ A ∧ v ∈ A → v = x
91 90 equcomd ⊢ ∃* y y ⊂ A ∧ x ∈ A ∧ v ∈ A → x = v
92 91 3expib ⊢ ∃* y y ⊂ A → x ∈ A ∧ v ∈ A → x = v
93 92 alrimivv ⊢ ∃* y y ⊂ A → ∀ x ∀ v x ∈ A ∧ v ∈ A → x = v
94 6 mo4 ⊢ ∃* x x ∈ A ↔ ∀ x ∀ v x ∈ A ∧ v ∈ A → x = v
95 93 94 sylibr ⊢ ∃* y y ⊂ A → ∃* x x ∈ A
96 48 95 impbii ⊢ ∃* x x ∈ A ↔ ∃* y y ⊂ A