X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fmetadata%2FmetadataConstraints.ml;h=6c373f18036677cf454d256fd79e264f2161a49e;hb=0663e736012a6bf2af56758181252289e79352d2;hp=f9766a7350e12bf652bd69e727a183c399e6f817;hpb=8f5b2a89a53e1ee111fe90d1a9fba9f5c45072e7;p=helm.git

diff --git a/helm/software/components/metadata/metadataConstraints.ml b/helm/software/components/metadata/metadataConstraints.ml
index f9766a735..6c373f180 100644
--- a/helm/software/components/metadata/metadataConstraints.ml
+++ b/helm/software/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