Notation corestepN := (corestepN (AsmContext.coarse_semantics initU)).

Lemma mem_obs_eq_restr : forall (m m' : Mem.mem) (f : memren) (memObsEq: mem_obs_eq f m m') (pf: permMapLt (getCurPerm m) (getMaxPerm m)) (pf': permMapLt (getCurPerm m') (getMaxPerm (setMaxPerm m'))), mem_obs_eq f (restrPermMap pf) (restrPermMap pf').