Some definitions of interest.
nat	Def  == {i:| 0i }
	Thm*   Type
le	Def AB == B<A
	Thm* i,j:. (ij)  Prop
map	Def map(f;as) == Case of as; nil  nil ; a.as'  f(a).map(f;as')  (recursive)
	Thm* A,B:Type, f:(AB), l:A List. map(f;l)  B List
pi1	Def 1of(t) == t.1
	Thm* A:Type, B:(AType), p:(a:AB(a)). 1of(p)  A

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