diff --git a/theories/program_logic/weakestpre.v b/theories/program_logic/weakestpre.v index f46b92465981cfa67f8c38b7c44a5dc529cd5b89..65513253b663208b17b632dbc092cc29273903ad 100644 --- a/theories/program_logic/weakestpre.v +++ b/theories/program_logic/weakestpre.v @@ -242,7 +242,7 @@ Lemma wp_wand_r s E e Φ Ψ : WP e @ s; E {{ Φ }} ∗ (∀ v, Φ v -∗ Ψ v) ⊢ WP e @ s; E {{ Ψ }}. Proof. iIntros "[Hwp H]". iApply (wp_wand with "Hwp H"). Qed. Lemma wp_frame_wand_l s E e Q Φ : - Q ∗ WP e @ s; E {{ λ v, Q -∗ Φ v }} -∗ WP e @ s; E {{ Φ }}. + Q ∗ WP e @ s; E {{ v, Q -∗ Φ v }} -∗ WP e @ s; E {{ Φ }}. Proof. iIntros "[HQ HWP]". iApply (wp_wand with "HWP"). iIntros (v) "HΦ". by iApply "HΦ".