Section EvalWriteR.
Variables (A B C : Type).

Lemma bnd_writeR s (v : A) (w : C) x h1 h2
(f : Update h1 h2 (x:->v) (x:->w)) (r : cont B) :
verify (s tt) h1 r ->
verify (bind_s (write_s x v) s) h2 r.