We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 5faa2f7 + ef36545 commit 9db3142Copy full SHA for 9db3142
2 files changed
implementations/QType_rationals.v
@@ -159,7 +159,7 @@ Qed.
159
Next Obligation.
160
rewrite spec_compare in *.
161
destruct (Qcompare_spec (to_Q x) (to_Q y)); try discriminate; try intuition.
162
- now apply Zeq_le.
+ now apply Zorder.Zeq_le.
163
now apply orders.lt_le.
164
Qed.
165
implementations/fast_rationals.v
@@ -58,7 +58,7 @@ Proof.
58
case_eq (BigN.eqb d BigN.zero); intros Ed2; [reflexivity |].
59
rewrite BigZ.spec_compare in Ed.
60
destruct (proj2 (not_true_iff_false _) Ed2).
61
- apply BigN.eqb_eq. symmetry. now apply Zcompare_Eq_eq.
+ apply BigN.eqb_eq. symmetry. now apply Zcompare.Zcompare_Eq_eq.
62
unfold BigQ.mul. simpl. rewrite right_identity. reflexivity.
63
destruct (BigZ.compare_spec BigZ.zero (BigZ.Pos d)); try discriminate.
64
destruct (orders.lt_not_le_flip 0 ('d : bigZ)); trivial.
0 commit comments