| | Some definitions of interest. |
|
| IdLnk | Def IdLnk == Id Id |
| | | Thm* IdLnk  Type |
|
| Id | Def Id == Atom |
| | | Thm* Id Type |
|
| int_seg | Def {i..j } == {k: | i  k < j } |
| | | Thm*  m,n:. {m..n} Type |
|
| ldst | Def destination(l) == 1of(2of(l)) |
| | | Thm* l:IdLnk. destination(l) Id |
|
| length | Def ||as|| == Case of as; nil  0 ; a.as' ||as'||+1 (recursive) |
| | | Thm* A:Type, l:A List. ||l|| |
| | | Thm* ||nil|| |
|
| lnk-inv | Def lnk-inv(l) == <1of(2of(l)),1of(l),2of(2of(l))> |
|
| lsrc | Def source(l) == 1of(l) |
| | | Thm* l:IdLnk. source(l) Id |
|
| not | Def  A == A   False |
| | | Thm* A:Prop. (A) Prop |
|
| select | Def l[i] == hd(nth_tl(i;l)) |
| | | Thm* A:Type, l:A List, n:. 0n n<||l|| l[n] A |
