Section ALLOC_OK.
Variable nextb: positive.
Variable nextb': positive.
Variable LESS:  (nextb <= nextb')%positive.
End ALLOC_OK.

Lemma alloc_variables_ok:
forall ve m vl ve' m',
mem_wd2 m ->
venv_ok (Mem.nextblock m) ve ->
alloc_variables ge ve m vl ve' m' ->
venv_ok (Mem.nextblock m') ve' /\ mem_wd2 m' /\ (Mem.nextblock m <= Mem.nextblock m')%positive.