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')
9. e:E. 
9. isrcv(kind(e))
9. 
9. sends(lnk(kind(e));sender(e))[index(e)]
9. =
9. msg(lnk(kind(e));tag(kind(e));val(e))
10. e:E. isrcv(kind(e))  sender(e) <c e
  e,e':E.
  e <c e'
  
  first(e') & e <c pred(e')  e = pred(e')  E
   isrcv(kind(e')) & e <c sender(e')  e = sender(e')  E

By:	Auto THEN Unfold `w-causl` -1 THEN FwdThru Thm* R:(TTProp), x,y:T. (x R^+ y)  (x R y)  (z:T. (x R^+ z) & (z R y)) [-1] THEN Reduce -1 THEN Fold `w-causl` -1 THEN Analyze -1

1	11. e : E 12. e' : E 13. e e,e'. e <loc e'  isrcv(kind(e')) & e = sender(e')  E^+ e' 14. e <loc e'  isrcv(kind(e')) & e = sender(e')  E   first(e') & e <c pred(e')  e = pred(e')  E    isrcv(kind(e')) & e <c sender(e')  e = sender(e')  E	14 steps
2	11. e : E 12. e' : E 13. e e,e'. e <loc e'  isrcv(kind(e')) & e = sender(e')  E^+ e' 14. z:E. e <c z & z <loc e'  isrcv(kind(e')) & z = sender(e')  E   first(e') & e <c pred(e')  e = pred(e')  E    isrcv(kind(e')) & e <c sender(e')  e = sender(e')  E	17 steps

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