diff --git a/opam b/opam index 30924c883d3a0dab182c0e5a566689ca67de6b19..769e5c305f8fd0bcac9a3af63f9b37ea29bc318a 100644 --- a/opam +++ b/opam @@ -9,5 +9,5 @@ build: [make "-j%{jobs}%"] install: [make "install"] remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/igps" ] depends: [ - "coq-iris" { (= "dev.2018-07-13.0.cbf73155") | (= "dev") } + "coq-iris" { (= "dev.2018-10-04.7.fc21b664") | (= "dev") } ] diff --git a/theories/adequacy.v b/theories/adequacy.v index 5308ce4c0005c05b6aeb4b0eecf58bd4cb29f7f3..52954f885adafc0251b7fb1b692064fc3cce8800 100644 --- a/theories/adequacy.v +++ b/theories/adequacy.v @@ -180,7 +180,7 @@ Definition base_adequacy Σ `{!basePreG Σ} e V σ φ : phys_inv σ -> view_ok (mem σ) V -> (∀ `{!foundationG Σ} π, PSCtx ∗ Seen π V ⊢ WP e {{ v, ⌜φ v⌠}}) → - adequate NotStuck e σ φ. + adequate NotStuck e σ (λ v _, φ v). Proof. intros Inv VOk Hwp; eapply (ownP_adequacy _ _). iIntros (?). iMod (own_alloc (◠{[1%positive := Excl V]} ⋅ ◯ {[1%positive:=Excl V]})) as (γV) "HV". diff --git a/theories/tests/message_passing.v b/theories/tests/message_passing.v index 7f66267268c6cd0b7a5b28f1f5caa8d440d1a2f2..3fee764970e0e32038e3a33770ed1cd1403069dc 100644 --- a/theories/tests/message_passing.v +++ b/theories/tests/message_passing.v @@ -18,7 +18,7 @@ Next Obligation. Qed. Lemma message_passing : - adequate NotStuck (message_passing, ∅) initial_state (λ v, v.1 = LitV (LitInt 37)). + adequate NotStuck (message_passing, ∅) initial_state (λ v _, v.1 = LitV (LitInt 37)). Proof. apply (base_adequacy Σ _ ∅); auto. - split; repeat red; rewrite /initial_state /=; try set_solver.