Section MEMORY_BLOCK_AGGREGATE.
Context {cs: compspecs}.

Lemma memory_block_union_pred: forall sh m sz {A} (v: compact_sum (map A m)) b ofs,
(m = nil -> sz = 0) ->
union_pred m (fun it _ => memory_block sh sz) v (Vptr b (Ptrofs.repr ofs)) =
memory_block sh sz (Vptr b (Ptrofs.repr ofs)).