Some definitions of interest.
rel_star	Def (R^*)(x,y) == n:. x R^n y
	Thm* T:Type, R:(TTProp). (R^*)  TTProp
nat	Def  == {i:| 0i }
	Thm*   Type
rel_exp	Def R^n == if n=0 x,y. x = y  T else x,y. z:T. (x R z) & (z R^n-1 y) fi Def (recursive)
	Thm* n:, T:Type, R:(TTProp). R^n  TTProp
rel_implies	Def R1 => R2 == x,y:T. (x R1 y)  (x R2 y)
	Thm* T:Type, R1,R2:(TTProp). R1 => R2  Prop

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