Skip to content
Snippets Groups Projects
Commit 22bc264a authored by Ralf Jung's avatar Ralf Jung
Browse files

add a test

parent dcda6b16
No related branches found
No related tags found
No related merge requests found
...@@ -368,6 +368,11 @@ Section mapsto_tests. ...@@ -368,6 +368,11 @@ Section mapsto_tests.
iIntros (Φ) "Hl HΦ". Show. wp_load. by iApply "HΦ". iIntros (Φ) "Hl HΦ". Show. wp_load. by iApply "HΦ".
Qed. Qed.
(* Make sure that we can split a mapsto containing an evar. *)
Lemma mapsto_evar_iSplit l v :
l {#1 / 2} v -∗ q, l {#1 / 2 + q} v.
Proof. iIntros "H". iExists _. iSplitL; first by iAssumption. Abort.
End mapsto_tests. End mapsto_tests.
Section inv_mapsto_tests. Section inv_mapsto_tests.
......
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