From d3c49a6e536006ff121f01303ddc0a43b4c90e23 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 30 Dec 2008 18:31:14 +0000
Subject: - Fixed bugs and compatibilities issues in  
 match_conjunction/match_disjunction/array_for_all_i - Finally activate
 fine-tuned unfolding of iff in tauto: it breaks at   only one place in the
 user contribs (FSetAVL_dep.v).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11726 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/util.ml | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'lib')

diff --git a/lib/util.ml b/lib/util.ml
index b7aa1fc0ee..6803412fdb 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -947,11 +947,8 @@ let array_for_all4 f v1 v2 v3 v4 =
     allrec (pred lv1) 
 
 let array_for_all_i f i v = 
-  let rec allrec i = function
-    | -1 -> true
-    | n -> (f i v.(n)) && (allrec (i-1) (n-1))
-  in 
-  allrec i ((Array.length v)-1) 
+  let rec allrec i n = n = Array.length v || f i v.(n) && allrec (i+1) (n+1) in 
+  allrec i 0
 
 let array_hd v = 
   match Array.length v with
-- 
cgit v1.2.3