Commit 14fe028c authored by Ralf Jung's avatar Ralf Jung

also add my original testcase, just to be sure

parent c75aa8f4
...@@ -154,10 +154,16 @@ Proof. ...@@ -154,10 +154,16 @@ Proof.
iIntros "?". iNext. iAssumption. iIntros "?". iNext. iAssumption.
Qed. Qed.
Lemma test_iNext_sep (M : ucmraT) (P Q : uPred M) Lemma test_iNext_sep1 (M : ucmraT) (P Q : uPred M)
(R1 := (P Q)%I) (R2 := ( P Q)%I) : (R1 := (P Q)%I) (R2 := ( P Q)%I) :
( P Q) R1 R2 - (P Q) R1 R2. ( P Q) R1 R2 - (P Q) R1 R2.
Proof. Proof.
iIntros "H". iNext. iIntros "H". iNext.
rewrite {1 2}(lock R1). (* check whether R1 has not been unfolded *) done. rewrite {1 2}(lock R1). (* check whether R1 has not been unfolded *) done.
Qed. Qed.
Lemma test_iNext_sep2 (M : ucmraT) (P Q : uPred M) :
P Q - (P Q).
Proof.
iIntros "H". iNext. iExact "H". (* Check that the laters are all gone. *)
Qed.
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