diff --git a/coq-lambda-rust.opam b/coq-lambda-rust.opam index 10ef93e12b91b85588c1617a2a7a63456a78d80b..db0fc708086aba2dbd391fff08f50949ab899886 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.2022-07-27.1.d01b4bc8") | (= "dev") } + "coq-iris" { (= "dev.2022-08-03.0.949ab7bc") | (= "dev") } ] build: [make "-j%{jobs}%"] diff --git a/theories/lang/adequacy.v b/theories/lang/adequacy.v index ec935cd60389c647bd07ceaf6be9e3ef6ef6bab9..ec4b64cdbbca5c7e96f1724655acd00dc795a529 100644 --- a/theories/lang/adequacy.v +++ b/theories/lang/adequacy.v @@ -21,7 +21,7 @@ Definition lrust_adequacy Σ `{!lrustGpreS Σ} e σ φ : (∀ `{!lrustGS Σ}, True ⊢ WP e {{ v, ⌜φ v⌠}}) → adequate NotStuck e σ (λ v _, φ v). Proof. - intros Hwp; eapply (wp_adequacy_lc _ _); iIntros (???). + intros Hwp; eapply (wp_adequacy _ _); iIntros (??). iMod (own_alloc (◠to_heap σ)) as (vγ) "Hvγ". { apply (auth_auth_valid (to_heap _)), to_heap_valid. } iMod (own_alloc (◠(∅ : heap_freeableUR))) as (fγ) "Hfγ";