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

Lemma store_init_data_list_sound: forall idl m b p m' ab, Genv.store_init_data_list ge m b p idl = Some m' -> bmatch bc m b ab -> bmatch bc m' b (store_init_data_list ab p idl).