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

Lemma binary_operation_ok:
forall nextb (op : Cop.binary_operation) (v1 : val) (t1 : type)
(v2 : val) (t2 : type) (m : mem) (v : val),
val_ok nextb v1 ->
val_ok nextb v2 ->
Cop.sem_binary_operation (Clight.genv_cenv ge) op v1 t1 v2 t2 m = Some v ->
val_ok nextb v.