X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Fmetadata%2FmetadataConstraints.ml;h=6c373f18036677cf454d256fd79e264f2161a49e;hb=db9b735ff1192a7e308eaa0c073fa360f76f0ce2;hp=785f73fe4a326aa88b4f63e9ad9399baeeebe7e8;hpb=959b04de5aac3ce6994a468cda20b0c198ebe579;p=helm.git

diff --git a/components/metadata/metadataConstraints.ml b/components/metadata/metadataConstraints.ml
index 785f73fe4..6c373f180 100644
--- a/components/metadata/metadataConstraints.ml
+++ b/components/metadata/metadataConstraints.ml
@@ -546,9 +546,11 @@ let compute_with_only ~(dbd:HMysql.dbd) ?(facts=false) ?(where = `Conclusion)
           maximal_prefixes)
     in
 (*     Printf.fprintf stderr "all: %d\n" (List.length all);flush_all (); *)
+(*
     List.filter (function (_,uri) -> 
-      prerr_endline ("W" ^UriManager.string_of_uri uri);
-      at_most ~dbd ~where constants uri) all 
+      at_most ~dbd ~where constants uri) 
+*)
+    all 
     in
   let equal_to = compute_exactly ~dbd ~facts ~where main prefixes in
     greater_than @ equal_to