1. i : Id
2. k : Knd
3. l : IdLnk
4. ds : x:Id fp-> Type
5. da : a:Knd fp-> Type
6. f : (tg:IdState(ds)ma-valtype(da; k)(da(rcv(l; tg))?Void List)) List
7. source(l) = i
8. w : World
9. p : FairFifo
10. FairFifo
11. l@0:IdLnk, tg:Id.
11. (w.M(l@0,tg)) r if eqof(IdDeq)(source(l@0),i)
11. (w.M(l@0,tg)) r if <ds,da,,,,<[<k,l>],x.f>,,,>
11. (w.M(l@0,tg)) r else  fi.da(rcv(l@0; tg))
12. (eqof(IdDeq)(i,i)) ~ true
13. x:Id. vartype(i;x) r ds(x)?Top
14. e:E. loc(e) = i  (valtype(e) r ma-valtype(da; kind(e)))
15. e:E. isrcv(e)  lnk(e) = l  (valtype(e) r ma-valtype(da; kind(e)))
16. {m:Msg| source(mlnk(m)) = i } r Msg((l,tg. da(rcv(l; tg))?Top))
17. a:Action(i). isnull(a)  (valtype(i;a) r da(kind(a))?Top)
18. x:Id. 
18. vartype(i;x) r if deq-member(IdDeq;x;1of(ds)) 2of(ds)(x) else Top fi
19. IdDeq  EqDecider(Id)
20. j : Id
21. t : 
22. isnull(a(j;t))
23. True
24. j = i
25. kind(<j,t>) = k
26. isnull(a(i;t))
27. (x.s(i;t).x)  State(ds)
28. l@0:IdLnk. 
28. (eqof(product-deq(Knd;IdLnk;KindDeq;IdLnkDeq))(<k,l>,<kind(a(i;t)),l@0>)
28. ( false)
28. 
28. map(ms.2of(ms);filter(ms.mlnk(ms) = l@0;m(i;t)))
28. =
28. if source(l@0) = i tagged-list-messages(x.s(i;t).x;val(a(i;t));f)
28. else nil fi
29. withlnk(l;m(i;t)) = tagged-list-messages(x.s(i;t).x;val(a(i;t));f)
30. source(l) = i
31. ({m:Msg(w.M)| source(mlnk(m)) = i } List) r (Msg
31. ((l,tg. da(rcv(l; tg))?Top)) List)
32. L : {x:Msg| (ms.mlnk(ms) = l)(x) } List
33. filter(ms.mlnk(ms) = l;m(i;t)) = L
  map((x.<l,x>) o (ms.2of(ms));L)
  =
  L
   {m:Msg(w.M)| source(mlnk(m)) = i } List

By:	All Reduce THEN Inst Thm* a:T List, f:(TT). (x:T. (x  a)  f(x) = x)  map(f;a) = a [{x:Msg| mlnk(x) = l };L;(x.<l,x>) o (ms.2of(ms))] THEN Try (Analyze -1 THEN Unfold `mlnk` 0 THEN Reduce 0 THEN Complete Auto)

1	32. L : {x:Msg| mlnk(x) = l } List 33. filter(ms.mlnk(ms) = l;m(i;t)) = L  {x:Msg| mlnk(x) = l } List   (x.<l,x>) o (ms.2of(ms))  {x:Msg| mlnk(x) = l }{x:Msg| mlnk(x) = l }	8 steps
2	32. L : {x:Msg| mlnk(x) = l } List 33. filter(ms.mlnk(ms) = l;m(i;t)) = L  {x:Msg| mlnk(x) = l } List 34. x : {x:Msg| mlnk(x) = l } 35. (x  L)   ((x.<l,x>) o (ms.2of(ms)))(x) = x	5 steps
3	32. L : {x:Msg| mlnk(x) = l } List 33. filter(ms.mlnk(ms) = l;m(i;t)) = L  {x:Msg| mlnk(x) = l } List 34. map((x.<l,x>) o (ms.2of(ms));L) = L  {x:Msg| mlnk(x) = l } List   map((x.<l,x>) o (ms.2of(ms));L)   =   L    {m:Msg(w.M)| source(mlnk(m)) = i } List	1 step

About: IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html