X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Ftactics%2FcloseCoercionGraph.mli;h=7157e5c2de683aff7670b5c798d3b750c79a5118;hb=42f2dc48b4fef5b404f406bf512d6a0cde35c067;hp=8750ce0f7888f2bb359b5624aef88404d58bb376;hpb=9ebbff1619da00a2d42e04def79c59d129ee4a92;p=helm.git

diff --git a/components/tactics/closeCoercionGraph.mli b/components/tactics/closeCoercionGraph.mli
index 8750ce0f7..7157e5c2d 100644
--- a/components/tactics/closeCoercionGraph.mli
+++ b/components/tactics/closeCoercionGraph.mli
@@ -26,14 +26,14 @@
 (* This module implements the Coercions transitive closure *)
 
 val close_coercion_graph:
-  CoercDb.coerc_carr -> CoercDb.coerc_carr -> UriManager.uri ->
+  CoercDb.coerc_carr -> CoercDb.coerc_carr -> UriManager.uri -> int ->
   string (* baseuri *) ->
-    (CoercDb.coerc_carr * CoercDb.coerc_carr * UriManager.uri * 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 *) -> 
-    bool (* last lambda goes with innermost arg *) ->
+  Cic.term -> Cic.term (* t2 *) -> Cic.context -> 
+  Cic.metasenv -> CicUniv.universe_graph -> int (* saturations of t2 *) ->
     Cic.term * Cic.metasenv * CicUniv.universe_graph