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

Lemma find_label_ok:
forall nextb lbl s (al : list cont') (k' : cont),
cont_ok nextb al ->
find_label lbl s al = Some k' ->
cont_ok nextb k'
with find_label_ls_ok:
forall nextb lbl s (al : list cont') (k' : cont),
cont_ok nextb al ->
find_label_ls lbl s al = Some k' ->
cont_ok nextb k'.