IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
world-event-system4 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))
e:E.
first(e) (x:Id. (x when e) = (x after pred(e)) vartype(loc(e);x))
By:
Assert
(t:, i:Id. first(<i,t>) (x:Id. (x when <i,t>) = (x after pred(<i,t>))))