| Step |
Hyp |
Ref |
Expression |
| 1 |
|
nn0suc |
|- ( A e. _om -> ( A = (/) \/ E. x e. _om A = suc x ) ) |
| 2 |
|
unieq |
|- ( A = (/) -> U. A = U. (/) ) |
| 3 |
|
uni0 |
|- U. (/) = (/) |
| 4 |
2 3
|
eqtrdi |
|- ( A = (/) -> U. A = (/) ) |
| 5 |
|
peano1 |
|- (/) e. _om |
| 6 |
4 5
|
eqeltrdi |
|- ( A = (/) -> U. A e. _om ) |
| 7 |
|
nnord |
|- ( x e. _om -> Ord x ) |
| 8 |
|
ordunisuc |
|- ( Ord x -> U. suc x = x ) |
| 9 |
7 8
|
syl |
|- ( x e. _om -> U. suc x = x ) |
| 10 |
|
id |
|- ( x e. _om -> x e. _om ) |
| 11 |
9 10
|
eqeltrd |
|- ( x e. _om -> U. suc x e. _om ) |
| 12 |
|
unieq |
|- ( A = suc x -> U. A = U. suc x ) |
| 13 |
12
|
eleq1d |
|- ( A = suc x -> ( U. A e. _om <-> U. suc x e. _om ) ) |
| 14 |
11 13
|
syl5ibrcom |
|- ( x e. _om -> ( A = suc x -> U. A e. _om ) ) |
| 15 |
14
|
rexlimiv |
|- ( E. x e. _om A = suc x -> U. A e. _om ) |
| 16 |
6 15
|
jaoi |
|- ( ( A = (/) \/ E. x e. _om A = suc x ) -> U. A e. _om ) |
| 17 |
1 16
|
syl |
|- ( A e. _om -> U. A e. _om ) |