X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Flibrary%2FcicCoercion.mli;h=97463b1d6e32a66e60945ab05e00a6779b9e2b36;hb=699d76ddae765f0a927648cddf624b540743f225;hp=c9eaf0aac035b2fa7b24c533a0a0bb3a44ff3c6f;hpb=7f2444c2670cadafddd8785b687ef312158376b0;p=helm.git

diff --git a/components/library/cicCoercion.mli b/components/library/cicCoercion.mli
index c9eaf0aac..97463b1d6 100644
--- a/components/library/cicCoercion.mli
+++ b/components/library/cicCoercion.mli
@@ -25,7 +25,16 @@
 
 (* This module implements the Coercions transitive closure *)
 
+val set_close_coercion_graph : 
+  (CoercDb.coerc_carr -> CoercDb.coerc_carr -> UriManager.uri -> int ->
+  string (* baseuri *) ->
+    (CoercDb.coerc_carr * CoercDb.coerc_carr * UriManager.uri *
+      int (* saturations *) * Cic.obj * int (* arity *)) list)
+  -> unit
+
 val close_coercion_graph:
-  CoercDb.coerc_carr -> CoercDb.coerc_carr -> UriManager.uri ->
-    (CoercDb.coerc_carr * CoercDb.coerc_carr * UriManager.uri * Cic.obj) list
+  CoercDb.coerc_carr -> CoercDb.coerc_carr -> UriManager.uri -> int ->
+  string (* baseuri *) ->
+    (CoercDb.coerc_carr * CoercDb.coerc_carr * UriManager.uri *
+      int (* saturations *) * Cic.obj * int (* arity *) ) list