diff options
| author | Cyril Cohen | 2018-02-06 14:04:50 +0100 |
|---|---|---|
| committer | Cyril Cohen | 2018-02-06 14:14:36 +0100 |
| commit | f3ce9ace4b55654d6240db9eb41a6de3c488f0d9 (patch) | |
| tree | d44ad1d84bb57b368f6e65fe871ec0c6e5a558eb /mathcomp/algebra/rat.v | |
| parent | fafd4dac5315e1d4e071b0044a50a16360b31964 (diff) | |
fixing things that @ggonthier and @ybertot spotted and some I spotted
Diffstat (limited to 'mathcomp/algebra/rat.v')
| -rw-r--r-- | mathcomp/algebra/rat.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mathcomp/algebra/rat.v b/mathcomp/algebra/rat.v index e837ed2..393b37b 100644 --- a/mathcomp/algebra/rat.v +++ b/mathcomp/algebra/rat.v @@ -101,7 +101,7 @@ Proof. by apply: val_inj; rewrite /= gcdn1 !divn1 abszE mulr_sign_norm. Qed. Fact valqK x : fracq (valq x) = x. Proof. move: x => [[n d] /= Pnd]; apply: val_inj=> /=. -move: Pnd; rewrite /coprime /fracq /= => -/andP[] hd -/eqP hnd. +move: Pnd; rewrite /coprime /fracq /= => /andP[] hd -/eqP hnd. by rewrite ltr_gtF ?gtr_eqF //= hnd !divn1 mulz_sign_abs abszE gtr0_norm. Qed. |