Some definitions of interest.
Knd	Def Knd == (IdLnkId)+Id
	Thm* Knd  Type
IdLnk	Def IdLnk == IdId
	Thm* IdLnk  Type
Id	Def Id == Atom
	Thm* Id  Type
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)

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