proposition: Lemma oex2_split V R a t1 t2 v (h : natmap V) ks (z0 : R) : t1 <[ks] t2 -> (t1, v) \In h -> oexec_lt a ks t2 h z0 = oevalv a (&=ks `]t1, t2[) h (a (oexec_lt a ks t1 h z0) v).
proof: Proof. move=>T H; rewrite /oexec_lt. rewrite (eqsl_uoxo (sltW T)) oev_cat eqsl_xoL T /=. by move/In_find: H=>->. Qed.
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(ssrnat eqtype seq path interval) pcm(options prelude pred finmap rtc seqext useqord uslice uconsec)