Remark sound_state_inv:
  forall st cunit,
  sound_state st -> linkorder cunit prog -> sound_state_base cunit ge st.

Lemma store_init_data_other: forall m b p id m' ab b', Genv.store_init_data ge m b p id = Some m' -> b' <> b -> bmatch bc m b' ab -> bmatch bc m' b' ab.