proposition: Lemma consec_sltW ks t1 t2 : consec ks t1 t2 -> t1 <=[ks] t2.
proof: Proof. by move/consec_slt/sltW. Qed.
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(ssrnat eqtype seq path interval order) pcm(options prelude ordtype seqext slice useqord uslice)