Section MEMORY_BLOCK_AGGREGATE.
Context {cs: compspecs}.

Lemma memory_block_array_pred: forall  {A}{d: Inhabitant A} sh t lo hi v b ofs,
0 <= ofs + sizeof t * lo /\ ofs + sizeof t * hi < Ptrofs.modulus ->
0 <= lo <= hi ->
Zlength v = hi - lo ->
array_pred lo hi
(fun i _ p => memory_block sh (sizeof t) (offset_val (sizeof t * i) p)) v
(Vptr b (Ptrofs.repr ofs)) =
memory_block sh (sizeof t * (hi - lo)) (Vptr b (Ptrofs.repr (ofs + sizeof t * lo))).