(* 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 access_drop_2:
forall m b lo hi p,
(forall ofs, lo <= ofs < hi -> access_at m (b,ofs) Cur = Some Freeable) ->
{ m' | Mem.drop_perm m b lo hi p = Some m' }.