Proof of Theorem onpwsuc
| Step | Hyp | Ref
| Expression |
| 1 | | onsssuc 2311 |
. . . . . . 7
⊢ ((x
∈ On ∧ A ∈ On) →
(x ⊆ A ↔ x
∈ suc A)) |
| 2 | 1 | exp 291 |
. . . . . 6
⊢ (x
∈ On → (A ∈ On →
(x ⊆ A ↔ x
∈ suc A))) |
| 3 | 2 | com12 13 |
. . . . 5
⊢ (A
∈ On → (x ∈ On →
(x ⊆ A ↔ x
∈ suc A))) |
| 4 | 3 | pm5.32d 491 |
. . . 4
⊢ (A
∈ On → ((x ∈ On ∧
x ⊆ A) ↔ (x
∈ On ∧ x ∈ suc A))) |
| 5 | | pm3.27 260 |
. . . . . 6
⊢ ((x
∈ On ∧ x ∈ suc A) → x
∈ suc A) |
| 6 | 5 | a1i 7 |
. . . . 5
⊢ (A
∈ On → ((x ∈ On ∧
x ∈ suc A) → x
∈ suc A)) |
| 7 | | suceloni 2314 |
. . . . . . 7
⊢ (A
∈ On → suc A ∈ On) |
| 8 | | onelon 2223 |
. . . . . . . 8
⊢ ((suc A ∈ On ∧ x ∈ suc A)
→ x ∈ On) |
| 9 | 8 | exp 291 |
. . . . . . 7
⊢ (suc A
∈ On → (x ∈ suc A → x
∈ On)) |
| 10 | 7, 9 | syl 12 |
. . . . . 6
⊢ (A
∈ On → (x ∈ suc A → x
∈ On)) |
| 11 | 10 | ancrd 247 |
. . . . 5
⊢ (A
∈ On → (x ∈ suc A → (x
∈ On ∧ x ∈ suc A))) |
| 12 | 6, 11 | impbid 397 |
. . . 4
⊢ (A
∈ On → ((x ∈ On ∧
x ∈ suc A) ↔ x
∈ suc A)) |
| 13 | 4, 12 | bitrd 406 |
. . 3
⊢ (A
∈ On → ((x ∈ On ∧
x ⊆ A) ↔ x
∈ suc A)) |
| 14 | | elin 1635 |
. . . 4
⊢ (x
∈ (℘A ∩ On) ↔
(x ∈ ℘A ∧ x ∈
On)) |
| 15 | | visset 1350 |
. . . . . 6
⊢ x
∈ V |
| 16 | 15 | elpw 1801 |
. . . . 5
⊢ (x
∈ ℘A ↔ x ⊆ A) |
| 17 | 16 | anbi1i 368 |
. . . 4
⊢ ((x
∈ ℘A ∧ x ∈ On) ↔ (x ⊆ A
∧ x ∈ On)) |
| 18 | | ancom 333 |
. . . 4
⊢ ((x
⊆ A ∧ x ∈ On) ↔ (x ∈ On ∧ x ⊆ A)) |
| 19 | 14, 17, 18 | 3bitr 155 |
. . 3
⊢ (x
∈ (℘A ∩ On) ↔
(x ∈ On ∧ x ⊆ A)) |
| 20 | 13, 19 | syl5bb 410 |
. 2
⊢ (A
∈ On → (x ∈
(℘A ∩ On) ↔ x ∈ suc A)) |
| 21 | 20 | cleqrd 1100 |
1
⊢ (A
∈ On → (℘A ∩ On) = suc
A) |