This commit (partially) removes a big source of inefficiency (at least for

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

diff --git a/helm/ocaml/cic_unification/cicRefine.mli b/helm/ocaml/cic_unification/cicRefine.mli
index 2e132c043e18d7f352748c45150156fb088bff14..24a6c276f1757804c9be4d7fadf9bb49ad92a8bc 100644 (file)
--- a/helm/ocaml/cic_unification/cicRefine.mli
+++ b/helm/ocaml/cic_unification/cicRefine.mli
@@ -23,10 +23,13 @@
  * http://cs.unibo.it/helm/.
  *)
 
-exception RefineFailure of string;;
+type failure_msg
+exception RefineFailure of failure_msg;;
 exception Uncertain of string;;
 exception AssertFailure of string;;
 
+val explain_error: failure_msg -> string
+
 (* type_of_aux' metasenv context term graph                *)
 (* refines [term] and returns the refined form of [term],  *)
 (* its type, the new metasenv and universe graph.          *)