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

Lemma bind_parameter_temps_ok:
forall m fl vl te te',
tenv_ok (Mem.nextblock m) te ->
Forall (val_ok (Mem.nextblock m))vl ->
bind_parameter_temps fl vl te = Some te' ->
tenv_ok (Mem.nextblock m) te'.