Section EvalDoR.
Variables (A B : Type).

Lemma val_doR (s : spec A) h i (r : cont A) (f : Find1 h i) :
s.1 i ->
(forall x m,
s.2 (Val x) i m -> def (m :+ rest1) -> r (Val x) (m :+ rest1)) ->
(forall e m,
s.2 (Exn e) i m -> def (m :+ rest1) -> r (Exn e) (m :+ rest1)) ->
verify s h r.