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

Merge branch 'robbert/intuitionistically_intro' into 'master'

Generalize `intuitionistically_intro` to general BI.

See merge request iris/iris!911
parents ab54fb21 c6990755
No related branches found
No related tags found
No related merge requests found
......@@ -1632,14 +1632,12 @@ would be its only field. *)
Lemma intuitionistic P `{!Persistent P, !Affine P} : P P.
Proof. rewrite intuitionistic_intuitionistically. done. Qed.
Lemma intuitionistically_intro P Q `{!Affine P, !Persistent P} : (P Q) P Q.
Proof. intros. apply: affinely_intro. by apply: persistently_intro. Qed.
Section persistent_bi_absorbing.
Context `{!BiAffine PROP}.
Lemma intuitionistically_intro P Q `{!Persistent P} : (P Q) P Q.
Proof.
intros HP. rewrite (persistent P) HP intuitionistically_into_persistently //.
Qed.
Lemma persistent_and_sep P Q `{HPQ : !TCOr (Persistent P) (Persistent Q)} :
P Q ⊣⊢ P Q.
Proof.
......
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