* 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
+val mql_true : MathQL.result
-val mql_false : MathQL.value
+val mql_false : MathQL.result
-val set_sub : MathQL.value -> MathQL.value -> MathQL.value
+val set_sub : MathQL.result -> MathQL.result -> MathQL.result
-val set_meet : MathQL.value -> MathQL.value -> MathQL.value
+val set_meet : MathQL.result -> MathQL.result -> MathQL.result
-val set_eq : MathQL.value -> MathQL.value -> MathQL.value
+val set_eq : MathQL.result -> MathQL.result -> MathQL.result
val set_union : 'a list -> 'a list -> 'a list
+val mql_subj : MathQL.value -> MathQL.result
+
val mql_union : ('a * 'b list) list -> ('a * 'b list) list ->
('a * 'b list) list
val mql_iter2 : ('c -> 'd -> ('a * 'b list) list) -> 'c list ->
'd list -> ('a * 'b list) list
-val xor : MathQL.value -> MathQL.value -> MathQL.value
-
-val le : MathQL.value -> MathQL.value -> MathQL.value
-
-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 xor : MathQL.result -> MathQL.result -> MathQL.result
-val start_time : unit -> time
+exception NumberError of MathQL.result
-val stop_time : time -> string
+val int_of_set : MathQL.result -> int