diff --git a/tests/heap_lang.v b/tests/heap_lang.v index a83b6662da4ebea358c75f8b695bb7c5edd55a64..1c4d73212719176c83e45444075d63fb1581a3b3 100644 --- a/tests/heap_lang.v +++ b/tests/heap_lang.v @@ -368,6 +368,11 @@ Section mapsto_tests. iIntros (Φ) "Hl HΦ". Show. wp_load. by iApply "HΦ". 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. Section inv_mapsto_tests.