X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fmathql_interpreter%2FmQIUtil.mli;h=76735a86342c3c9c028372db5099da028fb8ad65;hb=97c2d258a5c524eb5c4b85208899d80751a2c82f;hp=38ca8f380240af2f81b735d28bb71c2dd0b67bf4;hpb=48b9bb5e9504aba97cff28a9d7e2797feb42972e;p=helm.git

diff --git a/helm/ocaml/mathql_interpreter/mQIUtil.mli b/helm/ocaml/mathql_interpreter/mQIUtil.mli
index 38ca8f380..76735a863 100644
--- a/helm/ocaml/mathql_interpreter/mQIUtil.mli
+++ b/helm/ocaml/mathql_interpreter/mQIUtil.mli
@@ -23,16 +23,8 @@
  * http://cs.unibo.it/helm/.
  *)
 
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                     Ferruccio Guidi <fguidi@cs.unibo.it>                   *)
-(*                                 06/01/2003                                 *)
-(*                                                                            *)
-(*                                                                            *)
-(******************************************************************************)
-
+(*  AUTOR: Ferruccio Guidi <fguidi@cs.unibo.it>
+ *)
 
 val mql_true      : MathQL.value
 
@@ -46,6 +38,8 @@ val set_eq        : MathQL.value -> MathQL.value -> MathQL.value
 
 val set_union     : 'a list -> 'a list -> 'a list
 
+val set_intersect : 'a list -> 'a list -> 'a list
+
 val mql_union     : ('a * 'b list) list -> ('a * 'b list) list -> 
                     ('a * 'b list) list
 
@@ -73,9 +67,3 @@ val lt            : MathQL.value -> MathQL.value -> MathQL.value
 val align         : string -> string -> MathQL.value
 
 val set           : string * 'a -> (string * 'a) list -> (string * 'a) list
-
-type time  
-
-val start_time    : unit -> time
-
-val stop_time     : time -> string