1. n : 
2. a : 
3. z : {a...}
4. m : {a...z-1}
5. f : {1...n}Peg
6. g : {1...n}Peg
7. f(n)  g(n)
8. s1 : {a...m}{1...n-1}Peg
9. s2 : {m+1...z}{1...n-1}Peg
10. s1 is a Hanoi(n-1 disk) seq on a..m
11. s1(a) = f
12. s2 is a Hanoi(n-1 disk) seq on m+1..z
13. s2(z) = g
14. s1(m) = s2(m+1)
15. i:{1...n-1}. s1(m,i)  f(n) & s2(m+1,i)  g(n)
  HanoiHelper(n; s1; f; s2; g)/r1,r2.
  (r1 @(m) r2) is a Hanoi(n disk) seq on a..z & r1(a) = f & r2(z) = g

By:

Compute CoHanoiHelper(n; s1; f; s2; g)/r1,r2. Co(r1 @(m) r2) is a Hanoi(n disk) seq on a..z Co& r1(a) = f  {1...n}Peg Co& r2(z) = g  {1...n}Peg Co* Co((s1(?) {to n-1}  f {to n}) @(m) (s2(?) {to n-1}  g {to n})) Cois a Hanoi(n disk) seq on a..z Co& (s1(?) {to n-1}  f {to n})(a) = f  {1...n}Peg Co& (s2(?) {to n-1}  g {to n})(z) = g  {1...n}Peg

1	((s1(?) {to n-1}  f {to n}) @(m) (s2(?) {to n-1}  g {to n}))   is a Hanoi(n disk) seq on a..z	16 steps
2	(s1(?) {to n-1}  f {to n})(a) = f	4 steps
3	(s2(?) {to n-1}  g {to n})(z) = g	4 steps

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