* http://cs.unibo.it/helm/.
*)
-(******************************************************************************)
-(* *)
-(* PROJECT HELM *)
-(* *)
-(* Ferruccio Guidi <fguidi@cs.unibo.it> *)
-(* 30/04/2002 *)
-(* *)
-(* *)
-(******************************************************************************)
-
-
-val text_of_query : (string -> unit) -> MathQL.query -> string -> unit
-
-val text_of_result : (string -> unit) -> MathQL.result -> string -> unit
-
-val query_of_text : Lexing.lexbuf -> MathQL.query
-
-val result_of_text : Lexing.lexbuf -> MathQL.result
+(* AUTOR: Ferruccio Guidi <fguidi@cs.unibo.it>
+ *)
type time
val stop_time : time -> string
+type 'a comparison = Lt
+ | Gt
+ | Eq of 'a
+
+val list_join : ('a -> 'a -> 'a comparison) -> 'a list -> 'a list -> 'a list
+
+val list_meet : ('a -> 'a -> 'a comparison) -> 'a list -> 'a list -> 'a list
+
+val flat_list : ('a -> unit) -> ('b -> unit) -> 'a -> 'b list -> unit
-type uriref = UriManager.uri * (int list)
+val add_assoc : 'a * 'b -> ('a * 'b) list -> ('a * 'b) list
-val string_of_uriref : uriref -> string
+val int_of_string : string -> int