X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Flibrary%2FcicCoercion.mli;h=97463b1d6e32a66e60945ab05e00a6779b9e2b36;hb=249d11773d32add20d665c4f8521b7380e4fec0a;hp=d862297261eecf8a37801db95d2a707e178cc0e8;hpb=396a578b680e7fdb9d262822184e52f0d4d5086b;p=helm.git

diff --git a/components/library/cicCoercion.mli b/components/library/cicCoercion.mli
index d86229726..97463b1d6 100644
--- a/components/library/cicCoercion.mli
+++ b/components/library/cicCoercion.mli
@@ -28,11 +28,13 @@
 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 * Cic.obj) list)
+    (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 -> int ->
   string (* baseuri *) ->
-    (CoercDb.coerc_carr * CoercDb.coerc_carr * UriManager.uri * int * Cic.obj) list
+    (CoercDb.coerc_carr * CoercDb.coerc_carr * UriManager.uri *
+      int (* saturations *) * Cic.obj * int (* arity *) ) list