(* Those were overwritten in structured_injections *)
Notation join := sepalg.join.Notation join_assoc := sepalg.join_assoc.Definition islock_pred (R: pred rmap) r := 
 exists sh sh' z, r = YES sh sh' (LK z 0) (SomeP rmaps.Mpred (fun _ => R)).

(* Specifications: *)
Lemma islock_pred_join_sub {r1 r2 R} : join_sub r1 r2 -> islock_pred R r1 -> islock_pred R r2.