| Who Cites upto? |
|
upto | Def upto(n) == if n= 0 nil else upto(n-1) @ [(n-1)] fi (recursive) |
| | Thm* n: . upto(n) n List |
|
append | Def as @ bs == Case of as; nil bs ; a.as' [a / (as' @ bs)] (recursive) |
| | Thm* T:Type, as,bs:T List. (as @ bs) T List |
|
eq_int | Def i= j == if i=j true ; false fi |
| | Thm* i,j: . (i= j)  |