fix in the coercions list generation and aded a function to know the

known coercions

diff --git a/helm/ocaml/cic_unification/coercGraph.ml b/helm/ocaml/cic_unification/coercGraph.ml
index e256a19b82545562e990493c72429c7c85b3effc..eb1dc44ae84a184557256da37147d1cf5b848648 100644 (file)
--- a/helm/ocaml/cic_unification/coercGraph.ml
+++ b/helm/ocaml/cic_unification/coercGraph.ml
@@ -188,11 +188,12 @@ let close_coercion_graph src tgt uri =
                 ((src,tgt,c_uri),(c_uri,named_obj,u))
       ) todo_list)
   in
-  coercions := !coercions @ new_coercions;
+  coercions := !coercions @ new_coercions @ [src,tgt,uri];
   new_coercions_obj
 ;;
 
-
+let get_coercions_list () =
+  !coercions
 
 
 (* stupid case *)

diff --git a/helm/ocaml/cic_unification/coercGraph.mli b/helm/ocaml/cic_unification/coercGraph.mli
index 3c03312c7c2232c33514f5aab43235569572bbd8..9cbff65b9a431aaf2da7e22a1e37ba528a9d79a0 100644 (file)
--- a/helm/ocaml/cic_unification/coercGraph.mli
+++ b/helm/ocaml/cic_unification/coercGraph.mli
@@ -29,3 +29,7 @@ val look_for_coercion :
 val close_coercion_graph:
   UriManager.uri -> UriManager.uri -> UriManager.uri ->
     (UriManager.uri * Cic.obj * CicUniv.universe_graph) list
+
+val get_coercions_list:
+  unit -> (UriManager.uri * UriManager.uri * UriManager.uri) list
+