Set Bullet Behavior "Strict Subproofs".
(** * Results related to resouce_decay *)
(* todo: maybe remove one of those lemmas *)

(* Specifications: *)
Lemma isSome_find_map addr f lset :
ssrbool.isSome (AMap.find (elt:=option rmap) addr (AMap.map f lset)) =
ssrbool.isSome (AMap.find (elt:=option rmap) addr lset).
Lemma interval_adr_range b start length i :
Intv.In i (start, start + length) <->
adr_range (b, start) length (b, i).
Lemma join_YES_l {r1 r2 r3 sh1 sh1' k pp} :
sepalg.join r1 r2 r3 ->
r1 = YES sh1 sh1' k pp ->
exists sh3 sh3',
r3 = YES sh3 sh3' k pp.