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_valid : forall m b, Mem.valid_block m b <-> Mem.valid_block (makeCurMax m) b.