X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2FcloseCoercionGraph.mli;h=70c4eff9ada321ba00688bc24ac341c675a763ba;hb=30743ffb0d331aaaa449957238128943ba781ecf;hp=7157e5c2de683aff7670b5c798d3b750c79a5118;hpb=aaf1c6a4f2e56d08433e2258da4d4cc51c943e4e;p=helm.git

diff --git a/helm/software/components/tactics/closeCoercionGraph.mli b/helm/software/components/tactics/closeCoercionGraph.mli
index 7157e5c2d..70c4eff9a 100644
--- a/helm/software/components/tactics/closeCoercionGraph.mli
+++ b/helm/software/components/tactics/closeCoercionGraph.mli
@@ -29,11 +29,12 @@ 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
 
 exception UnableToCompose
 
 val generate_composite:
   Cic.term -> Cic.term (* t2 *) -> Cic.context -> 
-  Cic.metasenv -> CicUniv.universe_graph -> int (* saturations of t2 *) ->
+  Cic.metasenv -> CicUniv.universe_graph -> 
+  int -> int (* saturations of t1/t2 *) ->
     Cic.term * Cic.metasenv * CicUniv.universe_graph