proposition: Lemma size_rpegE n p (c : _ _ n) : size_rpeg c p = size (rpeg c p).
proof: Proof. elim: n p c => //= n IH p c. case: eqP => [clEp|/eqP clDp]; first by rewrite size_map IH. by rewrite size_cat /= !size_map size_ppeg prednK ?expn_gt0 // IH. Qed.
imports: mathcomp(all_ssreflect) hanoi(extra gdist ghanoi ghanoi3)