ancien names decoupe en names + sign

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 15 insertions, 0 deletions

diff --git a/lib/util.mli b/lib/util.mli
index 25b419be83..5d4c706b9a 100644
--- a/lib/util.mli
+++ b/lib/util.mli
@@ -3,6 +3,16 @@
 
 open Pp
 
+(* Errors *)
+
+exception Anomaly of string * std_ppcmds  (* System errors *)
+val anomaly : string -> 'a
+val anomalylabstrm : string -> std_ppcmds -> 'a
+
+exception UserError of string * std_ppcmds (* User errors *)
+val error : string -> 'a
+val errorlabstrm : string -> std_ppcmds -> 'a
+
 (* Strings *)
 
 val explode : string -> string list
@@ -10,6 +20,11 @@ val implode : string list -> string
 
 val parse_section_path : string -> string list * string * string
 
+(* Lists *)
+
+val intersect : 'a list -> 'a list -> 'a list
+val subtract : 'a list -> 'a list -> 'a list
+
 (* Pretty-printing *)
 
 val pr_spc : unit -> std_ppcmds