Commit 0e1825e2 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Add a test for 9ea6fa45.

parent ea64fd14
Pipeline #3885 passed with stage
in 3 minutes and 49 seconds
......@@ -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.
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