Definition hist_R g i R v := EX h : _, !!(apply_hist (vint i) h = Some (vint v)) && ghost_ref h g * R h v.
Definition atomic_loc_hist sh p g i R (h : hist) := atomic_loc sh p (hist_R g i R) * ghost_hist sh h g.

(* Specifications: *)
Lemma atomic_loc_hist_isptr : forall sh p g i R h,
atomic_loc_hist sh p g i R h = !!(isptr p) && atomic_loc_hist sh p g i R h.