(* Require Import compcert.exportclight.Clightdefs. Require Import compcert.cfrontend.Ctypes. (*NEW*)*)
Require Export VST.sepcomp.Address.
Require Export VST.msl.eq_dec.
Instance EqDec_ident: EqDec ident := ident_eq.
Instance EqDec_byte: EqDec byte := Byte.eq_dec.
(*Moved to base.v so that this file does not need to Import Clightdefs ad Ctypes Instance EqDec_type: EqDec type := type_eq.*)
Instance EqDec_int: EqDec int := Int.eq_dec.
Instance EqDec_int64: EqDec int64 := Int64.eq_dec.
Instance EqDec_float: EqDec float := Float.eq_dec.
Instance EqDec_float32: EqDec float32 := Float32.eq_dec.
Instance EqDex_ptr : EqDec ptrofs := Ptrofs.eq_dec. (*NEW*)
Instance EqDec_memval: EqDec memval.
Transparent Mem.alloc.
Opaque Mem.alloc.
Transparent Mem.free.
Opaque Mem.free.

Lemma store_access:
forall chunk m1 b ofs v m2 (STORE: Mem.store chunk m1 b ofs v = Some m2),
access_at m1 = access_at m2.