mb event system 7 Sections EventSystems Doc
IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
Def map(f;as) == Case of as; nil  nil ; a.as'  [(f(a)) / map(f;as')]
Def (recursive)

is mentioned by

Thm* k:Knd, l:IdLnk, ds:x:Id fp-> Type, da:a:Knd fp-> Type, f:(IdTop) List,
Thm* l1:IdLnk, tg:Id, L:Knd List.
Thm* (l = l1  (tg  map(p.1of(p);f))  (k  L))
Thm* 
Thm* ma-single-sends(dsdaklf) ||+ only L sends on (l1 with tg)
[ma-single-sends-ma-single-sframe-compatible]
Thm* x,tg:Id, k:Knd, l:IdLnk, T,A,B:Type, f:(AB(T List)).
Thm* (rcv(ltg) = k  T = B)
Thm* 
Thm* @source(l): ma-single-sends1(ABTxkltgf Dsys
Thm* & (D:Dsys. 
Thm* & (@source(l): ma-single-sends1(ABTxkltgf D
Thm* & (
Thm* & (D 
Thm* & (realizes es.(vartype(source(l);xA)
Thm* & (realizes es.& (e:E. 
Thm* & (realizes es.& (loc(e) = source(l Id
Thm* & (realizes es.& (
Thm* & (realizes es.& (kind(e) = k  Knd  (valtype(eB))
Thm* & (realizes es.& (e:E. kind(e) = rcv(ltg Knd  (valtype(eT))
Thm* & (realizes es.& (e:E. 
Thm* & (realizes es.& (loc(e) = source(l Id
Thm* & (realizes es.& (
Thm* & (realizes es.& (kind(e) = k  Knd
Thm* & (realizes es.& (
Thm* & (realizes es.& ((L:{e':E| kind(e') = rcv(ltg Knd } List. 
Thm* & (realizes es.& (((e':E. 
Thm* & (realizes es.& ((((e'  L)
Thm* & (realizes es.& (((
Thm* & (realizes es.& (((kind(e') = rcv(ltg Knd & sender(e') = e  E)
Thm* & (realizes es.& ((& (e1,e2:E. e1 before e2  L  (e1 <loc e2))
Thm* & (realizes es.& ((& map(e'.val(e');L) = f((x when e),val(e))  T List)))
[s-sends-rule1]

In prior sections: list 1 mb list 1 mb list 2 mb event system 1 mb event system 6 mb event system 3 mb event system 4

Try larger context: EventSystems IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html

mb event system 7 Sections EventSystems Doc