(**************** ALLOCPOOL ***************************)
Next Obligation.
intros. intro; intros.
destruct H0; split; auto.
intro i; specialize (H1 i).
destruct (lt_dec i b).
eapply age1_resource_at_identity; eauto.
apply (age1_YES _ _ _ _ _ H); auto.
Qed.

(* Specifications: *)
Lemma allocpool_make_world: forall p G n,
match_specs p G ->
app_pred (allocpool (boundary p)) (make_world G (initial_heap p) n).
Lemma alloc: forall b, allocpool b = ((!! (b > 0) && mapsto b 0) * allocpool (S b)).
Require msl.seplog msl.alg_seplog.