1. the_w : World
2. FairFifo
3. e,e':E. loc(e) = loc(e')  e <c e'  e = e'  e' <c e
4. e:E. first(e)  (e':E. loc(e') = loc(e)  e' <c e)
5. e:E. 
5. first(e)
5. 
5. loc(pred(e)) = loc(e) & pred(e) <c e
5. & (e':E. loc(e') = loc(e)  (pred(e) <c e' & e' <c e))
6. e:E. first(e)  (x:Id. (x when e) = (x after pred(e)))
7. Trans e,e':E. e <c e'
8. SWellFounded(e <c e')
  e:E. 
  isrcv(kind(e))
  
  sends(lnk(kind(e));sender(e))[index(e)]
  =
  msg(lnk(kind(e));tag(kind(e));val(e))
   Msg(the_w.M)

By:

Auto THEN AssertBY (n:time(e). match(lnk(kind(e));n;time(e))) (BackThru (Thm* the_w:World, e:E. (Thm* FairFifo (Thm*  (Thm* isrcv(kind(e))  (t:time(e). match(lnk(kind(e));t;time(e)))) THEN Inst Thm* f:(). (n:. f(n))  f(mu(f)) & (i:. i<mu(f)  f(i)) [t.match(lnk(kind(e));t;time(e))] THENA (Reduce 0 THEN ParallelOp -1) THEN Reduce -1 THEN ExRepD THEN Thin -1 THEN MoveToConcl -1 THEN Unfold `w-index` 0 THEN Unfold `w-sender` 0 THEN GenConcl (mu(t.match(lnk(kind(e));t;time(e))) = t) THENA (Auto THEN Reduce 0 THEN InstConcl [n]) THEN Subst (time(<source(lnk(kind(e))),t>) ~ t) 0

1	9. e : E 10. isrcv(kind(e)) 11. n : time(e) 12. match(lnk(kind(e));n;time(e)) 13. t :  14. mu(t.match(lnk(kind(e));t;time(e))) = t   time(<source(lnk(kind(e))),t>) ~ t	1 step
2	9. e : E 10. isrcv(kind(e)) 11. n : time(e) 12. match(lnk(kind(e));n;time(e)) 13. t :  14. mu(t.match(lnk(kind(e));t;time(e))) = t   match(lnk(kind(e));t;time(e))      sends(lnk(kind(e));<source(lnk(kind(e))),t>)[(||rcvs(lnk(kind(e));time(e))||   -||snds(lnk(kind(e));t)||)]   =   msg(lnk(kind(e));tag(kind(e));val(e))    Msg(the_w.M)	5 steps

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