Some definitions of interest.
ma-feasible	Def Feasible(M) Def == xdom(1of(M)). T=1of(M)(x)   T Def == & kdom(1of(2of(M))). T=1of(2of(M))(k)   Dec(T) Def == & adom(1of(2of(2of(2of(M))))). p=1of(2of(2of(2of(M))))(a)   Def == &s:State(1of(M)). Dec(v:1of(2of(M))(locl(a))?Top. p(s,v)) Def == & kxdom(1of(2of(2of(2of(2of(M)))))).  Def == ef=1of(2of(2of(2of(2of(M)))))(kx)   M.frame(1of(kx) affects 2of(kx)) Def == & kldom(1of(2of(2of(2of(2of(2of(M))))))).  Def == & snd=1of(2of(2of(2of(2of(2of(M))))))(kl)   tg:Id.  Def == & (tg  map(p.1of(p);snd))  M.sframe(1of(kl) sends <2of(kl),tg>)
Kind-deq	Def KindDeq == union-deq(IdLnkId;Id;product-deq(IdLnk;Id;IdLnkDeq;IdDeq);IdDeq)
Knd	Def Knd == (IdLnkId)+Id
	Thm* Knd  Type
ma-state	Def State(ds) == x:Idds(x)?Top
Id	Def Id == Atom
	Thm* Id  Type
id-deq	Def IdDeq == product-deq(Atom;;AtomDeq;NatDeq)
assert	Def b == if b True else False fi
	Thm* b:. b  Prop
bor	Def p  q == if p true else q fi
	Thm* p,q:. (p  q)
decidable	Def Dec(P) == P  P
	Thm* A:Prop. Dec(A)  Prop
eqof	Def eqof(d) == 1of(d)
	Thm* T:Type, d:EqDecider(T). eqof(d)  TT
fpf	Def a:A fp-> B(a) == d:A Lista:{a:A| (a  d) }B(a)
	Thm* A:Type, B:(AType). a:A fp-> B(a)  Type
ma-single-pre-init1	Def ma-single-pre-init1(x;T;c;a;T';y,v.P(y;v)) Def == (with ds: x : T Def == (init: x : c Def == action a:T' Def == aprecondition a(v) is Def == as,v. P(s(x);v))
locl	Def locl(a) == inr(a)
	Thm* a:Id. locl(a)  Knd
top	Def Top == Void given Void
	Thm* Top  Type

About: IF YOU CAN SEE THIS go to http://www.cs.cornell.edu/Info/People/sfa/Nuprl/Shared/Xindentation_hack_doc.html