diff --git a/semantics.opam b/semantics.opam index c292cf8097f9cf4260daa62eb997f3b37c5ed795..e6b9f5bce81a9f633dd6852b13dfa4deafa1264b 100644 --- a/semantics.opam +++ b/semantics.opam @@ -10,8 +10,8 @@ version: "dev" depends: [ "coq" { (>= "8.13" & < "8.16~") | (= "dev") } - "coq-iris" { (= "dev.2022-08-09.0.4e9a1ec7") | (= "dev") } - "coq-iris-heap-lang" { (= "dev.2022-08-09.0.4e9a1ec7") | (= "dev") } + "coq-iris" { (= "dev.2022-08-14.0.25e3b14e") | (= "dev") } + "coq-iris-heap-lang" { (= "dev.2022-08-14.0.25e3b14e") | (= "dev") } "coq-equations" { (= "1.2.4+8.13") | (= "1.3+8.14") | (= "1.3+8.15") } "coq-autosubst" { = "1.7" } ] diff --git a/theories/program_logics/resource_algebras.v b/theories/program_logics/resource_algebras.v index ad9f4d53afa60608988bf96710ad8b65f130ce9a..9e635b03f0958a2196eeeb71d587c9aa495cae72 100644 --- a/theories/program_logics/resource_algebras.v +++ b/theories/program_logics/resource_algebras.v @@ -369,16 +369,16 @@ Section frac. Lemma frac_op p q : p ⋅ q = (p + q)%Qp. Proof. done. Qed. Lemma frac_included p q : p ≼ q ↔ (p < q)%Qp. - Proof. by rewrite Qp_lt_sum. Qed. + Proof. by rewrite Qp.lt_sum. Qed. Corollary frac_included_weak p q : p ≼ q → (p ≤ q)%Qp. - Proof. rewrite frac_included. apply Qp_lt_le_incl. Qed. + Proof. rewrite frac_included. apply Qp.lt_le_incl. Qed. Definition frac_lra_mixin : LRAMixin frac. Proof. split; try apply _; try done. intros p q. rewrite !frac_valid frac_op=> ?. - trans (p + q)%Qp; last done. apply Qp_le_add_l. + trans (p + q)%Qp; last done. apply Qp.le_add_l. Qed. Canonical Structure fracR : lra := Lra frac frac_lra_mixin. @@ -386,7 +386,7 @@ Section frac. lra_exclusive 1%Qp. Proof. intros f. rewrite frac_valid frac_op. - apply Qp_not_add_le_l. + apply Qp.not_add_le_l. Qed. End frac.