Commit 11e0f153 authored by Robbert Krebbers's avatar Robbert Krebbers

Add a test-case.

parent 7453ecb0
Pipeline #5681 passed with stages
in 7 minutes and 27 seconds
......@@ -10,6 +10,16 @@ Section LiftingTests.
Implicit Types P Q : iProp Σ.
Implicit Types Φ : val iProp Σ.
Definition simpl_test :
(10 = 4 + 6)%nat -
WP let: "x" := ref #1 in "x" <- !"x";; !"x" {{ v, v = #1 }}.
Proof.
iIntros "?". wp_alloc l. repeat (wp_pure _) || wp_load || wp_store.
match goal with
| |- context [ (10 = 4 + 6)%nat ] => done
end.
Qed.
Definition heap_e : expr :=
let: "x" := ref #1 in "x" <- !"x" + #1 ;; !"x".
......
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