Commit 94f431da authored by Léon Gondelman's avatar Léon Gondelman
Browse files

extend vcgen with par.

parent 97c0d2c3
...@@ -43,4 +43,23 @@ Section test. ...@@ -43,4 +43,23 @@ Section test.
Proof. Proof.
iIntros "**". vcg_solver. auto. iIntros "**". vcg_solver. auto.
Qed. Qed.
Lemma test_par_1 (l1 l2 : loc) (v1 v2: val) :
l1 C v1 - l2 C v2 -
awp ( ∗ᶜ l1 ||| ∗ᶜ l2) True
(λ w, w = (v1, v2)%V l1 C v1 l2 C v2).
Proof.
iIntros "**". vcg_solver. rewrite Qp_half_half. eauto with iFrame.
Qed.
Lemma test_par_2 (l1 l2 : loc) (v1 v2: val) :
l1 C v1 - l2 C v2 -
awp ( (l1 = a_ret v2) ||| (l2 = a_ret v1) ) True
(λ w, w = (v2, v1)%V l1 C[LLvl] v2 l2 C[LLvl] v1).
Proof.
iIntros "**". vcg_solver. eauto with iFrame.
Qed.
(*TODO: test function call with multiple arguments *)
End test. End test.
This diff is collapsed.
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