proposition: Lemma sle_trans ks : transitive (seq_le ks).
proof: Proof. by move=>y x z; apply: leq_trans. Qed.
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(ssrnat eqtype seq path interval order) pcm(options prelude ordtype seqext)