From bcbbdaeb9de4b2477f10347f5d5eb7712ac72920 Mon Sep 17 00:00:00 2001
From: barras
Date: Thu, 16 Apr 2009 22:56:25 +0000
Subject: comparison functions on lists and arrays

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

(limited to 'lib/util.mli')

diff --git a/lib/util.mli b/lib/util.mli
index 23fdd76707..0acff599db 100644
--- a/lib/util.mli
+++ b/lib/util.mli
@@ -99,6 +99,7 @@ val lowercase_first_char_utf8 : string -> string
 
 (*s Lists. *)
 
+val list_compare : ('a -> 'a -> int) -> 'a list -> 'a list -> int
 val list_add_set : 'a -> 'a list -> 'a list
 val list_eq_set : 'a list -> 'a list -> bool
 val list_intersect : 'a list -> 'a list -> 'a list
@@ -196,6 +197,7 @@ val list_union_map : ('a -> 'b -> 'b) -> 'a list -> 'b -> 'b
 
 (*s Arrays. *)
 
+val array_compare : ('a -> 'a -> int) -> 'a array -> 'a array -> int
 val array_exists : ('a -> bool) -> 'a array -> bool
 val array_for_all : ('a -> bool) -> 'a array -> bool
 val array_for_all2 : ('a -> 'b -> bool) -> 'a array -> 'b array -> bool
-- 
cgit v1.2.3