From 171472015bc6f3fd1ae6423f1da450f80331fc74 Mon Sep 17 00:00:00 2001
From: Cyril Cohen
Date: Fri, 22 Jan 2016 10:29:07 +0100
Subject: generalizing odd_opp

---
 mathcomp/ssreflect/ssrnat.v | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'mathcomp')

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.
-- 
cgit v1.2.3