Skip to content
Snippets Groups Projects
Commit ceedda12 authored by Ralf Jung's avatar Ralf Jung
Browse files

move MakePersistently instances to the correct file

parent 51ac794d
No related branches found
No related tags found
No related merge requests found
...@@ -177,17 +177,6 @@ Proof. ...@@ -177,17 +177,6 @@ Proof.
rewrite /Frame /MakeAbsorbingly=> <- <- /=. by rewrite absorbingly_sep_r. rewrite /Frame /MakeAbsorbingly=> <- <- /=. by rewrite absorbingly_sep_r.
Qed. Qed.
Global Instance make_persistently_emp : @KnownMakePersistently PROP emp True.
Proof.
by rewrite /KnownMakePersistently /MakePersistently
-persistently_True_emp persistently_pure.
Qed.
Global Instance make_persistently_True : @KnownMakePersistently PROP True True.
Proof. by rewrite /KnownMakePersistently /MakePersistently persistently_pure. Qed.
Global Instance make_persistently_default P :
MakePersistently P (<pers> P) | 100.
Proof. by rewrite /MakePersistently. Qed.
Global Instance frame_persistently R P Q Q' : Global Instance frame_persistently R P Q Q' :
Frame true R P Q MakePersistently Q Q' Frame true R P Q MakePersistently Q Q'
Frame true R (<pers> P) Q' | 2. (* Same cost as default. *) Frame true R (<pers> P) Q' | 2. (* Same cost as default. *)
......
...@@ -117,6 +117,20 @@ Qed. ...@@ -117,6 +117,20 @@ Qed.
Global Instance make_absorbingly_default P : MakeAbsorbingly P (<absorb> P) | 100. Global Instance make_absorbingly_default P : MakeAbsorbingly P (<absorb> P) | 100.
Proof. by rewrite /MakeAbsorbingly. Qed. Proof. by rewrite /MakeAbsorbingly. Qed.
(** Persistently *)
Global Instance make_persistently_emp :
@KnownMakePersistently PROP emp True | 0.
Proof.
by rewrite /KnownMakePersistently /MakePersistently
-persistently_True_emp persistently_pure.
Qed.
Global Instance make_persistently_True :
@KnownMakePersistently PROP True True | 0.
Proof. by rewrite /KnownMakePersistently /MakePersistently persistently_pure. Qed.
Global Instance make_persistently_default P :
MakePersistently P (<pers> P) | 100.
Proof. by rewrite /MakePersistently. Qed.
(** Intuitionistically *) (** Intuitionistically *)
Global Instance make_intuitionistically_emp : Global Instance make_intuitionistically_emp :
@KnownMakeIntuitionistically PROP emp emp | 0. @KnownMakeIntuitionistically PROP emp emp | 0.
......
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