Commit 5334813e authored by Ralf Jung's avatar Ralf Jung

Show an interesting lemma about the core

parent 124eea15
...@@ -40,5 +40,14 @@ Section core. ...@@ -40,5 +40,14 @@ Section core.
Lemma coreP_elim P : PersistentP P coreP P - P. Lemma coreP_elim P : PersistentP P coreP P - P.
Proof. rewrite /coreP. iIntros (?) "HCP". unshelve iApply ("HCP" $! P); auto. Qed. Proof. rewrite /coreP. iIntros (?) "HCP". unshelve iApply ("HCP" $! P); auto. Qed.
End core.
Lemma coreP_wand P Q :
(coreP P Q) (P Q).
Proof.
split.
- iIntros (HP) "HP". iDestruct (coreP_intro with "HP") as "#HcP".
iClear "∗". iAlways. by iApply HP.
- iIntros (HPQ) "HcP". iDestruct (coreP_mono _ _ HPQ with "HcP") as "HcQ".
iDestruct (coreP_elim with "HcQ") as "#HQ". done.
Qed.
End core.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment