renamed Http_client to Http_user_agent to avoid clashes with Gerd's

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

diff --git a/helm/ocaml/cic_unification/cicUnification.mli b/helm/ocaml/cic_unification/cicUnification.mli
index 40b9f8ef78b2892d2d4f6ddc9bf39f30cff88846..9d26fd3dfc4e7151cec571e0b13d7401e0a05b89 100644 (file)
--- a/helm/ocaml/cic_unification/cicUnification.mli
+++ b/helm/ocaml/cic_unification/cicUnification.mli
@@ -23,8 +23,9 @@
  * http://cs.unibo.it/helm/.
  *)
 
-exception AssertFailure of string
-exception UnificationFailure of string
+exception UnificationFailure of string;;
+exception Uncertain of string;;
+exception AssertFailure of string;;
 
 (* fo_unif metasenv context t1 t2                *)
 (* unifies [t1] and [t2] in a context [context]. *)
@@ -34,7 +35,7 @@ exception UnificationFailure of string
 (* withouth first unwinding it.                  *)
 val fo_unif :
   Cic.metasenv -> Cic.context -> Cic.term -> Cic.term ->
-   CicMetaSubst.substitution * Cic.metasenv
+   Cic.substitution * Cic.metasenv
 
 (* fo_unif_subst metasenv subst context t1 t2    *)
 (* unifies [t1] and [t2] in a context [context]  *)
@@ -50,7 +51,7 @@ val fo_unif :
 (*CSC: fare un tipo unione Unwinded o ToUnwind e fare gestire la
  cosa all'apply_subst!!!*)
 val fo_unif_subst :
-  CicMetaSubst.substitution ->
+  Cic.substitution ->
   Cic.context -> Cic.metasenv -> Cic.term -> Cic.term ->
-   CicMetaSubst.substitution * Cic.metasenv
+   Cic.substitution * Cic.metasenv