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

1 files changed, 5 insertions, 0 deletions

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.