proposition: Lemma leq_beta n l k : α_[l] k <= β_[n, l] k.
proof: Proof. rewrite /beta; case: (_ < _) => /=; last first. by apply: bound_alphaL. by case: (_ == _) => //=; apply: bound_alphaL. Qed.
imports: mathcomp(all_ssreflect finmap) hanoi(extra star gdist lhanoi3 ghanoi ghanoi4 shanoi)