Some definitions of interest.
mklist	Def mklist(n;f) == primrec(n;nil;i,l. l @ [(f(i))])
	Thm* T:Type, n:, f:(nT). mklist(n;f)  T List
append	Def as @ bs == Case of as; nil  bs ; a.as'  [a / (as' @ bs)]  (recursive)
	Thm* T:Type, as,bs:T List. (as @ bs)  T List
int_seg	Def {i..j} == {k:| i  k < j }
	Thm* m,n:. {m..n}  Type
length	Def ||as|| == Case of as; nil  0 ; a.as'  ||as'||+1  (recursive)
	Thm* A:Type, l:A List. ||l||
	Thm* ||nil||
not	Def A == A  False
	Thm* A:Prop. (A)  Prop
primrec	Def primrec(n;b;c) == if n=0 b else c(n-1,primrec(n-1;b;c)) fi  (recursive)
	Thm* T:Type, n:, b:T, c:(nTT). primrec(n;b;c)  T

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