Commit ac9bae94 authored by Robbert Krebbers's avatar Robbert Krebbers

No longer use wp_cwp_bind.

parent 12e52be4
......@@ -118,11 +118,6 @@ Section cwp_rules.
CWP fill K e @ R {{ Φ }}.
Proof. rewrite cwp_eq. by apply: wp_bind. Qed.
Lemma wp_cwp_bind_inv R Φ K e :
CWP fill K e @ R {{ Φ }} -
WP e {{ v, CWP fill K (of_val v) @ R {{ Φ }} }}.
Proof. rewrite cwp_eq. by apply: wp_bind_inv. Qed.
Lemma cwp_insert_res e Φ R1 R2 :
R1 -
CWP e @ (R1 R2) {{ v, R1 ={}= Φ v }} -
......@@ -184,10 +179,7 @@ Section cwp_rules.
φ
^n CWP (fill K e2) @ R {{ Φ }} -
CWP (fill K e1) @ R {{ Φ }}.
Proof.
iIntros (? Hφ) "Hcwp". iApply wp_cwp_bind. wp_pure _.
by iApply wp_cwp_bind_inv.
Qed.
Proof. iIntros (? Hφ) "Hcwp". rewrite cwp_eq /cwp_def. by wp_pure _. Qed.
Lemma cwp_ret e R Φ :
WP e {{ Φ }} - CWP c_ret e @ R {{ Φ }}.
......
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