Definition makeCurMax_map (mem_access:PMap.t (Z -> perm_kind -> option permission)):
    PMap.t (Z -> perm_kind -> option permission):=
    PMap.map (fun f => fun z k => f z Max) mem_access.Definition makeCurMax (m:mem): mem.

Lemma makeCurMax_correct : forall m b ofs k, permission_at m b ofs Max = permission_at (makeCurMax m) b ofs k.