Some definitions of interest.
hanoi_peg_perm	Def  permute(p to r ; q to s)(u) == if u=p r ; u=q s else otherPeg(r; s) fi
	Thm*  p,r,q,s:Peg. p  q  r  s  permute(p to r ; q to s)  PegPeg
eq_hanoi_PEG	Def  p=q == if p=q true ; false fi
	Thm*  p,q:Peg. (p=q)
hanoi_PEG	Def  Peg == {1...3}
	Thm*  Peg  Type
hanoi_otherpeg	Def  otherPeg(x; y) == 6-(x+y)
	Thm*  x,y:Peg. x  y  otherPeg(x; y)  Peg
inject	Def  Inj(A; B; f) == a1,a2:A. f(a1) = f(a2)  B  a1 = a2
	Thm*  A,B:Type, f:(AB). Inj(A; B; f)  Prop
int_iseg	Def  {i...j} == {k:| ik & kj }
	Thm*  i,j:. {i...j}  Type
nequal	Def  a  b  T == a = b  T
	Thm*  A:Type, x,y:A. (x  y)  Prop

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