File tree Expand file tree Collapse file tree 2 files changed +2
-2
lines changed Expand file tree Collapse file tree 2 files changed +2
-2
lines changed Original file line number Diff line number Diff line change 159
159
Next Obligation .
160
160
rewrite spec_compare in *.
161
161
destruct (Qcompare_spec (to_Q x) (to_Q y)); try discriminate; try intuition.
162
- now apply Zeq_le.
162
+ now apply Zorder. Zeq_le.
163
163
now apply orders.lt_le.
164
164
Qed .
165
165
Original file line number Diff line number Diff line change 58
58
case_eq (BigN.eqb d BigN.zero); intros Ed2; [reflexivity |].
59
59
rewrite BigZ.spec_compare in Ed.
60
60
destruct (proj2 (not_true_iff_false _) Ed2).
61
- apply BigN.eqb_eq. symmetry. now apply Zcompare_Eq_eq.
61
+ apply BigN.eqb_eq. symmetry. now apply Zcompare. Zcompare_Eq_eq.
62
62
unfold BigQ.mul. simpl. rewrite right_identity. reflexivity.
63
63
destruct (BigZ.compare_spec BigZ.zero (BigZ.Pos d)); try discriminate.
64
64
destruct (orders.lt_not_le_flip 0 ('d : bigZ)); trivial.
You can’t perform that action at this time.
0 commit comments