| Some definitions of interest. |
|
sigma_to_union | Def sigma_to_union(e) == e/i,u. if i=0 inl(u) else inr(u) fi |
| | Thm* A,B:Type. sigma_to_union (i:2if i=0 A else B fi)(A+B) |
|
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 |
|
union_to_sigma | Def union_to_sigma(e) == InjCase(e; a. <0,a>; b. <1,b>) |
| | Thm* A,B:Type. union_to_sigma (A+B)(i:2if i=0 A else B fi) |