proposition: Lemma path_lpeg n (c : configuration 3 n) p (cs := lpeg p c) : path rmove `c[p] cs.
proof: Proof. have HHs := @rsym 3. rewrite {}/cs /lpeg -(last_rpeg c) path_move_rev //. by apply: path_rpeg. Qed.
imports: mathcomp(all_ssreflect) hanoi(extra gdist ghanoi ghanoi3)