X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Ftactics%2Fmatch_concl.ml;h=c2266cd1004fbb0e4a2018ee3b7859e6843c4e32;hb=3bb4ce11fb9d4c6375483a80344beb94c4517dd7;hp=078cb931a903b26ac2281d6dd8fa7b4a0236fc78;hpb=978a25d9392e5fc1a19fa37c86339c5d0b67ddd6;p=helm.git

diff --git a/helm/ocaml/tactics/match_concl.ml b/helm/ocaml/tactics/match_concl.ml
index 078cb931a..c2266cd10 100644
--- a/helm/ocaml/tactics/match_concl.ml
+++ b/helm/ocaml/tactics/match_concl.ml
@@ -136,8 +136,9 @@ let rec exec_must (conn:Mysql.dbd) (l:MQGTypes.r_obj list) (cc:count_condition)
 	     ("no_inconcl_aux.source = refObj0.source")::where) in
   let from = String.concat "," from in
   let where = String.concat " and " where in
-  let query = "select refObj0.source from " ^ from ^ " where " ^ where in
-    prerr_endline query;
+  let query = 
+        "select refObj0.source from " ^ from ^ " where " ^ where in
+   (* prerr_endline query;*)
     Mysql.exec conn query
 ;;