IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
world-event-system311 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)
t:, i:Id.
first(<i,t>)
pred(<i,t>) <loc <i,t> & (e':E. (pred(<i,t>) <loc e' & e' <loc <i,t>))
By:
InductionOnNat THEN RecUnfold `w-first` 0 THEN RecUnfold `w-pred` 0
THEN
Unfolds [`w-loc`;`w-time`] 0
THEN
Reduce 0
THEN
Try (Complete ((Analyze 0) THEN (Analyze 0) THEN (Analyze -1)))
THEN
SplitOnConclITE
THENL
[Auto;Id]