From f5eb06f0d2b28fe72db12fb57458b961b9ae9d85 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 28 Dec 2008 19:03:04 +0000
Subject: - Another bug in get_sort_family_of (sort-polymorphism of constants
 and   inductive types was not taken into account). - Virtually extended tauto
 to   - support arbitrary-length disjunctions and conjunctions,   - support
 arbitrary complex forms of disjunctions and     conjunctions when in the
 contravariant of an implicative hypothesis,   - stick with the purely
 propositional fragment and not apply reflexivity.   This is virtual in the
 sense that it is not activated since it breaks   compatibility with the
 existing tauto. - Modified the notion of conjunction and unit type used in
 hipattern in a   way that is closer to the intuitive meaning (forbid
 dependencies   between parameters in conjunction; forbid indices in unit
 types). - Investigated how far "iff" could be turned into a direct inductive 
  definition; modified tauto.ml4 so that it works with the current and   the
 alternative definition. - Fixed a bug in the error message from
 lookup_eliminator. - Other minor changes.

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

(limited to 'lib/util.ml')

diff --git a/lib/util.ml b/lib/util.ml
index 3b04e25742..b7aa1fc0ee 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -946,6 +946,13 @@ let array_for_all4 f v1 v2 v3 v4 =
   lv1 = Array.length 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 array_hd v = 
   match Array.length v with
     | 0 -> failwith "array_hd"
-- 
cgit v1.2.3