1. i : Id
2. k : Knd
3. l : IdLnk
4. ds : x:Id fp-> Type
5. da : a:Knd fp-> Type
6. f : (tg:IdState(ds)ma-valtype(da; k)(da(rcv(l; tg))?Void List)) List
7. source(l) = i
8. D' : Dsys
9. d-single-sends(i; ds; da; k; l; f)  D'
10. w : World
11. p : FairFifo
12. PossibleWorld(D';w)
13. x:Id. vartype(i;x) r ds(x)?Top
14. e:E. loc(e) = i  (valtype(e) r ma-valtype(da; kind(e)))
15. e:E. isrcv(e)  lnk(e) = l  (valtype(e) r ma-valtype(da; kind(e)))
16. {m:Msg| source(mlnk(m)) = i } r Msg((l,tg. da(rcv(l; tg))?Top))
17. e:E. 
17. loc(e) = i
17. 
17. kind(e) = k  sends(l;e) = tagged-messages(l;z.(z when e);val(e);f)
18. x:Id. vartype(i;x) r ds(x)?Top
19. e:E. loc(e) = i  (valtype(e) r ma-valtype(da; kind(e)))
20. e:E. isrcv(e)  lnk(e) = l  (valtype(e) r ma-valtype(da; kind(e)))
21. e : E
22. loc(e) = i
23. kind(e) = k
24. valtype(e) r ma-valtype(da; kind(e))
25. sends(l;e) = tagged-messages(l;z.(z when e);val(e);f)
26. valtype(e) r ma-valtype(da; kind(e))
  L:{e':E| isrcv(e') & lnk(e') = l } List. 
  (e':E. (e'  L)  isrcv(e') & lnk(e') = l & sender(e') = e  E)
  & (e1,e2:E. e1 before e2  L  (e1 <loc e2))
  & map(e'.<tag(e'),val(e')>;L)
  & =
  & tagged-list-messages(z.(z when e);val(e);f)
  &  (tg:Idma-valtype(da; rcv(l; tg))) List

By:	InstESAxiom ES(w) [e;l] 16 THEN RenameVar `L' -1 THEN InstConcl [map(n.1of(L(n));upto(||sends(l;e)||))]

1	27. L :  27. n:||sends(l;e)||.  27. e':E. isrcv(e') & lnk(e') = l & sender(e') = e  E & index(e') = n     map(n.1of(L(n));upto(||sends(l;e)||))    {e':E| isrcv(e') & lnk(e') = l } List	2 steps
2	27. L :  27. n:||sends(l;e)||.  27. e':E. isrcv(e') & lnk(e') = l & sender(e') = e  E & index(e') = n     (e':E.    ((e'  map(n.1of(L(n));upto(||sends(l;e)||)))   (   (isrcv(e') & lnk(e') = l & sender(e') = e  E)   & (e1,e2:E.   & (e1 before e2  map(n.1of(L(n));upto(||sends(l;e)||))  (e1 <loc e2))   & map(e'.<tag(e'),val(e')>;map(n.1of(L(n));upto(||sends(l;e)||)))   & =   & tagged-list-messages(z.(z when e);val(e);f)   &  (tg:Idma-valtype(da; rcv(l; tg))) List	116 steps
3	27. n:||sends(l;e)||.  27. e':E. isrcv(e') & lnk(e') = l & sender(e') = e  E & index(e') = n   28. L1 : {e':E| isrcv(e') & lnk(e') = l } List   ((e':E. (e'  L1)  isrcv(e') & lnk(e') = l & sender(e') = e  E)   (& (e1,e2:E. e1 before e2  L1  (e1 <loc e2))   (& map(e'.<tag(e'),val(e')>;L1)   (& =   (& tagged-list-messages(z.(z when e);val(e);f)   (&  (tg:Idma-valtype(da; rcv(l; tg))) List)    Prop	7 steps

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