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/algebra/polydiv.v | |
| 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/algebra/polydiv.v')
| -rw-r--r-- | mathcomp/algebra/polydiv.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mathcomp/algebra/polydiv.v b/mathcomp/algebra/polydiv.v index b65742d..aa076a2 100644 --- a/mathcomp/algebra/polydiv.v +++ b/mathcomp/algebra/polydiv.v @@ -3243,7 +3243,7 @@ move=> hsp /=; have [->|p_neq0] := altP (p =P 0). by rewrite size_poly0 expr0 mulr1 dvd0p=> /(_ isT). have [|ncop_pq] := boolP (coprimep _ _); first by rewrite dvdp_mulr ?dvdpp. have g_gt1: (1 < size (gcdp p q))%N. - have [|//|/eqP] := ltngtP; last by rewrite -coprimep_def (negPf ncop_pq). + have [//||/esym/eqP] := ltngtP; last by rewrite -coprimep_def (negPf ncop_pq). by rewrite ltnS leqn0 size_poly_eq0 gcdp_eq0 (negPf p_neq0). have sd : (size (p %/ gcdp p q) < size p)%N. rewrite size_divp -?size_poly_eq0 -(subnKC g_gt1) // add2n /=. |