Some definitions of interest.
Id	Def Id == Atom
	Thm* Id  Type
bor	Def p  q == if p true else q fi
	Thm* p,q:. (p  q)
deq	Def EqDecider(T) == eq:TTx,y:T. x = y  (eq(x,y))
	Thm* T:Type. EqDecider(T)  Type
eqof	Def eqof(d) == 1of(d)
	Thm* T:Type, d:EqDecider(T). eqof(d)  TT
id-deq	Def IdDeq == product-deq(Atom;;AtomDeq;NatDeq)
top	Def Top == Void given Void
	Thm* Top  Type

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