Definition empty_rmap' : rmap' :=
((fun _: AV.address => NO Share.bot bot_unreadable), nil).
Definition empty_rmap (n:nat) : rmap := R.squash (n, empty_rmap').

(* Specifications: *)
Lemma emp_empty_rmap: forall n, emp (empty_rmap n).
Lemma empty_rmap_level:
forall lev, level (empty_rmap lev) = lev.
Lemma approx_FF: forall n, approx n FF = FF.
Lemma resource_at_make_rmap: forall f g lev H Hg,
resource_at (proj1_sig (make_rmap f g lev H Hg)) = f.