fact: Fixpoint distanceL n (l : seq (configuration 4 n)) : nat := if l is a :: l1 then if l1 is b :: _ then `d[a, b]_smove + distanceL l1 else 0 else 0.
imports: mathcomp(all_ssreflect finmap) hanoi(extra star gdist lhanoi3 ghanoi ghanoi4 shanoi)