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

Merge branch 'master' of https://gitlab.mpi-sws.org/iris/iris into master.2

parents 2e1cc4f5 eb553b28
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