diff --git a/iris_heap_lang/proofmode.v b/iris_heap_lang/proofmode.v index 3f8c07228e458d28f91f93a0eb5380301eacf7ce..f2441bbaa6392a9db2b608fa552c6636b653f58a 100644 --- a/iris_heap_lang/proofmode.v +++ b/iris_heap_lang/proofmode.v @@ -58,10 +58,10 @@ Lemma tac_twp_value_nofupd `{!heapG Σ} Δ s E Φ v : envs_entails Δ (Φ v) → envs_entails Δ (WP (Val v) @ s; E [{ Φ }]). Proof. rewrite envs_entails_eq=> ->. by apply twp_value. Qed. -Lemma tac_wp_value `{!heapG Σ} Δ s E Φ v : +Lemma tac_wp_value `{!heapG Σ} Δ s E (Φ : val → iPropI Σ) v : envs_entails Δ (|={E}=> Φ v) → envs_entails Δ (WP (Val v) @ s; E {{ Φ }}). Proof. rewrite envs_entails_eq=> ->. by rewrite wp_value_fupd. Qed. -Lemma tac_twp_value `{!heapG Σ} Δ s E Φ v : +Lemma tac_twp_value `{!heapG Σ} Δ s E (Φ : val → iPropI Σ) v : envs_entails Δ (|={E}=> Φ v) → envs_entails Δ (WP (Val v) @ s; E [{ Φ }]). Proof. rewrite envs_entails_eq=> ->. by rewrite twp_value_fupd. Qed.