X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fmathql_generator%2FcGSearchPattern.ml;h=47345e9f3bd079d9e84572224bb5848195f7e573;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=33a9894d1696a824c9b5903916aae5a284ce99d6;hpb=acaa706b7b5607ab155a4c706355be3799a66992;p=helm.git

diff --git a/helm/ocaml/mathql_generator/cGSearchPattern.ml b/helm/ocaml/mathql_generator/cGSearchPattern.ml
index 33a9894d1..47345e9f3 100644
--- a/helm/ocaml/mathql_generator/cGSearchPattern.ml
+++ b/helm/ocaml/mathql_generator/cGSearchPattern.ml
@@ -172,6 +172,7 @@ in
 ;;
 
 (*CSC: Debugging only *)
+(* 
 let get_constraints term =
  let res = get_constraints term in
  let (objs,rels,sorts) = res in
@@ -188,7 +189,7 @@ let get_constraints term =
    (function (p, s) -> prerr_endline (text_of_pos (p:>T.full_position) ^ " " ^ U.text_of_sort s)
    ) sorts ;
   res
-;;
+;; *)
 
 let universe =
    [T.MainHypothesis; T.InHypothesis; T.MainConclusion; T.InConclusion]