IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
es-loc-rcv221 1. es : ES
2. e : E
3. l : IdLnk
4. tg : Id
5. kind(e) = rcv(l; tg)
6. isrcv(e)
7. loc(sender(e)) = source(l)
8. sends(l;sender(e)) = nil
loc(sender(e)) = source(l)
By:
Inst Thm*the_es:ES, e:E. isrcv(e) index(e) ||sends(lnk(e);sender(e))||
[es;e]
THEN
Unfold `es-lnk` -1
THEN
HypSubst' -5 -1
THEN
Unfolds [`lnk`;`rcv`] -1
THEN
Reduce -1