From: Andrea Asperti <andrea.asperti@unibo.it>
Date: Tue, 3 Jan 2012 15:55:51 +0000 (+0000)
Subject: noteq_to_eqnot
X-Git-Tag: make_still_working~1995
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=c2c729ed092b9bad8b004bb8f8dea6e0f4471995;p=helm.git

noteq_to_eqnot
---

diff --git a/matita/matita/lib/basics/bool.ma b/matita/matita/lib/basics/bool.ma
index 43a3369a3..fb0106f12 100644
--- a/matita/matita/lib/basics/bool.ma
+++ b/matita/matita/lib/basics/bool.ma
@@ -37,6 +37,14 @@ theorem notb_notb: ∀b:bool. notb (notb b) = b.
 theorem injective_notb: injective bool bool notb.
 #b1 #b2 #H // qed.
 
+theorem noteq_to_eqnot: ∀b1,b2. b1 ≠ b2 → b1 = notb b2.
+* * // #H @False_ind /2/
+qed.
+
+theorem eqnot_to_noteq: ∀b1,b2. b1 = notb b2 → b1 ≠ b2.
+* * normalize // #_ @(not_to_not … not_eq_true_false) //
+qed.
+
 definition andb : bool → bool → bool ≝
 λb1,b2:bool. match b1 with [ true ⇒ b2 | false ⇒ false ].
 
@@ -95,3 +103,4 @@ theorem true_or_false:
 ∀b:bool. b = true ∨ b = false.
 #b (cases b) /2/ qed.
 
+