new compose tactic, still undocumented.

[helm.git] / components / library / cicCoercion.mli

diff --git a/components/library/cicCoercion.mli b/components/library/cicCoercion.mli
index e3ee8dbfc8d46ed2418d1d988cc13da57d9a048e..789e7d00dff19a512230e84975f0b94c67b640b0 100644 (file)
--- a/components/library/cicCoercion.mli
+++ b/components/library/cicCoercion.mli
@@ -25,6 +25,13 @@
 
 (* This module implements the Coercions transitive closure *)
 
+val set_close_coercion_graph : 
+  (RefinementTool.kit -> 
+  CoercDb.coerc_carr -> CoercDb.coerc_carr -> UriManager.uri ->
+  string (* baseuri *) ->
+    (CoercDb.coerc_carr * CoercDb.coerc_carr * UriManager.uri * Cic.obj) list)
+  -> unit
+
 val close_coercion_graph:
   RefinementTool.kit -> 
   CoercDb.coerc_carr -> CoercDb.coerc_carr -> UriManager.uri ->