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

Lemma sem_cast_ok:
forall nextb v1 t1 t2 m v,
val_ok nextb v1 ->
Cop.sem_cast v1 t1 t2 m = Some v ->
val_ok nextb v.