ocaml 3.09 transition

[helm.git] / helm / ocaml / cic_unification / coercGraph.mli

diff --git a/helm/ocaml/cic_unification/coercGraph.mli b/helm/ocaml/cic_unification/coercGraph.mli
index cb0e51ca614445a808509cbac041f0c132f6b148..fcbed3497313fd840b81d36000d5e3eef7d3dd6a 100644 (file)
--- a/helm/ocaml/cic_unification/coercGraph.mli
+++ b/helm/ocaml/cic_unification/coercGraph.mli
@@ -23,15 +23,17 @@
  * http://cs.unibo.it/helm/.
  *)
 
-type coercions = (UriManager.uri * UriManager.uri * UriManager.uri) list
+type coercion_search_result = 
+  | SomeCoercion of Cic.term
+  | NoCoercion
+  | NotMetaClosed
+  | NotHandled of string Lazy.t
 
 val look_for_coercion :
-  UriManager.uri -> UriManager.uri -> Cic.term option
+  Cic.term -> Cic.term -> coercion_search_result
 
+(* also adds them to the Db *)
 val close_coercion_graph:
-  UriManager.uri -> UriManager.uri -> UriManager.uri ->
+  CoercDb.coerc_carr -> CoercDb.coerc_carr -> UriManager.uri ->
     (UriManager.uri * Cic.obj * CicUniv.universe_graph) list
 
-val get_coercions_list:
-  unit -> (UriManager.uri * UriManager.uri * UriManager.uri) list
-