Definition AE_loc sh l p g i R (h : hist) := lock_inv sh l (AE_inv p g i R) * ghost_hist sh h g.

(* Specifications: *)
Lemma AE_inv_super_non_expansive : forall n p g i R, compcert_rmaps.RML.R.approx n (AE_inv p g i R) = compcert_rmaps.RML.R.approx n (AE_inv p g i (fun h v => compcert_rmaps.RML.R.approx n (R h v))).
Lemma AE_loc_super_non_expansive : forall n sh l p g i R h, compcert_rmaps.RML.R.approx n (AE_loc sh l p g i R h) = compcert_rmaps.RML.R.approx n (AE_loc sh l p g i (fun h v => compcert_rmaps.RML.R.approx n (R h v)) h).