Some definitions of interest.
action	Def action(dec) == Unit+(k:Knddec(k))
	Thm* dec:(KndType). action(dec)  Type
Knd	Def Knd == (IdLnkId)+Id
	Thm* Knd  Type
Msg	Def Msg(M) == l:IdLnkt:IdM(l,t)
	Thm* M:(IdLnkIdType). Msg(M)  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)
assert	Def b == if b True else False fi
	Thm* b:. b  Prop
isl	Def isl(x) == InjCase(x; y. true; z. false)
	Thm* A,B:Type, x:A+B. isl(x)
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
nat	Def  == {i:| 0i }
	Thm*   Type
not	Def A == A  False
	Thm* A:Prop. (A)  Prop
outr	Def outr(x) == InjCase(x; y. "???"; z. z)
	Thm* A,B:Type, x:A+B. isl(x)  outr(x)  B
pi1	Def 1of(t) == t.1
	Thm* A:Type, B:(AType), p:(a:AB(a)). 1of(p)  A
top	Def Top == Void given Void
	Thm* Top  Type

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