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

Add a test for 9ea6fa45.

parent ea64fd14
No related branches found
No related tags found
No related merge requests found
......@@ -130,3 +130,11 @@ Proof. iIntros. iAssert False%I with ">[-]" as "[]". done. Qed.
Lemma demo_14 (M : ucmraT) (P : uPred M) : False -∗ P.
Proof. iIntros "H". done. Qed.
(* Check instantiation and dependent types *)
Lemma demo_15 (M : ucmraT) (P : n, vec nat n uPred M) :
( n v, P n v) -∗ n v, P n v.
Proof.
iIntros "H". iExists _, [#10].
iSpecialize ("H" $! _ [#10]). done.
Qed.
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