extend vcgen with par.

theories/vcgen/tests/basics.v

@@ -43,4 +43,23 @@ Section test.
   Proof.
     iIntros "**". vcg_solver. auto.
   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.