Some definitions of interest.
append	Def as @ bs == Case of as; nil  bs ; a.as'  [a / (as' @ bs)]  (recursive)
	Thm* T:Type, as,bs:T List. (as @ bs)  T List
listp	Def A List == {l:(A List)| (0<||l||) }
	Thm* A:Type. A List  Type
tl	Def tl(l) == Case of l; nil  nil ; h.t  t
	Thm* A:Type, l:A List. tl(l)  A List

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