From 82e4ba006786491640597ea07016708105860a52 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 28 Feb 2002 12:39:33 +0000
Subject: Ajout andb_true_eq pour PolyList.list_beq

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2497 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Bool/Bool.v | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/theories/Bool/Bool.v b/theories/Bool/Bool.v
index 6b5a1f863b..f8b50e6c27 100755
--- a/theories/Bool/Bool.v
+++ b/theories/Bool/Bool.v
@@ -322,6 +322,11 @@ Proof.
 Save.
 Hints Resolve andb_prop : bool v62.
 
+Definition andb_true_eq : (a,b:bool) true = (andb a b) -> true = a /\ true = b.
+Proof.
+  Destruct a; Destruct b; Clear a b; Auto.
+Defined.
+
 Lemma andb_prop2 : 
   (a,b:bool)(Is_true (andb a b)) -> (Is_true a)/\(Is_true b).
 Proof.
-- 
cgit v1.2.3