| Some definitions of interest. |
|
int_seg | Def {i..j} == {k:| i k < j } |
| | Thm* m,n:. {m..n} Type |
|
length | Def ||as|| == Case of as; nil 0 ; a.as' ||as'||+1 (recursive) |
| | Thm* A:Type, l:A List. ||l|| |
| | Thm* ||nil|| |
|
listify | Def f{m..n} == if nm nil else f(m).f{(m+1)..n} fi (recursive) |
| | Thm* T:Type, m,n:, f:({m..n}T). f{m..n} T List |
|
nat | Def == {i:| 0i } |
| | Thm* Type |
|
select | Def l[i] == hd(nth_tl(i;l)) |
| | Thm* A:Type, l:A List, n:. 0n n<||l|| l[n] A |
|
tlambda | Def (x:T. b(x))(x) == b(x) |