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/ssreflect/prime.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/ssreflect/prime.v')
| -rw-r--r-- | mathcomp/ssreflect/prime.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mathcomp/ssreflect/prime.v b/mathcomp/ssreflect/prime.v index 9eafea9..1185e67 100644 --- a/mathcomp/ssreflect/prime.v +++ b/mathcomp/ssreflect/prime.v @@ -579,7 +579,7 @@ Qed. Lemma coprime_has_primes m n : 0 < m -> 0 < n -> coprime m n = ~~ has (mem (primes m)) (primes n). Proof. -move=> m_gt0 n_gt0; apply/eqnP/hasPn=> [mn1 p | no_p_mn]. +move=> m_gt0 n_gt0; apply/eqP/hasPn=> [mn1 p | no_p_mn]. rewrite /= !mem_primes m_gt0 n_gt0 /= => /andP[pr_p p_n]. have:= prime_gt1 pr_p; rewrite pr_p ltnNge -mn1 /=; apply: contra => p_m. by rewrite dvdn_leq ?gcdn_gt0 ?m_gt0 // dvdn_gcd ?p_m. |