| | Who Cites st list mng? |
|
| st_list_mng | Def [[l]] rho == reduce( s,m. [[s]] rho  m;Prop;l) |
| | | Thm*  l:SimpleType List, rho:Decl{i}. [[l]] rho{i}  Type{i'} |
|
| st_mng | Def [[s]] rho == t_iterate(st_lift(rho);x,y. xy;s) |
| | | Thm* rho:Decl, s:SimpleType. [[s]] rho Type |
|
| reduce | Def reduce(f;k;as) == Case of as; nil  k ; a.as' f(a,reduce(f;k;as')) (recursive) |
| | | Thm* A,B:Type, f:(ABB), k:B, as:A List. reduce(f;k;as) B |
|
| st_lift | Def st_lift(rho)(x) == InjCase(x; x'. rho(x'); a. Top) |
| | | Thm* rho:(LabelType). st_lift(rho) (Label+Unit)Type |
|
| t_iterate | Def t_iterate(l;n;t) == Case(t) Case x;y = > n(t_iterate(l;n;x),t_iterate(l;n;y)) Case tree_leaf(x) = > l(x) Default = > True (recursive) |
| | | Thm* E,A:Type, l:(EA), n:(AAA), t:Tree(E). t_iterate(l;n;t) A |
|
| top | Def Top == Void given Void |
| | | Thm* Top Type |
|
| case_default | Def Default = > body(value,value) == body |
|
| case_tree_leaf | Def Case tree_leaf(x) = > body(x) cont(x1,z) == InjCase(x1; x2. body(x2); _. cont(z,z)) |
|
| case_node | Def Case x;y = > body(x;y) cont(x1,z) == InjCase(x1; _. cont(z,z); x2. x2/x3,x2@0. body(x3;x2@0)) |
|
| case | Def Case(value) body == body(value,value) |
