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

Lemma mem_ok_goto:
forall (k : cont) (lbl : Clight.label)
(s' : Clight.statement) (nextb : block),
cont_ok nextb k ->
forall (s : Clight.statement) (k' : cont),
find_label lbl s
(Kseq s' :: Clight_new.call_cont k) =
Some k' -> cont_ok nextb k'.