Commit b3225611 authored by Jacques-Henri Jourdan's avatar Jacques-Henri Jourdan

Bump Iris

parent 72bd38b6
......@@ -10,6 +10,6 @@ build: [make "-j%{jobs}%"]
install: [make "install"]
remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/iris_time" ]
depends: [
"coq-iris" { (= "dev.2020-02-07.0.740affc3") | (= "dev") }
"coq-iris" { (= "dev.2020-02-23.1.802035a5") | (= "dev") }
"coq-tlc" { (= "20181116") | (= "dev") }
]
......@@ -117,7 +117,7 @@ Section Thunk.
iApply wp_fupd.
wp_tick_lam.
(* reading the thunk… *)
iDestruct (na_inv_open p F (thunkN t) with "Hthunkinv Hp")
iDestruct (na_inv_acc p F (thunkN t) with "Hthunkinv Hp")
as ">(Hthunk & Hp & Hclose)" ; [done|done|] ;
iDestruct "Hthunk" as (ac) "(>Hγ● & [ Hunevaluated | Hevaluated ])" ;
[ iDestruct "Hunevaluated" as (f) "(>Ht & Hf & >Htc)"
......@@ -151,7 +151,7 @@ Section Thunk.
iIntros (?) "Hp #Hthunk Htc_k".
iDestruct "Hthunk" as (γ nc) "#[Hthunkinv Hγ◯]".
(* reading the thunk… *)
iDestruct (na_inv_open p F (thunkN t) with "Hthunkinv Hp")
iDestruct (na_inv_acc p F (thunkN t) with "Hthunkinv Hp")
as ">(Hthunk & Hp & Hclose)" ; [done|done|] ;
iDestruct "Hthunk" as (ac) "(>Hγ● & [ Hunevaluated | Hevaluated ])" ;
[ iDestruct "Hunevaluated" as (f) "(>Ht & Hf & >Htc)"
......
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