fact: Definition clmap (c : configuration 3 n) : configuration 4 n := [ffun i => if c i == 0 :> nat then p1 else if c i == 1 :> nat then p0 else p2].
imports: mathcomp(all_ssreflect finmap) hanoi(extra star gdist lhanoi3 ghanoi ghanoi4 shanoi)