Some definitions of interest.
sfa_doc_ntuple_contains	Def  u in X: A^n. P(u) Def == n = 1   & P(X)  n2 & (X/a,rest. P(a)  ( u in rest: A^(n-1). P(u))) Def (recursive)
	Thm* A:Type, P:(AProp), n:, X:(A^n). ( u in X: A^n. P(u))  Prop
nat	Def  == {i:| 0i }
	Thm*   Type
sfa_doc_ntuple	Def A^n == if n=0 Unit ; n=1 A else A(A^(n-1)) fi  (recursive)
	Thm* A:Type, n:. (A^n)  Type

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