fact: Hypothesis IH: forall (l : nat) (p1 p2 p3 : (Equality.clone _ 'I_4)) (u : {ffun 'I_l.+1 -> configuration 4 n.+1}), p1 != p2 -> p1 != p3 -> p2 != p3 -> p1 != p0 -> p2 != p0 -> p3 != p0 -> (forall k : 'I_l.+1, 0 < k < l -> codom (u k) \subset [:: p2; a[p1, p3] k]) -> (S_[l] n.+1).*2 <= sd u + sp (u ord0) l p1 + sp (u ord_max) l (a[p1, p3] l).
imports: mathcomp(all_ssreflect finmap) hanoi(extra star gdist lhanoi3 ghanoi ghanoi4 shanoi)