X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Flibrary%2FcoercGraph.mli;h=9e99d68f8cf02321645a9c4e3e88f3835070d779;hb=7a974bd5775acf432e4074f32a99cc08d42b667f;hp=1923a964a7fa8e799fe890194232d696c3af34c1;hpb=7f2444c2670cadafddd8785b687ef312158376b0;p=helm.git

diff --git a/components/library/coercGraph.mli b/components/library/coercGraph.mli
index 1923a964a..9e99d68f8 100644
--- a/components/library/coercGraph.mli
+++ b/components/library/coercGraph.mli
@@ -23,10 +23,12 @@
  * http://cs.unibo.it/helm/.
  *)
 
+(* $Id$ *)
+
 (* This module implements the Query interface to the Coercion Graph *)
 
 type coercion_search_result = 
-  | SomeCoercion of Cic.term
+  | SomeCoercion of Cic.term list
   | NoCoercion
   | NotMetaClosed
   | NotHandled of string Lazy.t
@@ -34,7 +36,18 @@ type coercion_search_result =
 val look_for_coercion :
   Cic.term -> Cic.term -> coercion_search_result
 
+val look_for_coercion' :
+  CoercDb.coerc_carr -> CoercDb.coerc_carr -> coercion_search_result
+
 val is_a_coercion: Cic.term -> bool
+val is_a_coercion_to_funclass: Cic.term -> int option
+
+(* checks if term is a constant or 
+ * a constant applyed that is marked with (`Class `Coercion) *)
+val is_composite: Cic.term -> bool
+
+
 val source_of: Cic.term -> Cic.term
-val target_of: Cic.term -> Cic.term
+
+val generate_dot_file: unit -> string