proposition: Lemma ribbon_on_start_stop : start <= stop.
proof: Proof. move: Hrib => [Hsi _ Hs _]; rewrite leqNgt; apply/negP => /Hsi Habs. by rewrite Habs ltnn in Hs. Qed.
imports: HB(structures) mathcomp(all_ssreflect) tools sorted partition