diff options
| author | Cyril Cohen | 2016-01-22 10:29:07 +0100 |
|---|---|---|
| committer | Cyril Cohen | 2016-01-22 13:13:46 +0100 |
| commit | 171472015bc6f3fd1ae6423f1da450f80331fc74 (patch) | |
| tree | e508b939ea15223e907a6fd2c095711b2eafe0ef | |
| parent | 481a2a3bb4902f02e816cfab162e9d88d7ce76b5 (diff) | |
generalizing odd_opp
| -rw-r--r-- | mathcomp/ssreflect/ssrnat.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/mathcomp/ssreflect/ssrnat.v b/mathcomp/ssreflect/ssrnat.v index 5091411..9b9f6a5 100644 --- a/mathcomp/ssreflect/ssrnat.v +++ b/mathcomp/ssreflect/ssrnat.v @@ -1121,8 +1121,8 @@ Proof. by move=> le_nm; apply: (@canRL bool) (addbK _) _; rewrite -odd_add subnK. Qed. -Lemma odd_opp i m : odd m = false -> i < m -> odd (m - i) = odd i. -Proof. by move=> oddm lt_im; rewrite (odd_sub (ltnW lt_im)) oddm. Qed. +Lemma odd_opp i m : odd m = false -> i <= m -> odd (m - i) = odd i. +Proof. by move=> oddm le_im; rewrite (odd_sub (le_im)) oddm. Qed. Lemma odd_mul m n : odd (m * n) = odd m && odd n. Proof. by elim: m => //= m IHm; rewrite odd_add -addTb andb_addl -IHm. Qed. |