depends

[helm.git] / helm / software / components / library / coercDb.mli

diff --git a/helm/software/components/library/coercDb.mli b/helm/software/components/library/coercDb.mli
index 130987df84ae8badbe70efcdb1209e46c74ad570..59c07f447acd3796130a16b2fc238b2e52969407 100644 (file)
--- 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