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

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