Lemma store_init_data_outside': forall F V (ge: Genv.t F V) b a m p m', Genv.store_init_data ge m b p a = Some m' -> (forall b' ofs, (b=b' /\ p <= ofs < p + init_data_size a) \/ contents_at m (b', ofs) = contents_at m' (b', ofs)) /\ access_at m = access_at m' /\ nextblock m = nextblock m'.