Commit e8debd6d authored by Ralf Jung's avatar Ralf Jung
Browse files

test iAssumption-based evar instantiation

parent ca49296b
Pipeline #7321 passed with stage
in 13 minutes and 24 seconds
...@@ -408,4 +408,12 @@ Proof. ...@@ -408,4 +408,12 @@ Proof.
eexists. split. iIntros "#? ? ? ?". iAccu. done. eexists. split. iIntros "#? ? ? ?". iAccu. done.
Qed. Qed.
Lemma test_iAssumption_evar P : R, (R P) /\ R = P.
Please register or sign in to reply
Proof.
eexists. split.
- iIntros "H". iAssumption.
(* Now verify that the evar was chosen as desired (i.e., it should not pick False). *)
- reflexivity.
Qed.
End tests. End tests.
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