Preliminary support for proof-tree enhanced: proof-trees are now shown

[helm.git] / helm / ocaml / mathql / mQueryUtil.mli

diff --git a/helm/ocaml/mathql/mQueryUtil.mli b/helm/ocaml/mathql/mQueryUtil.mli
index 53d612e822ae60fd0fb5ba7aa6983dcd9657ee6d..bb38dc91d349ec1bca9b564382ca102e9c0ad80a 100644 (file)
--- 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
 
@@ -48,6 +40,14 @@ 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)