proposition: Lemma eval_leUn A R a (h1 h2 : [pcm of natmap A]) t (z0 : R) : valid (h1 \+ h2) -> t <= last_key h1 -> {in dom h2, forall k, k > last_key h1} -> eval a (le t) (h1 \+ h2) z0 = eval a (le t) h1 z0.
proof: Proof. by move=>V K D; apply: eq_filt_eval; apply: umfilt_leUn. Qed.
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(ssrnat eqtype seq path interval) pcm(options prelude pred finmap rtc seqext useqord uslice uconsec)