1. composition of coercions with saturations > 0 is now implemented

[helm.git] / helm / software / components / tactics / closeCoercionGraph.mli

diff --git a/helm/software/components/tactics/closeCoercionGraph.mli b/helm/software/components/tactics/closeCoercionGraph.mli
index d0bdb44107efa5069aaaa2fba6b90c74d88ef672..baf926ff156e37d1d685a7a38c54e6127eeaed03 100644 (file)
--- a/helm/software/components/tactics/closeCoercionGraph.mli
+++ b/helm/software/components/tactics/closeCoercionGraph.mli
@@ -26,15 +26,14 @@
 (* This module implements the Coercions transitive closure *)
 
 val close_coercion_graph:
-  RefinementTool.kit -> 
-  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 * Cic.obj)
+      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.metasenv * CicUniv.universe_graph