Some definitions of interest.
Msg_sub	Def Msg_sub(l; M) == {m:Msg(M)| haslink(l; m) }
	Thm* M:(IdLnkIdType), l:IdLnk. Msg_sub(l; M)  Type
world	Def World Def == T:IdIdType Def == TA:IdIdType Def == M:IdLnkIdType Def == (i:Id(x:IdT(i,x)))(i:Idaction(w-action-dec(TA;M;i))) Def == (i:Id({m:Msg(M)| source(mlnk(m)) = i } List))Top
	Thm* World  Type{i'}
Msg	Def Msg(M) == l:IdLnkt:IdM(l,t)
	Thm* M:(IdLnkIdType). Msg(M)  Type
haslink	Def haslink(l; m) == mlnk(m) = l
	Thm* M:(IdLnkIdType), l:IdLnk, m:Msg(M). haslink(l; m)  Prop
IdLnk	Def IdLnk == IdId
	Thm* IdLnk  Type
w-sends	Def sends(l;e) == onlnk(l;m(loc(e);time(e)))
eq_lnk	Def a = b == eqof(IdLnkDeq)(a,b)
	Thm* a,b:IdLnk. a = b
filter	Def filter(P;l) == reduce(a,v. if P(a) [a / v] else v fi;nil;l)
	Thm* T:Type, P:(T), l:T List. filter(P;l)  T List
mlnk	Def mlnk(m) == 1of(m)
	Thm* M:(IdLnkIdType), m:Msg(M). mlnk(m)  IdLnk
	Thm* the_es:ES, m:Msg. mlnk(m)  IdLnk
w-E	Def E == {p:(Id)| isnull(a(1of(p);2of(p))) }
w-M	Def w.M == 1of(2of(2of(w)))
w-loc	Def loc(e) == 1of(e)
w-m	Def m(i;t) == 1of(2of(2of(2of(2of(2of(w))))))(i,t)
w-time	Def time(e) == 2of(e)

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