(* Lemma isLK_rewrite r : (forall (sh : Share.t) (rsh : shares.readable_share sh) (z : Z) (P : preds), r <> YES sh rsh (LK z) P) <-> ~ isLK r. *)

Lemma personal_mem_rewrite m phi phi' pr pr' :
phi = phi' ->
@personal_mem m phi pr = @personal_mem m phi' pr'.