Commit 2f61a6b7 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Use uPred_pure for instead of uPred_forall in core.v.

parent 8e0effe3
...@@ -8,7 +8,7 @@ Import uPred. ...@@ -8,7 +8,7 @@ Import uPred.
in the shallow embedding. *) in the shallow embedding. *)
Definition coreP {M : ucmraT} (P : uPred M) : uPred M := Definition coreP {M : ucmraT} (P : uPred M) : uPred M :=
( `(!PersistentP Q, P Q), Q)%I. ( `(!PersistentP Q), P Q Q)%I.
Instance: Params (@coreP) 1. Instance: Params (@coreP) 1.
Typeclasses Opaque coreP. Typeclasses Opaque coreP.
...@@ -25,7 +25,7 @@ Section core. ...@@ -25,7 +25,7 @@ Section core.
Global Instance coreP_mono : Proper (() ==> ()) (@coreP M). Global Instance coreP_mono : Proper (() ==> ()) (@coreP M).
Proof. Proof.
rewrite /coreP. iIntros (P P' ?) "H"; iIntros (Q ??). rewrite /coreP. iIntros (P P' ?) "H"; iIntros (Q ??).
unshelve iApply ("H" $! Q). by etrans. iApply ("H" $! Q with "[%]"). by etrans.
Qed. Qed.
Global Instance coreP_proper : Proper (() ==> ()) (@coreP M). Global Instance coreP_proper : Proper (() ==> ()) (@coreP M).
......
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