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

Lemma cl_step_ok:
forall c m c' m',
Clight_new.cl_step ge c m c' m' ->
Smallstep.globals_not_fresh (Clight.genv_genv ge) m /\
mem_wd2 m /\ corestate_ok (Mem.nextblock m) c ->
mem_wd2 m' /\
corestate_ok (Mem.nextblock m') c' /\
(Mem.nextblock m <= Mem.nextblock m')%positive.