Some definitions of interest.
nat_plus	Def  == {i:| 0<i }
	Thm*   Type
sfa_doc_sexpr	Def Sexpr(A) == rec(T.(TT)+A)
	Thm* A:Type. Sexpr(A)  Type
sfa_doc_sexpr_atom	Def sexprAtom(s) == Case of s :  Inj(x)  x ; Cons(s1;s2)  0
	Thm* A:Type, s:Sexpr(A). Size(s) = 1    sexprAtom(s)  A
sfa_doc_sexpr_size	Def Size(s) == Case of s :  Inj(x)  1 ; Cons(s1;s2)  Size(s1)+Size(s2) Def (recursive)
	Thm* A:Type, s:Sexpr(A). Size(s)

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