diff --git a/coq-lambda-rust.opam b/coq-lambda-rust.opam index 14af0da53f7c322a37dff254758db3bff71db41f..fcb1e0f8b91e6a58c59ef9ace28ce7c35178c386 100644 --- a/coq-lambda-rust.opam +++ b/coq-lambda-rust.opam @@ -13,7 +13,7 @@ the type system, and safety proof for some Rust libraries. """ depends: [ - "coq-iris" { (= "dev.2023-09-26.0.32e79061") | (= "dev") } + "coq-iris" { (= "dev.2023-10-03.0.70b30af7") | (= "dev") } ] build: [make "-j%{jobs}%"] diff --git a/theories/lifetime/model/creation.v b/theories/lifetime/model/creation.v index 6db93a1a289ceee8bfcab06c887768b7159b55f7..726fd1ef561d4f60b8d5e88ff5533eb3ff766698 100644 --- a/theories/lifetime/model/creation.v +++ b/theories/lifetime/model/creation.v @@ -77,7 +77,7 @@ Proof. iDestruct (@big_sepS_delete with "HK") as "[[Hκinv Hκ] HK]"; first done. iDestruct (lft_inv_alive_in with "Hκinv") as "Hκalive"; first done. assert (κ ∉ K') as HκK' by set_solver +HκK HKK'. - specialize (IH (K ∖ {[ κ ]})). feed specialize IH; [set_solver +HκK|]. + ospecialize (IH (K ∖ {[ κ ]}) _); [set_solver +HκK|]. iMod (IH ({[ κ ]} ∪ K') with "[HI Halive Hκalive] HK") as "[[HI Halive] Hdead]". { set_solver +HKK'. } { intros κ' κ''.