(**************** 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.

Lemma allocpool_make_world: forall p G n,
match_specs p G ->
app_pred (allocpool (boundary p)) (make_world G (initial_heap p) n).