Coercions are now generalized to the general form

[helm.git] / components / library / cicCoercion.mli

diff --git a/components/library/cicCoercion.mli b/components/library/cicCoercion.mli
index 5dc086ec44cf2a9668355f550a8a430be3390715..d862297261eecf8a37801db95d2a707e178cc0e8 100644 (file)
--- a/components/library/cicCoercion.mli
+++ b/components/library/cicCoercion.mli
@@ -26,13 +26,13 @@
 (* This module implements the Coercions transitive closure *)
 
 val set_close_coercion_graph : 
-  (CoercDb.coerc_carr -> CoercDb.coerc_carr -> UriManager.uri ->
+  (CoercDb.coerc_carr -> CoercDb.coerc_carr -> UriManager.uri -> int ->
   string (* baseuri *) ->
-    (CoercDb.coerc_carr * CoercDb.coerc_carr * UriManager.uri * Cic.obj) list)
+    (CoercDb.coerc_carr * CoercDb.coerc_carr * UriManager.uri * int * Cic.obj) list)
   -> unit
 
 val close_coercion_graph:
-  CoercDb.coerc_carr -> CoercDb.coerc_carr -> UriManager.uri ->
+  CoercDb.coerc_carr -> CoercDb.coerc_carr -> UriManager.uri -> int ->
   string (* baseuri *) ->
-    (CoercDb.coerc_carr * CoercDb.coerc_carr * UriManager.uri * Cic.obj) list
+    (CoercDb.coerc_carr * CoercDb.coerc_carr * UriManager.uri * int * Cic.obj) list