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.

(* Specifications: *)
Lemma makeCurMax_correct : forall m b ofs k, permission_at m b ofs Max = permission_at (makeCurMax m) b ofs k.
Lemma makeCurMax_valid : forall m b, Mem.valid_block m b <-> Mem.valid_block (makeCurMax m) b.