Definition no_preds (r: resource) :=
match r with NO _ _ => True | YES _ _ _ pp => pp=NoneP | PURE _ pp => pp=NoneP end.

Lemma remake_rmap:
forall (f: AV.address -> resource) g,
forall n,
(forall l, (exists m, level m = n /\ f l = m @ l) \/ no_preds (f l)) ->
ghost_fmap (approx n) (approx n) g = g ->
{phi: rmap | level phi = n /\ resource_at phi = f /\ ghost_of phi = g}.