diff --git a/coq-actris.opam b/coq-actris.opam index d79e967e84f3bce7b314bc329844ab1f4f7610b9..0a6f3ae03f35db00ec5e4ce435bba1dd5f6ffaa1 100644 --- a/coq-actris.opam +++ b/coq-actris.opam @@ -8,7 +8,7 @@ bug-reports: "https://gitlab.mpi-sws.org/iris/actris/issues" dev-repo: "git+https://gitlab.mpi-sws.org/iris/actris.git" depends: [ - "coq-iris-heap-lang" { (= "dev.2024-02-02.1.b30c53e2") | (= "dev") } + "coq-iris-heap-lang" { (= "dev.2024-02-16.1.06f499e0") | (= "dev") } ] build: [make "-j%{jobs}%"] diff --git a/theories/examples/list_rev.v b/theories/examples/list_rev.v index 70d0adebe7ad2b019b2044a0941043afaa5833cb..17cbdcd3f5c2af0a2058c8568b2a174fce56dd56 100644 --- a/theories/examples/list_rev.v +++ b/theories/examples/list_rev.v @@ -39,8 +39,7 @@ Section list_rev_example. + iExists []. eauto. + iDestruct "Hl" as (v lcons) "[HIT [Hlcons Hrec]]". iDestruct ("IH" with "Hrec") as (vs) "[Hvs H]". - iExists (v::vs). iFrame. - iExists v, lcons. eauto with iFrame. + iExists (v::vs). by iFrame. - iDestruct 1 as (vs) "[Hvs HIT]". iInduction xs as [|x xs] "IH" forall (l vs). + by iDestruct (big_sepL2_nil_inv_l with "HIT") as %->.