| Step |
Hyp |
Ref |
Expression |
| 1 |
|
2no |
|- 2s e. No |
| 2 |
|
exps0 |
|- ( 2s e. No -> ( 2s ^su 0s ) = 1s ) |
| 3 |
1 2
|
ax-mp |
|- ( 2s ^su 0s ) = 1s |
| 4 |
3
|
oveq2i |
|- ( A /su ( 2s ^su 0s ) ) = ( A /su 1s ) |
| 5 |
|
zno |
|- ( A e. ZZ_s -> A e. No ) |
| 6 |
5
|
divs1d |
|- ( A e. ZZ_s -> ( A /su 1s ) = A ) |
| 7 |
4 6
|
eqtr2id |
|- ( A e. ZZ_s -> A = ( A /su ( 2s ^su 0s ) ) ) |
| 8 |
|
0n0s |
|- 0s e. NN0_s |
| 9 |
|
oveq1 |
|- ( x = A -> ( x /su ( 2s ^su y ) ) = ( A /su ( 2s ^su y ) ) ) |
| 10 |
9
|
eqeq2d |
|- ( x = A -> ( A = ( x /su ( 2s ^su y ) ) <-> A = ( A /su ( 2s ^su y ) ) ) ) |
| 11 |
|
oveq2 |
|- ( y = 0s -> ( 2s ^su y ) = ( 2s ^su 0s ) ) |
| 12 |
11
|
oveq2d |
|- ( y = 0s -> ( A /su ( 2s ^su y ) ) = ( A /su ( 2s ^su 0s ) ) ) |
| 13 |
12
|
eqeq2d |
|- ( y = 0s -> ( A = ( A /su ( 2s ^su y ) ) <-> A = ( A /su ( 2s ^su 0s ) ) ) ) |
| 14 |
10 13
|
rspc2ev |
|- ( ( A e. ZZ_s /\ 0s e. NN0_s /\ A = ( A /su ( 2s ^su 0s ) ) ) -> E. x e. ZZ_s E. y e. NN0_s A = ( x /su ( 2s ^su y ) ) ) |
| 15 |
8 14
|
mp3an2 |
|- ( ( A e. ZZ_s /\ A = ( A /su ( 2s ^su 0s ) ) ) -> E. x e. ZZ_s E. y e. NN0_s A = ( x /su ( 2s ^su y ) ) ) |
| 16 |
7 15
|
mpdan |
|- ( A e. ZZ_s -> E. x e. ZZ_s E. y e. NN0_s A = ( x /su ( 2s ^su y ) ) ) |
| 17 |
|
elz12s |
|- ( A e. ZZ_s[1/2] <-> E. x e. ZZ_s E. y e. NN0_s A = ( x /su ( 2s ^su y ) ) ) |
| 18 |
16 17
|
sylibr |
|- ( A e. ZZ_s -> A e. ZZ_s[1/2] ) |