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

Lemma mf_align : forall (m : mem) (f : memren) (b1 b2 : block) (delta : Z) (chunk : memory_chunk) (ofs : Z) (p : permission), f b1 = Some b2 -> Mem.range_perm m b1 ofs (ofs + size_chunk chunk) Max p -> (align_chunk chunk | 0%Z)%Z.