Commit 5eeb0c67 authored by Ralf Jung's avatar Ralf Jung

Merge branch 'master' of https://gitlab.mpi-sws.org/FP/iris-coq

parents a0e013f5 2f15e108
...@@ -85,7 +85,7 @@ Proof. ...@@ -85,7 +85,7 @@ Proof.
- by rewrite big_sepM_empty. - by rewrite big_sepM_empty.
Qed. Qed.
Lemma box_insert E f P Q : Lemma box_insert_empty E f P Q :
box N f P ={E}= γ, f !! γ = None box N f P ={E}= γ, f !! γ = None
slice N γ Q box N (<[γ:=false]> f) (Q P). slice N γ Q box N (<[γ:=false]> f) (Q P).
Proof. Proof.
...@@ -143,6 +143,18 @@ Proof. ...@@ -143,6 +143,18 @@ Proof.
iFrame; eauto. iFrame; eauto.
Qed. Qed.
Lemma box_insert_full E f P Q :
N E
Q box N f P ={E}= γ, f !! γ = None
slice N γ Q box N (<[γ:=true]> f) (Q P).
Proof.
iIntros (?) "[HQ Hbox]".
iMod (box_insert_empty with "Hbox") as (γ) "(% & #Hslice & Hbox)".
iExists γ. iFrame "%#".
iMod (box_fill with "[$Hslice $HQ $Hbox]"). done.
by apply lookup_insert. by rewrite insert_insert.
Qed.
Lemma box_empty E f P Q γ : Lemma box_empty E f P Q γ :
N E N E
f !! γ = Some true f !! γ = Some true
......
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