X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fmetadata%2FmetadataConstraints.mli;h=bc83f65d7e876e19aedbce26fdbdea982a3b4aa4;hb=fedecee9c4b10a2469c10fe09ec091d2dc6fc56a;hp=63757ae47c772861dba3e141051c6dfa0c2c5b38;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

diff --git a/helm/software/components/metadata/metadataConstraints.mli b/helm/software/components/metadata/metadataConstraints.mli
index 63757ae47..bc83f65d7 100644
--- a/helm/software/components/metadata/metadataConstraints.mli
+++ b/helm/software/components/metadata/metadataConstraints.mli
@@ -24,7 +24,7 @@
  *)
 
 module UriManagerSet : Set.S with type elt = UriManager.uri
-
+module SetSet: Set.S with type elt = UriManagerSet.t
 
   (** @return <main, constants>
   * main: constant in main position and, for polymorphic constants, type
@@ -36,17 +36,17 @@ type term_signature = (UriManager.uri * UriManager.uri list) option * UriManager
 
   (** @return sorted list of theorem URIs, first URIs in the least have higher
   * relevance *)
-val cmatch: dbd:HMysql.dbd -> ?facts:bool -> Cic.term -> UriManager.uri list
+val cmatch: dbd:HSql.dbd -> ?facts:bool -> Cic.term -> UriManager.uri list
 
   (** as cmatch, but returned list is not sorted but rather tagged with
   * relevance information: higher the tag, higher the relevance *)
-val cmatch': dbd:HMysql.dbd -> ?facts:bool -> Cic.term -> (int * UriManager.uri) list
+val cmatch': dbd:HSql.dbd -> ?facts:bool -> Cic.term -> (int * UriManager.uri) list
 
 type where = [ `Conclusion | `Statement ] (** signature matching extent *)
 
   (** @param where defaults to `Conclusion *)
 val sigmatch:
-  dbd:HMysql.dbd ->
+  dbd:HSql.dbd ->
   ?facts:bool ->
   ?where:where -> 
   term_signature ->
@@ -78,7 +78,7 @@ val add_constraint:
   * @return list of URI satisfying given constraints *)
 
 val at_least:
-  dbd:HMysql.dbd ->
+  dbd:HSql.dbd ->
   ?concl_card:cardinality_condition ->
   ?full_card:cardinality_condition ->
   ?diff:cardinality_condition ->
@@ -88,7 +88,7 @@ val at_least:
 
   (** @param where defaults to `Conclusion *)
 val at_most:
-  dbd:HMysql.dbd ->
+  dbd:HSql.dbd ->
   ?where:where -> UriManagerSet.t ->
     (UriManager.uri -> bool)
 
@@ -101,7 +101,8 @@ val add_all_constr:
   int * string list * string list
 
 val exec: 
-  dbd:HMysql.dbd ->
+  HSql.dbtype ->
+  dbd:HSql.dbd ->
   ?rating:[ `Hits ] -> 
   int * string list * string list -> 
   UriManager.uri list