From feabced9caa5996738d1c51fec8428623ebf0fd6 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Wed, 18 Aug 1999 15:20:08 +0000
Subject: module Reduction (fin)

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

(limited to 'lib/util.mli')

diff --git a/lib/util.mli b/lib/util.mli
index c539bdf671..73a33dbadb 100644
--- a/lib/util.mli
+++ b/lib/util.mli
@@ -27,6 +27,10 @@ val subtract : 'a list -> 'a list -> 'a list
 val list_chop : int -> 'a list -> 'a list * 'a list
 val list_tabulate : (int -> 'a) -> int -> 'a list
 val list_assign : 'a list -> int -> 'a -> 'a list
+val list_distinct : 'a list -> bool
+val list_map_i : (int -> 'a -> 'b) -> int -> 'a list -> 'b list
+val list_index : 'a -> 'a list -> int
+val list_fold_left_i :  (int -> 'a -> 'b -> 'a) -> int -> 'a -> 'b list -> 'a
 
 (* Arrays *)
 
@@ -37,6 +41,8 @@ val array_hd : 'a array -> 'a
 val array_tl : 'a array -> 'a array
 val array_last : 'a array -> 'a
 val array_cons : 'a -> 'a array -> 'a array
+val array_fold_left2 : 
+  ('a -> 'b -> 'c -> 'a) -> 'a -> 'b array -> 'c array -> 'a
 val array_fold_left_from : int -> ('a -> 'b -> 'a) -> 'a -> 'b array -> 'a
 val array_fold_right_from : int -> ('a -> 'b -> 'b) -> 'a array -> 'b -> 'b
 val array_app_tl : 'a array -> 'a list -> 'a list
-- 
cgit v1.2.3