IF YOU CAN SEE THIS go to http://www.cs.cornell.edu/Info/People/sfa/Nuprl/Shared/Xindentation_hack_doc.html
At:
hanoi peg perm comp1 p,r,q,s:Peg. pqrs permute(p to r ; q to s)(p) = r
By:
Compute
Copermute(p to r ; q to s)(p) * if p=pr ; p=qs else otherPeg(r; s) fi