X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fmathql_interpreter%2Fmqint.ml;h=ee757f3f0c6f2d6cd01dd9a075f0b161bb600e6c;hb=a370bf72d9e59254327ae3801ed4201f9981c6f0;hp=54dc0e05c40d44c6fbedcf184f8109a5d8e547d4;hpb=86122a3ce11bdf45ecb93f8f7efaffa49bd31fa2;p=helm.git

diff --git a/helm/ocaml/mathql_interpreter/mqint.ml b/helm/ocaml/mathql_interpreter/mqint.ml
index 54dc0e05c..ee757f3f0 100644
--- a/helm/ocaml/mathql_interpreter/mqint.ml
+++ b/helm/ocaml/mathql_interpreter/mqint.ml
@@ -87,7 +87,7 @@ let rec exec_set_exp c = function
         let ll1 = string_of_int (List.length rs1) in
         let ll2 = string_of_int (List.length rs2) in
         let diff = string_of_float (after -. before) in
-	if ! stat then
+	if !stat then
         (print_endline("INTERSECT(" ^ ll1 ^ "," ^ ll2 ^ ") = " ^ string_of_int (List.length res) ^
          ": " ^ diff ^ "s");
          flush stdout);
@@ -97,7 +97,7 @@ let rec exec_set_exp c = function
 	let res = union_ex (exec_set_exp c sexp1) (exec_set_exp c sexp2) in
 	let after = Sys.time() in
 	let diff = string_of_float (after -. before) in
-        if ! stat then
+        if !stat then
 	(print_endline ("UNION: " ^ diff ^ "s");
          flush stdout);
         res		      	
@@ -130,7 +130,7 @@ let rec exec_set_exp c = function
          res)
 	else
         (let res = relation_galax_ex rop path (exec_set_exp c sexp) attl in
-         if ! stat then
+         if !stat then
          (print_string ("RELATION-GALAX " ^ (List.hd path) ^ " = " ^ string_of_int(List.length res) ^ ": ");
           print_endline (string_of_float (Sys.time() -. before) ^ "s");
           flush stdout);