diff --git a/coq-lambda-rust.opam b/coq-lambda-rust.opam index 3fa8f5e812af2394467a96899c657b542834d296..98f70f36307fe3fc72c0110874b2228df4cf1b7b 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-06-28.0.b337ca8c") | (= "dev") } + "coq-iris" { (= "dev.2022-07-05.1.a32f36a9") | (= "dev") } ] build: [make "-j%{jobs}%"] diff --git a/theories/lang/adequacy.v b/theories/lang/adequacy.v index ec4b64cdbbca5c7e96f1724655acd00dc795a529..ec935cd60389c647bd07ceaf6be9e3ef6ef6bab9 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 _ _); iIntros (??). + intros Hwp; eapply (wp_adequacy_lc _ _); 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γ";