fact: Fixpoint ppeg {n : nat} p1 p2 := if n isn't n1.+1 return seq (configuration 3 n) then [::] else let p3 := `p[p1, p2] in [seq ↑[i]_p1 | i <- ppeg p1 p3] ++ [seq ↑[i]_p2 | i <- `c[p3] :: ppeg p3 p2].
imports: mathcomp(all_ssreflect) hanoi(extra gdist ghanoi ghanoi3)