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

Lemma deref_loc_ok:
forall m loc ofs t1 v,
mem_wd2 m ->
block_ok (Mem.nextblock m) loc ->
deref_loc t1 m loc ofs v ->
val_ok (Mem.nextblock m) v.