End SepDealloc.
Section SepThrow.
Variables (A : Type) (e : exn).
Definition throw_s : spec A :=
(emp, fun y i m => m = i /\ y = Exn e).

Lemma throwP : Model.conseq (Model.throw_s A e) [throw_s].
Definition throw : STsep throw_s := Model.Do (Model.throw A e) throwP.