(* Lemma isLKCT_rewrite r : (forall sh sh' z P, r <> YES sh sh' (LK z) P /\ r <> YES sh sh' (CT z) P) <-> ~isLK r /\ ~isCT r. *)
(* Lemma isLK_rewrite r : (forall (sh : Share.t) Psh (z : Z) (P : preds), r <> YES sh Psh (LK z) P) <-> ~ isLK r. *)

(* Lemma isCT_age_to n phi loc : isCT (age_to n phi @ loc) = isCT (phi @ loc). *)
Lemma predat_inj {phi loc R1 R2} :
predat phi loc R1 ->
predat phi loc R2 ->
R1 = R2.