Def  HanoiSTD(n disks; from: p; to: q; indexing from: a)
Def  == if n=0 <a,x,i. whatever>
Def  == else HanoiSTD(n-1 disks; from: p; to: otherPeg(p; q); indexing from: a)
Def  == else /m,s1.
Def  == else HanoiSTD(n-1 disks; from: otherPeg(p; q); to: q; indexing from: m
Def  == else HanoiSTD(+1)
Def  == else /z,s2. <z,HanoiHelper(n; s1; i.p; s2; i.q)/r1,r2. r1 @(m) r2> fi
Def  (recursive)

is mentioned by

Thm*  n:, p,q:Peg. Thm*  p  q Thm*   Thm*  (a:.  Thm*  (1of(HanoiSTD(n disks; from: p; to: q; indexing from: a)) = a+(2^n)-1)	[hanoi_general_exists_lemma2PROG_endpoint]
Thm*  n:, p,q:Peg. Thm*  p  q Thm*   Thm*  (a:.  Thm*  (HanoiSTD(n disks; from: p; to: q; indexing from: a)/z,s. Thm*  (s is a Hanoi(n disk) seq on a..z Thm*  (& s(a) = (i.p)  {1...n}Peg Thm*  (& s(z) = (i.q)  {1...n}Peg)	[hanoi_sol2_ala_generalPROGworks]
Thm*  n:, p,q:Peg. Thm*  p  q Thm*   Thm*  (a:.  Thm*  (HanoiSTD(n disks; from: p; to: q; indexing from: a) Thm*  (= Thm*  ((HanoiSTD(n-1 disks; from: p; to: otherPeg(p; q); indexing from: a)/m,s1. Thm*  ((HanoiSTD(n-1 disks; from: otherPeg(p; q); to: q; indexing from: m+1) Thm*  ((/z,s2. <z,HanoiHelper(n; s1; i.p; s2; i.q)/r1,r2. r1 @(m) r2>))	[hanoi_sol2_ala_generalPROGcomp]

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