X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fmetadata%2FmetadataConstraints.mli;h=ecdb3e6b2d370ac93f59cb61218afbf99f0e9477;hb=a7ab0ef67114c3152920f03ae1d7bfaaf1fae290;hp=ec6d81f38d35a53c9f7abfc5a03658c5825a646f;hpb=9cd69dd86ed337478461241d497265ccc59f819a;p=helm.git

diff --git a/helm/ocaml/metadata/metadataConstraints.mli b/helm/ocaml/metadata/metadataConstraints.mli
index ec6d81f38..ecdb3e6b2 100644
--- a/helm/ocaml/metadata/metadataConstraints.mli
+++ b/helm/ocaml/metadata/metadataConstraints.mli
@@ -41,7 +41,13 @@ val cmatch: dbh:Dbi.connection -> Cic.term -> string list
   * relevance information: higher the tag, higher the relevance *)
 val cmatch': dbh:Dbi.connection -> Cic.term -> (int * string) list
 
-val sigmatch: dbh:Dbi.connection -> term_signature -> (int * string) list
+type where = [ `Conclusion | `Statement ] (** signature matching extent *)
+
+  (** @param where defaults to `Conclusion *)
+val sigmatch:
+  dbh:Dbi.connection ->
+  ?where:where -> term_signature ->
+    (int * string) list
 
 (** {2 Constraint engine} *)
 
@@ -60,6 +66,12 @@ val at_least:
   MetadataTypes.constr list ->
     string list
 
+  (** @param where defaults to `Conclusion *)
+val at_most:
+  dbh:Dbi.connection ->
+  ?where:where -> StringSet.t ->
+    (string -> bool)
+
 val signature_of: Cic.term -> term_signature
 val constants_of: Cic.term -> StringSet.t