proposition: Lemma slice_uouo s a b : &:s `]a,b+a] = &:(&:s `]a,+oo[) `]-oo,b[.
proof: Proof. by rewrite /slice /= !addn1 !addn0 drop0 take_size take_drop addnS. Qed.
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(ssrnat eqtype seq path interval order) pcm(options prelude ordtype seqext)