diff options
| author | ppedrot | 2013-03-05 15:38:43 +0000 |
|---|---|---|
| committer | ppedrot | 2013-03-05 15:38:43 +0000 |
| commit | 38ac6e0eff49662636e8db6ceb5f4badbdc7795a (patch) | |
| tree | 0a70704700ea171430eb9a4e532168a76603ae43 /lib/cArray.ml | |
| parent | 407631d36ce77071556a80d6665cffc7d9a6c94a (diff) | |
Missing primitive in CArray
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16259 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/cArray.ml')
| -rw-r--r-- | lib/cArray.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/cArray.ml b/lib/cArray.ml index 7ffdeb6a15..05c8cc87c3 100644 --- a/lib/cArray.ml +++ b/lib/cArray.ml @@ -41,6 +41,7 @@ sig include S val compare : ('a -> 'a -> int) -> 'a array -> 'a array -> int val equal : ('a -> 'a -> bool) -> 'a array -> 'a array -> bool + val is_empty : 'a array -> bool val exists : ('a -> bool) -> 'a array -> bool val for_all : ('a -> bool) -> 'a array -> bool val for_all2 : ('a -> 'b -> bool) -> 'a array -> 'b array -> bool @@ -108,6 +109,8 @@ let equal cmp t1 t2 = (i = Array.length t1) || (cmp t1.(i) t2.(i) && aux (i + 1)) in aux 0 +let is_empty array = (Array.length array) = 0 + let exists f v = let rec exrec = function | -1 -> false |