Commit 92857393 authored by Ralf Jung's avatar Ralf Jung
Browse files

also test wand

parent 16c90c69
......@@ -423,4 +423,8 @@ Lemma test_apply_affine_impl `{!BiPlainly PROP} (P : PROP) :
P - ( Q : PROP, (Q - <pers> Q) (P - Q) Q).
Proof. iIntros "HP" (Q) "_ #HPQ". by iApply "HPQ". Qed.
Lemma test_apply_affine_wand `{!BiPlainly PROP} (P : PROP) :
P - ( Q : PROP, <affine> (Q - <pers> Q) - <affine> (P - Q) - Q).
Proof. iIntros "HP" (Q) "_ #HPQ". by iApply "HPQ". Qed.
End tests.
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