intros r H b ofs.
rewrite empty_map_spec.
specialize (H b ofs).
apply perm_coh_empty_2; assumption.
Qed.

(* Specifications: *)
Lemma permCoh_empty': forall x,
permMapCoherence x empty_map.
Lemma perm_of_res_lock_not_Freeable:
forall r,
Mem.perm_order'' (Some Writable) (perm_of_res_lock r).