| Some definitions of interest. |
|
seq_cons | Def [x/ xs](i) == if i= 0 x else xs(i-1) fi |
| | Thm* A:Type, n: , x:A, xs:( (n-1) A). [x/ xs] n A |
|
eq_int | Def i= j == if i=j true ; false fi |
| | Thm* i,j: . (i= j)  |
|
int_seg | Def {i..j } == {k: | i k < j } |
| | Thm* m,n: . {m..n } Type |
|
nat_plus | Def  == {i: | 0<i } |
| | Thm*  Type |