Skip to content
Snippets Groups Projects
Commit 0d6031e4 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Rename `timelessP` into `timelessP`.

This was an oversight in !63.
parent 88e93595
No related branches found
No related tags found
No related merge requests found
......@@ -29,8 +29,8 @@ Notation "◇ P" := (uPred_except_0 P)
Instance: Params (@uPred_except_0) 1.
Typeclasses Opaque uPred_except_0.
Class Timeless {M} (P : uPred M) := timelessP : P P.
Arguments timelessP {_} _ {_}.
Class Timeless {M} (P : uPred M) := timeless : P P.
Arguments timeless {_} _ {_}.
Hint Mode Timeless + ! : typeclass_instances.
Instance: Params (@Timeless) 1.
......@@ -908,7 +908,7 @@ Proof.
Qed.
Global Instance valid_timeless {A : cmraT} `{CmraDiscrete A} (a : A) :
Timeless ( a : uPred M)%I.
Proof. rewrite /Timeless !discrete_valid. apply (timelessP _). Qed.
Proof. rewrite /Timeless !discrete_valid. apply (timeless _). Qed.
Global Instance and_timeless P Q: Timeless P Timeless Q Timeless (P Q).
Proof. intros; rewrite /Timeless except_0_and later_and; auto. Qed.
Global Instance or_timeless P Q : Timeless P Timeless Q Timeless (P Q).
......@@ -951,11 +951,11 @@ Global Instance persistently_if_timeless p P : Timeless P → Timeless (□?p P)
Proof. destruct p; apply _. Qed.
Global Instance eq_timeless {A : ofeT} (a b : A) :
Discrete a Timeless (a b : uPred M)%I.
Proof. intros. rewrite /Timeless !discrete_eq. apply (timelessP _). Qed.
Proof. intros. rewrite /Timeless !discrete_eq. apply (timeless _). Qed.
Global Instance ownM_timeless (a : M) : Discrete a Timeless (uPred_ownM a).
Proof.
intros ?. rewrite /Timeless later_ownM. apply exist_elim=> b.
rewrite (timelessP (ab)) (except_0_intro (uPred_ownM b)) -except_0_and.
rewrite (timeless (ab)) (except_0_intro (uPred_ownM b)) -except_0_and.
apply except_0_mono. rewrite internal_eq_sym. apply impl_elim_r'.
apply: internal_eq_rewrite.
Qed.
......
......@@ -871,7 +871,7 @@ Qed.
Global Instance elim_modal_timeless_bupd P Q :
Timeless P IsExcept0 Q ElimModal ( P) P Q Q.
Proof.
intros. rewrite /ElimModal (except_0_intro (_ -∗ _)) (timelessP P).
intros. rewrite /ElimModal (except_0_intro (_ -∗ _)) (timeless P).
by rewrite -except_0_sep wand_elim_r.
Qed.
Global Instance elim_modal_timeless_bupd' p P Q :
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment