X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2FmetadataQuery.ml;h=f12cd9a19785e288d2a209b7eb713e47cad97ace;hb=4573f1fecaf83f4706f39702555d5319d132477b;hp=4beaab5c1e3d668a6ca10460dd9027fa8b8e3a9c;hpb=4d0ef1046012225b44ee5a1768265c52e534109f;p=helm.git

diff --git a/helm/software/components/tactics/metadataQuery.ml b/helm/software/components/tactics/metadataQuery.ml
index 4beaab5c1..f12cd9a19 100644
--- a/helm/software/components/tactics/metadataQuery.ml
+++ b/helm/software/components/tactics/metadataQuery.ml
@@ -171,7 +171,8 @@ let close_with_constructors s metasenv context =
 			     List.fold_left 
 			       (fun (j,s) _ -> 
 				  let curi = UriManager.uri_of_uriref uri i (Some j) in
-                                    prerr_endline ("adding " ^ (UriManager.string_of_uri curi));
+(*                                     prerr_endline ("adding " ^
+ *                                     (UriManager.string_of_uri curi)); *)
 				    j+1,Constr.UriManagerSet.add curi s) (1,s) cl in
 			     (i+1,s)) (0,bag) tl)
 	       | _ -> assert false)