(* 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.

Lemma access_cur_max: forall m a,
Mem.perm_order'' (access_at m a Max)  (access_at m a Cur).