| | Who Cites remove msgs? |
|
| remove_msgs | Def (L -msg(a;b) L1) == filter( a.reduce(b,y.   msg(a;b) y;true;L1);L) |
| | | Thm*  A:Type, msg:(A  A ), L,L1:A List. (L -msg(a,b) L1)  A List |
|
| bnot | Def b == if b false else true fi |
| | | Thm* b:. b |
|
| band | Def pq == if p q else false fi |
| | | Thm* p,q:. (pq) |
|
| 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 |
|
| 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 |
