Corollary restrPermMap_Cur :
    forall p' m (Hlt: permMapLt p' (getMaxPerm m)) b ofs,
      permission_at (restrPermMap Hlt) b ofs Cur =
      Maps.PMap.get b p' ofs.Corollary restrPermMap_Max :
    forall p' m (Hlt: permMapLt p' (getMaxPerm m)) b ofs,
      permission_at (restrPermMap Hlt) b ofs Max =
      Maps.PMap.get b (getMaxPerm m) ofs.

Lemma restrPermMap_can : forall (p : access_map) (m m': mem) (Hlt: permMapLt p (getMaxPerm m)) (Hrestrict: restrPermMap Hlt = m'), isCanonical (getCurPerm m').