Require Export Axioms.

(* Specifications: *)
Lemma storebytes_freshloc: forall m b z bytes m'
(SB: Mem.storebytes m b z bytes = Some m'),
freshloc m m' = (fun _ : block => false).
Lemma assign_loc_freshloc: forall ty m b ofs v m' (AL:assign_loc ty m b ofs v m'),
freshloc m m' = fun b => false.