Skip to content
Snippets Groups Projects
Commit 120e9af9 authored by Lennard Gäher's avatar Lennard Gäher
Browse files

bump iris

parent f5867e78
No related branches found
No related tags found
No related merge requests found
Pipeline #72550 failed
......@@ -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" }
]
......
......@@ -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.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment