Commit 1e089064 authored by Robbert Krebbers's avatar Robbert Krebbers

Bump Iris.

parent f5660abc
Pipeline #16243 failed with stage
in 6 minutes and 53 seconds
...@@ -9,6 +9,6 @@ build: [make "-j%{jobs}%"] ...@@ -9,6 +9,6 @@ build: [make "-j%{jobs}%"]
install: [make "install"] install: [make "install"]
remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/iron" ] remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/iron" ]
depends: [ depends: [
"coq-iris" { (= "dev.2019-02-20.0.8a8c1405") | (= "dev") } "coq-iris" { (= "dev.2019-03-06.2.f5d03e25") | (= "dev") }
] ]
...@@ -120,7 +120,8 @@ Lemma fcinv_alloc_strong E N : ...@@ -120,7 +120,8 @@ Lemma fcinv_alloc_strong E N :
Proof. Proof.
rewrite fcinv_eq fcinv_own_eq fcinv_cancel_own_eq. rewrite fcinv_eq fcinv_own_eq fcinv_cancel_own_eq.
iStartProof (iProp _); iIntros (π1) "Hp". iStartProof (iProp _); iIntros (π1) "Hp".
iMod (cinv_alloc_strong _ N) as (γinv ?) "[Hγinv Halloc]". iMod (cinv_alloc_strong (λ _, True) _ N) as (γinv ?) "[Hγinv Halloc]".
{ apply pred_infinite_True. }
iMod (own_alloc (! (1%Qp : ufrac) ! (1%Qp : ufrac))) iMod (own_alloc (! (1%Qp : ufrac) ! (1%Qp : ufrac)))
as (γf) "[Hγauth Hγ]"; first done. as (γf) "[Hγauth Hγ]"; first done.
set (γ := FcInvName γinv γf). set (γ := FcInvName γinv γf).
......
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