| Step |
Hyp |
Ref |
Expression |
| 0 |
|
cexps |
|- ^su |
| 1 |
|
vx |
|- x |
| 2 |
|
csur |
|- No |
| 3 |
|
vy |
|- y |
| 4 |
|
czs |
|- ZZ_s |
| 5 |
3
|
cv |
|- y |
| 6 |
|
c0s |
|- 0s |
| 7 |
5 6
|
wceq |
|- y = 0s |
| 8 |
|
c1s |
|- 1s |
| 9 |
|
cslt |
|- |
| 10 |
6 5 9
|
wbr |
|- 0s |
| 11 |
|
cmuls |
|- x.s |
| 12 |
|
cnns |
|- NN_s |
| 13 |
1
|
cv |
|- x |
| 14 |
13
|
csn |
|- { x } |
| 15 |
12 14
|
cxp |
|- ( NN_s X. { x } ) |
| 16 |
11 15 8
|
cseqs |
|- seq_s 1s ( x.s , ( NN_s X. { x } ) ) |
| 17 |
5 16
|
cfv |
|- ( seq_s 1s ( x.s , ( NN_s X. { x } ) ) ` y ) |
| 18 |
|
cdivs |
|- /su |
| 19 |
|
cnegs |
|- -us |
| 20 |
5 19
|
cfv |
|- ( -us ` y ) |
| 21 |
20 16
|
cfv |
|- ( seq_s 1s ( x.s , ( NN_s X. { x } ) ) ` ( -us ` y ) ) |
| 22 |
8 21 18
|
co |
|- ( 1s /su ( seq_s 1s ( x.s , ( NN_s X. { x } ) ) ` ( -us ` y ) ) ) |
| 23 |
10 17 22
|
cif |
|- if ( 0s |
| 24 |
7 8 23
|
cif |
|- if ( y = 0s , 1s , if ( 0s |
| 25 |
1 3 2 4 24
|
cmpo |
|- ( x e. No , y e. ZZ_s |-> if ( y = 0s , 1s , if ( 0s |
| 26 |
0 25
|
wceq |
|- ^su = ( x e. No , y e. ZZ_s |-> if ( y = 0s , 1s , if ( 0s |