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

fix build for Coq 8.10

parent e138d2f8
No related branches found
No related tags found
No related merge requests found
...@@ -58,10 +58,10 @@ Lemma tac_twp_value_nofupd `{!heapG Σ} Δ s E Φ v : ...@@ -58,10 +58,10 @@ Lemma tac_twp_value_nofupd `{!heapG Σ} Δ s E Φ v :
envs_entails Δ (Φ v) envs_entails Δ (WP (Val v) @ s; E [{ Φ }]). envs_entails Δ (Φ v) envs_entails Δ (WP (Val v) @ s; E [{ Φ }]).
Proof. rewrite envs_entails_eq=> ->. by apply twp_value. Qed. 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 {{ Φ }}). envs_entails Δ (|={E}=> Φ v) envs_entails Δ (WP (Val v) @ s; E {{ Φ }}).
Proof. rewrite envs_entails_eq=> ->. by rewrite wp_value_fupd. Qed. 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 [{ Φ }]). envs_entails Δ (|={E}=> Φ v) envs_entails Δ (WP (Val v) @ s; E [{ Φ }]).
Proof. rewrite envs_entails_eq=> ->. by rewrite twp_value_fupd. Qed. Proof. rewrite envs_entails_eq=> ->. by rewrite twp_value_fupd. Qed.
......
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