Corollary mem_obs_eq_domain_ren:
    forall f m m',
      mem_obs_eq f m m' ->
      domain_memren f m.

Lemma decode_val_obs: forall f vl1 vl2 chunk, (forall b1 b1' b2 : block, f b1 = Some b2 -> f b1' = Some b2 -> b1 = b1') -> Coqlib.list_forall2 (memval_obs_eq f) vl1 vl2 -> val_obs f (decode_val chunk vl1) (decode_val chunk vl2).