1. w : World
2. p : FairFifo
3. e:E. 
3. V(loc(e);kind(e)) = eventtype(e.kind(e);e.loc(e);i,a. V(i;locl(a));w.M;e)
4. ESAxioms{i:l}
4. ESAxioms(E;
4. ESAxioms((i,x. vartype(i;x));
4. ESAxioms(w.M;
4. ESAxioms((e.loc(e));
4. ESAxioms((e.kind(e));
4. ESAxioms((e.val(e));
4. ESAxioms((x,e. (x when e));
4. ESAxioms((x,e. (x after e));
4. ESAxioms((l,e. sends(l;e));
4. ESAxioms((e.sender(e));
4. ESAxioms((e.index(e));
4. ESAxioms((e.first(e));
4. ESAxioms((e.pred(e));
4. ESAxioms((e,e'. e <c e'))
4.  Type
  ES(w;p)  ES

By:

let A let  Auto THEN Try (Analyze -1 THEN Unhide THEN Complete Auto) let  THEN let  Try (Analyze -2 THEN Unhide THEN Complete Auto) let  THEN let  Try (Unfold `w-E` 0 THEN DeqSubtype) let  THEN let  Try (DoSubsume THEN SubtypeRelEq THEN BackThruSomeHyp) , let B let  Analyze let  THENL let  [Analyze let  [THENL let  [[BackThru let  [[Thm* the_w:World, l:IdLnk, e:E. sends(l;e)  Msg_sub(l; the_w.M) List let  [;Auto] let  ;Auto] in Unfold `w-es` 0 THEN Fold `mk-es` 0 THEN At Type{i'} Analyze THEN All Reduce THEN Try (Complete A) THEN Try (Complete B)

1

world_DASH_event_DASH_system{1:l, i:l}(w,p)    ESAxioms{i:l}    ESAxioms(E;    ESAxioms((i,x. vartype(i;x));    ESAxioms(w.M;    ESAxioms((e.loc(e));    ESAxioms((e.kind(e));    ESAxioms((e.val(e));    ESAxioms((x,e. (x when e));    ESAxioms((x,e. (x after e));    ESAxioms((l,e. sends(l;e));    ESAxioms((e.sender(e));    ESAxioms((e.index(e));    ESAxioms((e.first(e));    ESAxioms((e.pred(e));    ESAxioms((e,e'. e <c e'))

6 steps

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