Set Bullet Behavior "Strict Subproofs".
(* @andrew those lemmas already somewhere? *)

(* Specifications: *)
Lemma NO_ext: forall sh1 sh2 p1 p2, sh1=sh2 -> NO sh1 p1 = NO sh2 p2.
Lemma rmap_bound_join {b phi1 phi2 phi3} :
sepalg.join phi1 phi2 phi3 ->
rmap_bound b phi3 <-> (rmap_bound b phi1 /\ rmap_bound b phi2).
Lemma resource_decay_aux_spec b phi1 phi2 :
resource_decay b phi1 phi2 -> resource_decay_aux b phi1 phi2.
Lemma resource_decay_aux_spec_inv b phi1 phi2 :
resource_decay_aux b phi1 phi2 -> resource_decay b phi1 phi2.
Lemma resource_fmap_approx_idempotent n r :
resource_fmap (approx n) (approx n) (resource_fmap (approx n) (approx n) r) = resource_fmap (approx n) (approx n) r.