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

Lemma call_cont_ok_lemma:
forall f optid k m ve' te' k',
call_cont k = Kcall optid f ve' te' :: k' ->
Forall (cont'_ok (Mem.nextblock m)) k ->
venv_ok (Mem.nextblock m) ve' /\
tenv_ok (Mem.nextblock m) te' /\ cont_ok (Mem.nextblock m) k'.