End SepBlockAlloc.
Section SepDealloc.
Variable x : ptr.
Definition dealloc_s : spec unit :=
(fun i => exists A : Type, exists v:A, i = x :-> v,
fun y i m => y = Val tt /\ m = empty).

(* Specifications: *)
Lemma deallocP : Model.conseq (Model.dealloc_s x) [dealloc_s].
Definition dealloc : STsep dealloc_s := Model.Do (Model.dealloc x) deallocP.