Some definitions of interest.
int_seg	Def  {i..j} == {k:| i  k < j }
	Thm*  m,n:. {m..n}  Type
int_upper	Def  {i...} == {j:| ij }
	Thm*  n:. {n...}  Type
iter_via_intseg	Def  Iter(f;u) i:{a..b}. e(i) Def  == if a<b f((Iter(f;u) i:{a..b-1}. e(i)),e(b-1)) else u fi Def  (recursive)
	Thm*  f:(AAA), u:A, a,b:, e:({a..b}A). (Iter(f;u) i:{a..b}. e(i))  A
nat	Def   == {i:| 0i }
	Thm*    Type
not	Def  A == A  False
	Thm*  A:Prop. (A)  Prop
split_factor1	Def  split_factor1(g; x)(u) Def  == if u=x g(x)+g(xx)+g(xx) ; u=xx 0 else g(u) fi
	Thm*  k:{2...}, g:({2..k}), x:{2..k}. Thm*  xx<k  split_factor1(g; x)  {2..k}

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