IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
w-causl-time1 1. the_w : World
2. e : E
3. e' : E
4. FairFifo
5. e <c e' time(e)<time(e')
By:
Unfold `w-causl` -1 THEN Unfold `rel_plus` -1 THEN Reduce -1
THEN
Assert
(n:, e,e':E.
((ee,e'. e <loc e' isrcv(kind(e')) & e = sender(e')^ne')
( (time(e)<time(e'))
5. n:. ee,e'. e <loc e' isrcv(kind(e')) & e = sender(e') E^ne' 6. n:, e,e':E.
6. (ee,e'. e <loc e' isrcv(kind(e')) & e = sender(e') E^ne')
6. 6. time(e)<time(e')
time(e)<time(e')
1 step
About:
IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html