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.
Definition bounded_mem (m: mem) := bounded_maps.bounded_map (snd (getMaxPerm m)) .

Lemma store_init_data_list_bounded:
forall F V ge m b ofs B m',
bounded_mem m ->
@Globalenvs.Genv.store_init_data_list F V ge m b ofs B = Some m' ->
bounded_mem m'.