X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_unification%2FcoercGraph.mli;h=dfba8f5dc758a8198868f58ca2cbc4867f5e5912;hb=07151480b04db0ef4e77d09a5b7559ae5ab25ab4;hp=03acb4a6d44232acb3843b8a3aec49a2f804f9f4;hpb=6376b9d56df8c0151a4cd5f35f2646d9922b5858;p=helm.git

diff --git a/helm/ocaml/cic_unification/coercGraph.mli b/helm/ocaml/cic_unification/coercGraph.mli
index 03acb4a6d..dfba8f5dc 100644
--- a/helm/ocaml/cic_unification/coercGraph.mli
+++ b/helm/ocaml/cic_unification/coercGraph.mli
@@ -23,11 +23,17 @@
  * http://cs.unibo.it/helm/.
  *)
 
+type coercion_search_result = 
+  | SomeCoercion of Cic.term
+  | NoCoercion
+  | NotMetaClosed
+  | NotHandled of string
+
 val look_for_coercion :
-  Cic.term -> Cic.term -> 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