Section MEMORY_BLOCK_AGGREGATE.
Context {cs: compspecs}.

Lemma memory_block_array_pred': forall {A}{d: Inhabitant A} (a: A) sh t z b ofs,
0 <= z ->
0 <= ofs /\ ofs + sizeof t * z < Ptrofs.modulus ->
array_pred 0 z
(fun i _ p =>
memory_block sh (sizeof t) (offset_val (sizeof t * i) p))
(list_repeat (Z.to_nat z) a)
(Vptr b (Ptrofs.repr ofs))  =
memory_block sh (sizeof t * z) (Vptr b (Ptrofs.repr ofs)).