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

Lemma loadbytes_proj_ok:
forall m loc ofs sz bl ch q,
block_ok (Mem.nextblock m) loc ->
mem_wd2 m ->
Mem.loadbytes m loc ofs sz = Some bl ->
val_ok (Mem.nextblock m) (Val.load_result ch (proj_value q bl)).