Some definitions of interest.
gt	Def i>j == j<i
	Thm* i,j:. (i>j)  Prop
habs_num	Def abs_num == n:. @m:. (n = rep_num(m)  )
	Thm* abs_num  (hind  hnum)
his_num_rep	Def is_num_rep Def == m:. P: Def == m:. ((P(zero_rep))(n:. (P(n))(P(suc_rep(n)))))(P(m))
	Thm* is_num_rep  (hind  hbool)
hrep_num	Def rep_num == n:. ncompose(suc_rep;n;zero_rep)
	Thm* rep_num  (hnum  hind)
hzero_rep	Def zero_rep == @x:. (y:. x = suc_rep(y)  )
	Thm* zero_rep  hind
hsuc_rep	Def suc_rep == x:. (@f:. (one_one(;;f) & onto(;;f)))(x)
	Thm* suc_rep  (hind  hind)
iso_pair	Def iso_pair('a;'b;P;rep;abs) Def == (r:'b. abs(r) = (@a:'a. (r = rep(a)))) & type_definition('b;'a;P;rep)
	Thm* 'a,'b:S, P:('b), rep:('a'b), abs:('b'a). Thm* iso_pair('a;'b;P;rep;abs)  Prop
nat	Def  == {i:| 0i }
	Thm*   Type
	Thm*   S
ncompose	Def ncompose(f;n;x) == if n=0 then x else f(ncompose(f;n-1;x)) fi   (recursive)
	Thm* 'a:Type, n:, x:'a, f:('a'a). ncompose(f;n;x)  'a

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