End EvalWriteR.
Section EvalDeallocR.
Variables (A B : Type).

Lemma bnd_deallocR s (v : A) x h1 h2
(f : Update h1 h2 empty (x:->v)) (r : cont B) :
verify (s tt) h1 r ->
verify (bind_s (dealloc_s x) s) h2 r.