X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Flibrary%2FcoercDb.mli;h=59c07f447acd3796130a16b2fc238b2e52969407;hb=50b3acd4b20269cf615bb297262f0238cc8e692a;hp=130987df84ae8badbe70efcdb1209e46c74ad570;hpb=910c252965fe17d6b5af92e4658e7d02bac82d58;p=helm.git

diff --git a/helm/software/components/library/coercDb.mli b/helm/software/components/library/coercDb.mli
index 130987df8..59c07f447 100644
--- a/helm/software/components/library/coercDb.mli
+++ b/helm/software/components/library/coercDb.mli
@@ -37,14 +37,15 @@ val string_of_carr: coerc_carr -> string
 (* takes a term in whnf ~delta:false and a desired ariety *)
 val coerc_carr_of_term: Cic.term -> int -> coerc_carr 
 
-val to_list:
-  unit -> 
-    (coerc_carr * coerc_carr * (UriManager.uri * int * int) list) list
-
 type coerc_db
+val empty_coerc_db : coerc_db
 val dump: unit -> coerc_db
 val restore: coerc_db -> unit
 
+val to_list:
+  coerc_db -> 
+    (coerc_carr * coerc_carr * (UriManager.uri * int * int) list) list
+
 (* src carr, tgt carr, uri, saturations, coerced position 
  * invariant:
  *   if the constant pointed by uri has n argments
@@ -62,3 +63,5 @@ val find_coercion:
   (coerc_carr * coerc_carr -> bool) -> (UriManager.uri * int) list 
     
 val is_a_coercion: Cic.term -> coercion_entry option
+
+val prefer: UriManager.uri -> unit