X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2FcloseCoercionGraph.mli;h=0d5a2e5be78adaad639fc1fb1a874a7aa38c4ece;hb=35e102fec6bad146fee425f299a93520e657e7c2;hp=baf926ff156e37d1d685a7a38c54e6127eeaed03;hpb=1f6aab137983a515b3ba4bb1d1efe0c9e22e889e;p=helm.git

diff --git a/helm/software/components/tactics/closeCoercionGraph.mli b/helm/software/components/tactics/closeCoercionGraph.mli
index baf926ff1..0d5a2e5be 100644
--- a/helm/software/components/tactics/closeCoercionGraph.mli
+++ b/helm/software/components/tactics/closeCoercionGraph.mli
@@ -28,12 +28,13 @@
 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
 
 exception UnableToCompose
 
 val generate_composite:
-  Cic.term -> Cic.term -> Cic.context -> 
-  Cic.metasenv -> CicUniv.universe_graph -> int (* arity *) -> 
+  Cic.term -> Cic.term (* t2 *) -> Cic.context -> 
+  Cic.metasenv -> CicUniv.universe_graph -> 
+  int -> int (* saturations of t1/t2 *) ->
     Cic.term * Cic.metasenv * CicUniv.universe_graph