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

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