mb event system 7 Sections EventSystems Doc
IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
RankTheoremName
9Thm* x,tg:Id, k:Knd, l:IdLnk, T,A,B:Type.
Thm* (rcv(ltg) = k  T = B)
Thm* 
Thm* (f:(ABT). 
Thm* (@source(l): ma-single-sends1(ABTxkltg; (a,b. [(f(a,b))]))
Thm* ( Dsys
Thm* (& (D:Dsys. 
Thm* (& (@source(l): ma-single-sends1(ABTxkltg; (a,b. [(f(a,b))])
Thm* (& (@source(l): ma-single-sends1( 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.& ((e':E. 
Thm* (& (realizes es.& ((kind(e') = rcv(ltg Knd
Thm* (& (realizes es.& ((& sender(e') = e  E
Thm* (& (realizes es.& ((& & (e'':E. 
Thm* (& (realizes es.& ((& & (kind(e'') = rcv(ltg Knd
Thm* (& (realizes es.& ((& & (
Thm* (& (realizes es.& ((& & (sender(e'') = e  E  e'' = e'  E)
Thm* (& (realizes es.& ((& & val(e') = f((x when e),val(e))  T))))
[s-unconditional-send1-rule]
cites the following:
8Thm* 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]
0Thm* f:Top, T:Type, L:T List. ||map(f;L)|| ~ ||L||[length-map]
0Thm* a,x:T. (x  [a])  x = a[member_singleton]
1Thm* es:ES, l:IdLnk, tg:Id, e:E.
Thm* kind(e) = rcv(ltg)
Thm* 
Thm* isrcv(e) & lnk(e) = l & tag(e) = tg & loc(sender(e)) = source(l)
[es-kind-rcv]
IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
mb event system 7 Sections EventSystems Doc