diff options
| author | Enrico Tassi | 2020-11-18 10:38:41 +0100 |
|---|---|---|
| committer | GitHub | 2020-11-18 10:38:41 +0100 |
| commit | 831e7a2d2d7c5385751946582ede7f766accca58 (patch) | |
| tree | 1feabf78bf1228cbb300b72176d462b7f0bb6759 /mathcomp/algebra | |
| parent | 526be1c2e1aec37df13619f06196c53912d97f82 (diff) | |
| parent | d84c26fa2eeeeb0029a56bac37bf1bae9f10882a (diff) | |
Merge pull request #599 from CohenCyril/dup_swap_apply
Intro pattern extensions for dup, swap and apply
Diffstat (limited to 'mathcomp/algebra')
| -rw-r--r-- | mathcomp/algebra/ssrnum.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mathcomp/algebra/ssrnum.v b/mathcomp/algebra/ssrnum.v index 185d5c1..7da7ebc 100644 --- a/mathcomp/algebra/ssrnum.v +++ b/mathcomp/algebra/ssrnum.v @@ -1678,7 +1678,7 @@ Hint Resolve real1 : core. Lemma realn n : n%:R \is @real R. Proof. by rewrite ger0_real. Qed. Lemma ler_leVge x y : x <= 0 -> y <= 0 -> (x <= y) || (y <= x). -Proof. by rewrite -!oppr_ge0 => /(ger_leVge _) h /h; rewrite !ler_opp2. Qed. +Proof. by rewrite -!oppr_ge0 => /(ger_leVge _) /[apply]; rewrite !ler_opp2. Qed. Lemma real_leVge x y : x \is real -> y \is real -> (x <= y) || (y <= x). Proof. by rewrite -comparabler0 -comparable0r => /comparabler_trans P/P. Qed. |