From b5dcac80e2e1f6db57525a02ecb773a01c490634 Mon Sep 17 00:00:00 2001 From: Ralf Jung <jung@mpi-sws.org> Date: Thu, 22 Mar 2018 12:46:51 +0100 Subject: [PATCH] new_delete tweak (sync with gen_proofmode) --- theories/lang/lib/new_delete.v | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/theories/lang/lib/new_delete.v b/theories/lang/lib/new_delete.v index 2320c69c..9d5a027c 100644 --- a/theories/lang/lib/new_delete.v +++ b/theories/lang/lib/new_delete.v @@ -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. -- GitLab