diff options
| author | Cyril Cohen | 2019-10-31 19:07:15 +0100 |
|---|---|---|
| committer | GitHub | 2019-10-31 19:07:15 +0100 |
| commit | 71e397e46b65c1c27a65471170d71f388c8a45f1 (patch) | |
| tree | 74fecfdcc5b2429e5cf199f9daa48a56540e2359 /mathcomp/field | |
| parent | c5bd1d4d29021688db59495a8b60c84f5dea6b77 (diff) | |
| parent | d60c67b8f33f55e11ca159246d2a447102f10f20 (diff) | |
Merge pull request #378 from pi8027/fix-ltngtP
Reorder the arguments in `compare_nat` and `ltngtP`
Diffstat (limited to 'mathcomp/field')
| -rw-r--r-- | mathcomp/field/algnum.v | 2 |
1 files changed, 1 insertions, 1 deletions
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). |