Some definitions of interest.
Msg	Def Msg(M) == l:IdLnkt:IdM(l,t)
	Thm* M:(IdLnkIdType). Msg(M)  Type
action	Def action(dec) == Unit+(k:Knddec(k))
	Thm* dec:(KndType). action(dec)  Type
IdLnk	Def IdLnk == IdId
	Thm* IdLnk  Type
eq_lnk	Def a = b == eqof(IdLnkDeq)(a,b)
	Thm* a,b:IdLnk. a = b
Id	Def Id == Atom
	Thm* Id  Type
lsrc	Def source(l) == 1of(l)
	Thm* l:IdLnk. source(l)  Id
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-action-dec	Def w-action-dec(TA;M;i)(k) Def == kindcase(k;a.TA(i,a);l,tg.if destination(l) = i M(l,tg) else Void fi)
nat	Def  == {i:| 0i }
	Thm*   Type
top	Def Top == Void given Void
	Thm* Top  Type

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