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
......@@ -24,8 +24,7 @@ Section specs.
iIntros (? Φ) "_ HΦ". wp_lam. wp_op; case_bool_decide.
- wp_if. assert (n = 0) as -> by lia. iApply "HΦ".
rewrite heap_mapsto_vec_nil. auto.
- wp_if. wp_alloc l as "H↦" "H†". omega. iApply "HΦ". subst sz.
iFrame.
- wp_if. wp_alloc l as "H↦" "H†". omega. iApply "HΦ". subst sz. iFrame.
Qed.
Lemma wp_delete E (n:Z) l vl :
......@@ -35,7 +34,8 @@ Section specs.
{{{ RET #☠; True }}}.
Proof.
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.
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