Notation "p '--o' q"   := (lolli p q) (at level 75) : stsep_scope.Notation "[ s ]" := (fr s).Definition ret_s : spec A := (emp, fun y i m => m = i /\ y = Val x).Definition ret := Model.Do (Model.ret x) retP.Definition bind : STsep bind_s := Model.Do (Model.bind e1 e2) bindP.

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