diff --git a/IRIS_VERSION b/IRIS_VERSION index bd534daa51db558c9832c6909876f40eff3d116e..608d8663746e0bc0c8336688093ba01d47e2a46a 100644 --- a/IRIS_VERSION +++ b/IRIS_VERSION @@ -1 +1 @@ -bb5e21f21fd1b5be820005eb53750f84270ab4ec +05a588df59ddfdc2e7a4aec5a98a50614c819693 diff --git a/_CoqProject b/_CoqProject index b0ab4749377717a840e6fb62693debafd4641bf3..3d0e6a317f40b1e2f8d92c79b3e4b2e94f02cf07 100644 --- a/_CoqProject +++ b/_CoqProject @@ -1,5 +1,4 @@ -Q . iris_atomic --Q iris iris atomic.v sync.v atomic_incr.v diff --git a/flat.v b/flat.v index 6fc1ee8a216b6a070f2031d710630f5eaf47ab00..6f3d1d7ec01b3ab344ce327e395df47d2a00d936 100644 --- a/flat.v +++ b/flat.v @@ -305,9 +305,9 @@ Section proof. iIntros (?) "(#? & #? & #? & HΦ)". wp_seq. wp_let. wp_bind (try_acquire _). iApply try_acquire_spec. - iFrame "#". iSplit; last by wp_if. + iFrame "#". iNext. iIntros ([]); last by (iIntros; wp_if). (* acquired the lock *) - iIntros "Hlocked [Ho2 HR]". + iIntros "[Hlocked [Ho2 HR]]". wp_if. wp_bind (! _)%E. iInv N as "[H >Hm]" "Hclose". iDestruct "H" as (xs' hd') "[>Hs [>Hxs HRs]]".