(*Clight-specific: Require Import VST.veric.extend_tc. Require Import VST.veric.Clight_seplog. Require Import VST.veric.Clight_assert_lemmas. Require Import VST.veric.tycontext. Require Import VST.veric.expr2. Require Import VST.veric.expr_lemmas. *)
Local Open Scope pred.
Obligation Tactic := idtac.

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'.