X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_unification%2FcicRefine.mli;h=c239f8e1f5ff77a2b551fe0a05ee6cf7d66dff17;hb=ebc089606ccbb3e9dbde142542a1f98f5020b4dd;hp=28a34f5ff8354762716243f34ef88d17ce07a16a;hpb=e874af2d785b2b383ae8444fdd32bb5344fb914f;p=helm.git

diff --git a/helm/ocaml/cic_unification/cicRefine.mli b/helm/ocaml/cic_unification/cicRefine.mli
index 28a34f5ff..c239f8e1f 100644
--- a/helm/ocaml/cic_unification/cicRefine.mli
+++ b/helm/ocaml/cic_unification/cicRefine.mli
@@ -23,15 +23,13 @@
  * http://cs.unibo.it/helm/.
  *)
 
-exception NotRefinable of string
-exception Uncertain of string
-exception WrongUriToConstant of string
-exception WrongUriToVariable of string
-exception WrongUriToMutualInductiveDefinitions of string
+exception RefineFailure of string;;
+exception Uncertain of string;;
+exception AssertFailure of string;;
 
 (* type_of_aux' metasenv context term                        *)
 (* refines [term] and returns the refined form of [term],    *)
-(* its type, the computed substitution and the new metasenv. *)
+(* its type the new metasenv. *)
 val type_of_aux':
  Cic.metasenv -> Cic.context -> Cic.term ->
   Cic.term * Cic.term * Cic.metasenv