Some definitions of interest.
gcd	Def gcd(a;b) == if b=0 a else gcd(b;a rem b) fi  (recursive)
	Thm* a,b:. gcd(a;b)
gcd_p	Def GCD(a;b;y) == y | a & y | b & (z:. z | a & z | b  z | y)
	Thm* a,b,y:. GCD(a;b;y)  Prop

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