Commit 515ba099 authored by Ralf Jung's avatar Ralf Jung

add test for wp_apply and evars (#181)

parent a82aa047
......@@ -104,6 +104,11 @@ Section LiftingTests.
Lemma Pred_user E :
WP let: "x" := Pred #42 in Pred "x" @ E [{ v, v = #40 }]%I.
Proof. iIntros "". wp_apply Pred_spec. wp_let. by wp_apply Pred_spec. Qed.
Lemma wp_apply_evar e :
( Q Φ, Q - WP e {{ Φ }}) - WP e {{ _, True }}.
Proof. iIntros "H". wp_apply "H". done. Qed.
End LiftingTests.
Lemma heap_e_adequate σ : adequate NotStuck heap_e σ (= #2).
......
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