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

bump Iris, fix for _cofinite

parent dc3ff29e
No related branches found
No related tags found
No related merge requests found
Pipeline #16252 failed
Stage: build
Hide whitespace changes
Inline Side-by-side
opam
+ 1
− 1
View file @ c054aabd
...@@ -10,5 +10,5 @@ build: [make "-j%{jobs}%"] ...@@ -10,5 +10,5 @@ build: [make "-j%{jobs}%"]
install: [make "install"] install: [make "install"]
remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/lrust'" ] remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/lrust'" ]
depends: [ depends: [
"coq-gpfsl" { (= "dev.2019-03-06.1.8f1c2d76") | (= "dev") } "coq-gpfsl" { (= "dev.2019-03-07.0.fffa7c4e") | (= "dev") }
] ]
theories/lifetime/model/boxes.v
+ 1
− 1
View file @ c054aabd
...@@ -124,7 +124,7 @@ Lemma slice_insert_empty E q f Q P : ...@@ -124,7 +124,7 @@ Lemma slice_insert_empty E q f Q P :
slice N γ Q ∗ ▷?q box N (<[γ:=None]> f) (Q ∗ P). slice N γ Q ∗ ▷?q box N (<[γ:=None]> f) (Q ∗ P).
Proof. Proof.
iDestruct 1 as (Φ) "[#HeqP Hf]". iDestruct 1 as (Φ) "[#HeqP Hf]".
iMod (own_alloc_strong (● Excl' None ⋅ ◯ Excl' None, iMod (own_alloc_cofinite (● Excl' None ⋅ ◯ Excl' None,
Some (to_agree (Next ((λ V, iProp_unfold (Q V)) : _ -c> _)))) (dom _ f)) Some (to_agree (Next ((λ V, iProp_unfold (Q V)) : _ -c> _)))) (dom _ f))
as (γ) "[Hdom Hγ]"; first done. as (γ) "[Hdom Hγ]"; first done.
rewrite pair_split. iDestruct "Hγ" as "[[Hγ Hγ'] #HγQ]". rewrite pair_split. iDestruct "Hγ" as "[[Hγ Hγ'] #HγQ]".
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment