Commit 46cf3677 authored by Robbert Krebbers's avatar Robbert Krebbers

Tweak wp_invariance.

parent a1ea5292
Pipeline #2627 passed with stage
in 8 minutes and 52 seconds
......@@ -127,11 +127,11 @@ Proof.
iApply (big_sep_elem_of with "Htp"); apply elem_of_list_fmap; eauto.
Qed.
Lemma wptp_invariance n e1 e2 t1 t2 σ1 σ2 I φ :
Lemma wptp_invariance n e1 e2 t1 t2 σ1 σ2 I φ Φ :
PersistentP I
nsteps step n (e1 :: t1, σ1) (t2, σ2)
(I ={,}=> σ', ownP σ' φ σ')
I world σ1 WP e1 {{ _, True }} wptp t1
I world σ1 WP e1 {{ Φ }} wptp t1
Nat.iter (S (S n)) (λ P, |=r=> P) ( φ σ2).
Proof.
intros ?? HI. rewrite wptp_steps //.
......@@ -162,9 +162,9 @@ Proof.
iFrame "Hw HE Hσ". iSplitL; auto. by iApply Hwp.
Qed.
Theorem wp_invariance Σ `{irisPreG Λ Σ} (I : iProp Σ) e φ σ1 t2 σ2 :
Theorem wp_invariance Σ `{irisPreG Λ Σ} e σ1 t2 σ2 I φ Φ :
PersistentP I
( `{irisG Λ Σ}, ownP σ1 ={}=> I WP e {{ _, True }})
( `{irisG Λ Σ}, ownP σ1 ={}=> I WP e {{ Φ }})
( `{irisG Λ Σ}, I ={,}=> σ', ownP σ' φ σ')
rtc step ([e], σ1) (t2, σ2)
φ σ2.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment