End SepWrite.
Section SepAlloc.
Variables (A : Type) (v : A).
Definition alloc_s : spec ptr :=
(emp, fun y i m => exists x, y = Val x /\ m = x :-> v).

Lemma allocP : Model.conseq (Model.alloc_s v) [alloc_s].
Definition alloc : STsep alloc_s := Model.Do (Model.alloc v) allocP.