End SepBind.
Definition verify' A (s : spec A) i (r : ans A -> heap -> Prop) :=
def i -> s.1 i /\ forall y m, s.2 y i m -> def m -> r y m.
Notation verify s i r := (@verify' _ [s] i r).
Section SepFrame.
Variables (A : Type) (s : spec A).

Lemma frame0 i r : verify' s i r -> verify s i r.