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),
AV.valid (res_option oo f) ->
forall n,
(forall l, (exists m, level m = n /\ f l = m @ l) \/ no_preds (f l)) ->
{phi: rmap | level phi = n /\ resource_at phi = f}.