| | Who Cites mapoutl? |
|
| mapoutl | Def mapoutl(s) == mapfilter( x.outl(x);x.isl(x);s) |
| | | Thm*  A,B:Type, s:(A+B) List. mapoutl(s)  A List |
|
| isl | Def isl(x) == InjCase(x; y. true ; z. false) |
| | | Thm* A,B:Type, x:A+B. isl(x)  |
|
| outl | Def outl(x) == InjCase(x; y. y; z. "???") |
| | | Thm* A,B:Type, x:A+B. isl(x)   outl(x) A |
|
| mapfilter | Def mapfilter(f;P;L) == map(f;filter(P;L)) |
| | | Thm* T:Type, P:(T  ), T':Type, f:({x:T| P(x) }T'), L:T List. mapfilter(f;P;L) T' List |
|
| filter | Def filter(P;l) == reduce(a,v. if P(a) [a / v] else v fi;nil;l) |
| | | Thm* T:Type, P:(T), l:T List. filter(P;l) T List |
|
| map | Def map(f;as) == Case of as; nil nil ; a.as' [(f(a)) / map(f;as')] (recursive) |
| | | Thm* A,B:Type, f:(AB), l:A List. map(f;l) B List |
| | | Thm* A,B:Type, f:(AB), l:A List . map(f;l) B List |
|
| 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 |
