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

Lemma encode_val_obs_eq: forall (f : memren) (v1 v2 : val) (chunk : memory_chunk), val_obs f v1 v2 -> list_forall2 (memval_obs_eq f) (encode_val chunk v1) (encode_val chunk v2).