X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fmathql%2FmQueryUtil.mli;h=bb38dc91d349ec1bca9b564382ca102e9c0ad80a;hb=1c7fb836e2af4f2f3d18afd0396701f2094265ff;hp=83337ddfbf31d295349ecd22141101f3e39814d5;hpb=3d70d837a733b4daed65d7c568f4be08f3c37b54;p=helm.git

diff --git a/helm/ocaml/mathql/mQueryUtil.mli b/helm/ocaml/mathql/mQueryUtil.mli
index 83337ddfb..bb38dc91d 100644
--- a/helm/ocaml/mathql/mQueryUtil.mli
+++ b/helm/ocaml/mathql/mQueryUtil.mli
@@ -23,16 +23,8 @@
  * http://cs.unibo.it/helm/.
  *)
 
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                     Ferruccio Guidi <fguidi@cs.unibo.it>                   *)
-(*                                 30/04/2002                                 *)
-(*                                                                            *)
-(*                                                                            *)
-(******************************************************************************)
-
+(*  AUTOR: Ferruccio Guidi <fguidi@cs.unibo.it>
+ *)
 
 val text_of_query  : (string -> unit) -> MathQL.query -> string -> unit
 
@@ -42,8 +34,21 @@ val query_of_text  : Lexing.lexbuf -> MathQL.query
 
 val result_of_text : Lexing.lexbuf -> MathQL.result
 
+type time
+
+val start_time : unit -> 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 
+
 
 type uriref = UriManager.uri * (int list)
 
 val string_of_uriref : uriref -> string
-