diff options
| author |  puech <puech@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-07-29 14:25:10 +0000 |
|---|---|---|
| committer | puech <puech@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-07-29 14:25:10 +0000 |
| commit | 4eba5c485defc6f14e7e6e11e4b157011a2017fb (patch) | |
| tree | bd2ab4311c0b3d8e05156c2df43efac9ed7a5a2b /lib/util.ml | |
| parent | a7331c608a2fb52f11ec3fc4abbae78d68f4682a (diff) | |
Evarutil: generic equality on constr replaced by eq_constr (x2)
added array_equal in Util
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14323 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/util.ml')
| -rw-r--r-- | lib/util.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml index 67ff2a501..6a69c58d2 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -887,6 +887,12 @@ let array_compare item_cmp v1 v2 = else cmp (i-1) in cmp (Array.length v1 - 1) +let array_equal cmp t1 t2 = + Array.length t1 = Array.length t2 && + let rec aux i = + (i = Array.length t1) || (cmp t1.(i) t2.(i) && aux (i + 1)) + in aux 0 + let array_exists f v = let rec exrec = function | -1 -> false |