From d60c67b8f33f55e11ca159246d2a447102f10f20 Mon Sep 17 00:00:00 2001
From: Kazuhiko Sakaguchi
Date: Fri, 30 Aug 2019 11:30:21 +0200
Subject: Change the order of arguments in `ltngtP`

from
`ltngtP m n : compare_nat m n (m <= n) (n <= m) (m < n) (n < m) (n == m) (m == n)`
to
`ltngtP m n : compare_nat m n (n == m) (m == n) (n <= m) (m <= n) (n < m) (m < n)`,
to make it tries to match subterms with `m < n` first, `m <= n`, then `m == n`.
---
 mathcomp/field/algnum.v | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'mathcomp/field')

diff --git a/mathcomp/field/algnum.v b/mathcomp/field/algnum.v
index 3f25ae6..f494a09 100644
--- a/mathcomp/field/algnum.v
+++ b/mathcomp/field/algnum.v
@@ -823,7 +823,7 @@ rewrite /orderC; case: pickP => /= [k /eqP Dp_k | no_k]; last first.
   rewrite mem_primes => /and3P[q_pr _ q_dv_m].
   rewrite lognE q_pr m_gt0 q_dv_m /=; move: (logn q _) => k.
   rewrite !mulnA expnS leq_mul //.
-  case: (ltngtP q) => // [|q_gt2 | ->]; first by rewrite ltnNge prime_gt1.
+  case: (ltngtP q 2) (prime_gt1 q_pr) => // [q_gt2|->] _.
     rewrite mul1n mulnAC mulnn -{1}[q]muln1 leq_mul ?expn_gt0 ?prime_gt0 //.
     by rewrite -(subnKC q_gt2) (ltn_exp2l 1).
   by rewrite !muln1 -expnS (ltn_exp2l 0).
-- 
cgit v1.2.3