Some definitions of interest.
absval	Def |i| == if 0i i else -i fi
	Thm* x:. |x|
gcd	Def gcd(a;b) == if b=0 a else gcd(b;a rem b) fi  (recursive)
	Thm* a,b:. gcd(a;b)
nat	Def  == {i:| 0i }
	Thm*   Type

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