diff options
-rw-r--r-- | plugins/micromega/QMicromega.v | 5 | ||||
-rw-r--r-- | theories/QArith/QArith_base.v | 2 |
2 files changed, 1 insertions, 6 deletions
diff --git a/plugins/micromega/QMicromega.v b/plugins/micromega/QMicromega.v index ae22b0c78..1e909cbca 100644 --- a/plugins/micromega/QMicromega.v +++ b/plugins/micromega/QMicromega.v @@ -31,13 +31,8 @@ Proof. rewrite <- H ; rewrite <- H0 ; auto. rewrite H ; rewrite H0 ; auto. apply Qsrt. - apply Qle_refl. - apply Qle_antisym ; auto. eapply Qle_trans ; eauto. - apply Qlt_le_weak ; auto. apply (Qlt_not_eq n m H H0) ; auto. - destruct (Qle_lt_or_eq _ _ H0) ; auto. - tauto. destruct(Q_dec n m) as [[H1 |H1] | H1 ] ; tauto. apply (Qplus_le_compat p p n m (Qle_refl p) H). generalize (Qmult_lt_compat_r 0 n m H0 H). diff --git a/theories/QArith/QArith_base.v b/theories/QArith/QArith_base.v index 111d2391a..67fd615ea 100644 --- a/theories/QArith/QArith_base.v +++ b/theories/QArith/QArith_base.v @@ -618,7 +618,7 @@ Proof. Qed. Hint Resolve Qle_not_lt Qlt_not_le Qnot_le_lt Qnot_lt_le - Qlt_le_weak Qlt_not_eq Qle_antisym Qle_refl: qartih. + Qlt_le_weak Qlt_not_eq Qle_antisym Qle_refl: qarith. (** Some decidability results about orders. *) |