From mathcomp.ssreflect Require Import ssreflect ssrbool ssrnat ssrfun eqtype seq fintype finfun.
Set Implicit Arguments.
Definition bnd_from_init m := bounded_maps.bounded_map (snd (getMaxPerm m)) /\ (Mem.mem_access m).1 = fun z k => None.

(*This proof is already in juicy_machine. * move it to a more general position.*)
Lemma Mem_canonical_useful: forall m loc k,
fst (Mem.mem_access m) loc k = None.