diff options
author | 1999-10-18 14:56:56 +0000 | |
---|---|---|
committer | 1999-10-18 14:56:56 +0000 | |
commit | 71d73e9d7f3fd54d5a3264a93c74cd742e3d7de3 (patch) | |
tree | 4a6064526cff354ed77aa875bb8b35bd40a19534 /lib/util.mli | |
parent | 154f0fc69c79383cc75795554eb7e0256c8299d8 (diff) |
mise en place module Refiner
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@107 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/util.mli')
-rw-r--r-- | lib/util.mli | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/util.mli b/lib/util.mli index 484b2d61e..ef56afeb2 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -40,6 +40,7 @@ val list_index : 'a -> 'a list -> int val list_fold_left_i : (int -> 'a -> 'b -> 'a) -> int -> 'a -> 'b list -> 'a val list_for_all_i : (int -> 'a -> bool) -> int -> 'a list -> bool val list_except : 'a -> 'a list -> 'a list +val list_for_all2eq : ('a -> 'b -> bool) -> 'a list -> 'b list -> bool (*s Arrays. *) @@ -78,6 +79,8 @@ module Intmap : Map.S with type key = int val out_some : 'a option -> 'a val option_app : ('a -> 'b) -> 'a option -> 'b option +val map_succeed : ('a -> 'b) -> 'a list -> 'b list + (*s Pretty-printing. *) val pr_spc : unit -> std_ppcmds |