IF YOU CAN SEE THIS go to http://www.cs.cornell.edu/Info/People/sfa/Nuprl/Shared/Xindentation_hack_doc.html
Moving one disk leaves the smaller disks in place.
At:
hanoi step at otherpeg n:, f,g:({1...n}Peg), k:{1...n}.
Moving disk k of n takes f to g f = (i.otherPeg(f(k); g(k))) {1...k-1}Peg
By:
SimilarTo:
Thm*n:, f,g:({1...n}Peg), k:{1...n}.
Thm* Moving disk k of n takes f to gf(k) g(k)
THEN
New:i FunExtensionality