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

Merge branch 'ci/robbert/hint_extern_impl_persistent' into 'master'

Remove old `Hint Extern` hack for `impl_persistent` that seems no longer needed.

See merge request iris/iris!610
parents c2848ab5 4973d0b3
No related branches found
No related tags found
No related merge requests found
...@@ -362,8 +362,7 @@ Proof. intros; destruct p; simpl; apply _. Qed. ...@@ -362,8 +362,7 @@ Proof. intros; destruct p; simpl; apply _. Qed.
Lemma plain_persistent P : Plain P Persistent P. Lemma plain_persistent P : Plain P Persistent P.
Proof. intros. by rewrite /Persistent -plainly_elim_persistently. Qed. Proof. intros. by rewrite /Persistent -plainly_elim_persistently. Qed.
(* Not an instance, see the bottom of this file *) Global Instance impl_persistent P Q :
Lemma impl_persistent P Q :
Absorbing P Plain P Persistent Q Persistent (P Q). Absorbing P Plain P Persistent Q Persistent (P Q).
Proof. Proof.
intros. by rewrite /Persistent {2}(plain P) -persistently_impl_plainly intros. by rewrite /Persistent {2}(plain P) -persistently_impl_plainly
...@@ -645,10 +644,3 @@ To avoid that, we declare it using a [Hint Immediate], so that it will ...@@ -645,10 +644,3 @@ To avoid that, we declare it using a [Hint Immediate], so that it will
only be used at the leaves of the proof search tree, i.e. when the only be used at the leaves of the proof search tree, i.e. when the
premise of the hint can be derived from just the current context. *) premise of the hint can be derived from just the current context. *)
Global Hint Immediate plain_persistent : typeclass_instances. Global Hint Immediate plain_persistent : typeclass_instances.
(* Not defined using an ordinary [Instance] because the default
[class_apply @impl_persistent] shelves the [BiPlainly] premise, making proof
search for the other premises fail. See the proof of [coreP_persistent] for an
example where it would fail with a regular [Instance].*)
Global Hint Extern 4 (Persistent _) =>
notypeclasses refine (impl_persistent _ _ _ _ _) : typeclass_instances.
From iris.bi Require Import bi plainly.
(** See https://gitlab.mpi-sws.org/iris/iris/-/merge_requests/610 *)
Lemma test_impl_persistent_1 `{!BiPlainly PROP} :
Persistent (PROP:=PROP) (True True).
Proof. apply _. Qed.
Lemma test_impl_persistent_2 `{!BiPlainly PROP} :
Persistent (PROP:=PROP) (True True True).
Proof. apply _. Qed.
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