(* resource coherence *)

(* FIXME: put somewhere else. *)
Definition fmap_option {A B} (v: option A) (m: B) (f: A -> B): B :=
  match v with
    | None => m
    | Some v' => f v'
  end.

Lemma inflate_initial_mem'_fmap: forall w, resource_fmap (approx (level w)) (approx (level w)) oo inflate_initial_mem' w = inflate_initial_mem' w.