From d56db9d3a6c098055ebea57557c1d1aaf6f0c9b6 Mon Sep 17 00:00:00 2001
From: Cyril Cohen
Date: Tue, 25 Aug 2020 14:51:41 +0200
Subject: Adding lemma `oddS`

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

(limited to 'mathcomp')

diff --git a/mathcomp/ssreflect/ssrnat.v b/mathcomp/ssreflect/ssrnat.v
index 90b1f1d..8b4d39f 100644
--- a/mathcomp/ssreflect/ssrnat.v
+++ b/mathcomp/ssreflect/ssrnat.v
@@ -1252,6 +1252,8 @@ Proof. by rewrite mulnC mulnbl. Qed.
 
 Fixpoint odd n := if n is n'.+1 then ~~ odd n' else false.
 
+Lemma oddS n : odd n.+1 = ~~ odd n. Proof. by []. Qed.
+
 Lemma oddb (b : bool) : odd b = b. Proof. by case: b. Qed.
 
 Lemma oddD m n : odd (m + n) = odd m (+) odd n.
-- 
cgit v1.2.3