Proof of Theorem clelab
| Step | Hyp | Ref
| Expression |
| 1 | | df-clab 1093 |
. . . 4
⊢ (y
∈ {x∣φ} ↔ [y / x]φ) |
| 2 | 1 | anbi2i 367 |
. . 3
⊢ ((y =
A ∧ y ∈ {x∣φ})
↔ (y = A ∧ [y /
x]φ)) |
| 3 | 2 | biex 733 |
. 2
⊢ (∃y(y = A ∧ y ∈
{x∣φ}) ↔ ∃y(y = A ∧ [y /
x]φ)) |
| 4 | | df-clel 1099 |
. 2
⊢ (A
∈ {x∣φ} ↔ ∃y(y = A ∧ y ∈
{x∣φ})) |
| 5 | | ax-17 925 |
. . 3
⊢ ((x =
A ∧ φ) → ∀y(x = A ∧ φ)) |
| 6 | | ax-17 925 |
. . . 4
⊢ (y =
A → ∀x y = A) |
| 7 | | hbs1 986 |
. . . 4
⊢ ([y /
x]φ
→ ∀x[y / x]φ) |
| 8 | 6, 7 | hban 704 |
. . 3
⊢ ((y =
A ∧ [y / x]φ) → ∀x(y = A ∧ [y /
x]φ)) |
| 9 | | cleq1 1107 |
. . . 4
⊢ (x =
y → (x = A ↔
y = A)) |
| 10 | | sbequ12 865 |
. . . 4
⊢ (x =
y → (φ ↔ [y / x]φ)) |
| 11 | 9, 10 | anbi12d 476 |
. . 3
⊢ (x =
y → ((x = A ∧
φ) ↔ (y = A ∧
[y / x]φ))) |
| 12 | 5, 8, 11 | cbvex 849 |
. 2
⊢ (∃x(x = A ∧ φ)
↔ ∃y(y = A ∧
[y / x]φ)) |
| 13 | 3, 4, 12 | 3bitr4 158 |
1
⊢ (A
∈ {x∣φ} ↔ ∃x(x = A ∧ φ)) |