Skip to content
Snippets Groups Projects
Commit b5dcac80 authored by Ralf Jung's avatar Ralf Jung
Browse files

new_delete tweak (sync with gen_proofmode)

parent 3d56a5f8
No related branches found
No related tags found
No related merge requests found
Pipeline #
...@@ -24,8 +24,7 @@ Section specs. ...@@ -24,8 +24,7 @@ Section specs.
iIntros (? Φ) "_ HΦ". wp_lam. wp_op; case_bool_decide. iIntros (? Φ) "_ HΦ". wp_lam. wp_op; case_bool_decide.
- wp_if. assert (n = 0) as -> by lia. iApply "HΦ". - wp_if. assert (n = 0) as -> by lia. iApply "HΦ".
rewrite heap_mapsto_vec_nil. auto. rewrite heap_mapsto_vec_nil. auto.
- wp_if. wp_alloc l as "H↦" "H†". omega. iApply "HΦ". subst sz. - wp_if. wp_alloc l as "H↦" "H†". omega. iApply "HΦ". subst sz. iFrame.
iFrame.
Qed. Qed.
Lemma wp_delete E (n:Z) l vl : Lemma wp_delete E (n:Z) l vl :
...@@ -35,7 +34,8 @@ Section specs. ...@@ -35,7 +34,8 @@ Section specs.
{{{ RET #☠; True }}}. {{{ RET #☠; True }}}.
Proof. Proof.
iIntros (? Φ) "(H↦ & [H†|%]) HΦ"; iIntros (? Φ) "(H↦ & [H†|%]) HΦ";
wp_lam; wp_op; case_bool_decide; try lia; wp_if; try wp_free; by iApply "HΦ". wp_lam; wp_op; case_bool_decide; try lia;
wp_if; try wp_free; by iApply "HΦ".
Qed. Qed.
End specs. End specs.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment