| Some definitions of interest. |
|
int_seg | Def {i..j } == {k: | i k < j } |
| | Thm* m,n: . {m..n } Type |
|
nat | Def == {i: | 0 i } |
| | Thm* Type |
|
le | Def A B == B<A |
| | Thm* i,j: . (i j) Prop |
|
listify | Def f{m..n } == if n m nil else f(m).f{(m+1)..n } fi (recursive) |
| | Thm* T:Type, m,n: , f:({m..n } T). f{m..n } T List |