diff --git a/iris/proofmode/class_instances_frame.v b/iris/proofmode/class_instances_frame.v index 26065b4ec0dea4e215397f765bf5728a13a471e8..2c9d71237abddaea9a4f1dc063af43c20845d587 100644 --- a/iris/proofmode/class_instances_frame.v +++ b/iris/proofmode/class_instances_frame.v @@ -177,17 +177,6 @@ Proof. rewrite /Frame /MakeAbsorbingly=> <- <- /=. by rewrite absorbingly_sep_r. 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' : Frame true R P Q → MakePersistently Q Q' → Frame true R (<pers> P) Q' | 2. (* Same cost as default. *) diff --git a/iris/proofmode/class_instances_make.v b/iris/proofmode/class_instances_make.v index 3fef78dbeff1d87bc30e43a03079f5f0545b190f..336873be2769986933c470474bd16596b8846c12 100644 --- a/iris/proofmode/class_instances_make.v +++ b/iris/proofmode/class_instances_make.v @@ -117,6 +117,20 @@ Qed. Global Instance make_absorbingly_default P : MakeAbsorbingly P (<absorb> P) | 100. 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 *) Global Instance make_intuitionistically_emp : @KnownMakeIntuitionistically PROP emp emp | 0.