Opaque Mem.loadbytes.
(** ** Lemmas about [Mem.store] and [mem_obs_eq]*)

(* Specifications: *)
Lemma encode_val_obs_eq:
forall (f : memren) (v1 v2 : val) (chunk : memory_chunk),
val_obs f v1 v2 ->
list_forall2 (memval_obs_eq f) (encode_val chunk v1)
(encode_val chunk v2).
Lemma setN_obs_eq :
forall (access : Z -> Prop) (f : memren) (vl1 vl2 : seq memval),
list_forall2 (memval_obs_eq f) vl1 vl2 ->
forall (p : Z) (c1 c2 : ZMap.t memval),
(forall q : Z,
access q ->
memval_obs_eq f (ZMap.get q c1) (ZMap.get q c2)) ->
forall q : Z,
access q ->
memval_obs_eq f (ZMap.get q (Mem.setN vl1 p c1))
(ZMap.get q (Mem.setN vl2 p c2)).