Metamath Proof Explorer


Theorem bj-snglss

Description: The singletonization of a class is included in its powerclass. (Contributed by BJ, 6-Oct-2018)

Ref Expression
Assertion bj-snglss ⊢ sngl A ⊆ 𝒫 A

Proof

Step Hyp Ref Expression
1 bj-elsngl ⊢ x ∈ sngl A ↔ ∃ y ∈ A x = y
2 df-rex ⊢ ∃ y ∈ A x = y ↔ ∃ y y ∈ A ∧ x = y
3 snssi ⊢ y ∈ A → y ⊆ A
4 sseq1 ⊢ x = y → x ⊆ A ↔ y ⊆ A
5 4 biimparc ⊢ y ⊆ A ∧ x = y → x ⊆ A
6 3 5 sylan ⊢ y ∈ A ∧ x = y → x ⊆ A
7 6 eximi ⊢ ∃ y y ∈ A ∧ x = y → ∃ y x ⊆ A
8 2 7 sylbi ⊢ ∃ y ∈ A x = y → ∃ y x ⊆ A
9 1 8 sylbi ⊢ x ∈ sngl A → ∃ y x ⊆ A
10 ax5e ⊢ ∃ y x ⊆ A → x ⊆ A
11 9 10 syl ⊢ x ∈ sngl A → x ⊆ A
12 velpw ⊢ x ∈ 𝒫 A ↔ x ⊆ A
13 11 12 sylibr ⊢ x ∈ sngl A → x ∈ 𝒫 A
14 13 ssriv ⊢ sngl A ⊆ 𝒫 A