(* Lemma store_forward: forall m b ofs v ch m' (M:Mem.store ch m b ofs v = Some m'), mem_forward m m'.  Lemma storebytes_forward: forall m b ofs bytes m' (M: Mem.storebytes m b ofs bytes = Some m'), mem_forward m m'. *)

Lemma alloc_forward:
forall m lo hi m' b
(A: Mem.alloc m lo hi = (m',b)),
mem_forward m m'.