X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Flibrary%2FcicCoercion.mli;h=8356de8cd15a3ecebeab1d423e8504d6a34defc8;hb=f4c17198d8afe7c8cd62dbab527d08902d891491;hp=97463b1d6e32a66e60945ab05e00a6779b9e2b36;hpb=aaf1c6a4f2e56d08433e2258da4d4cc51c943e4e;p=helm.git

diff --git a/helm/software/components/library/cicCoercion.mli b/helm/software/components/library/cicCoercion.mli
index 97463b1d6..8356de8cd 100644
--- a/helm/software/components/library/cicCoercion.mli
+++ b/helm/software/components/library/cicCoercion.mli
@@ -29,12 +29,12 @@ 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)
+      int (* saturations *) * Cic.obj * int (* arity *) * int (* cpos *)) 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 (* saturations *) * Cic.obj * int (* arity *) ) list
+      int (* saturations *) * Cic.obj * int (* arity *) * int (* cpos *)) list