X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_unification%2FcicUnification.mli;h=e1a6c2899e446026f352c91b33ad4e6c53f13f73;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=9d26fd3dfc4e7151cec571e0b13d7401e0a05b89;hpb=16e2e2496f35a96c59e909133ff69767d37298aa;p=helm.git

diff --git a/helm/ocaml/cic_unification/cicUnification.mli b/helm/ocaml/cic_unification/cicUnification.mli
index 9d26fd3df..e1a6c2899 100644
--- a/helm/ocaml/cic_unification/cicUnification.mli
+++ b/helm/ocaml/cic_unification/cicUnification.mli
@@ -23,9 +23,9 @@
  * http://cs.unibo.it/helm/.
  *)
 
-exception UnificationFailure of string;;
-exception Uncertain of string;;
-exception AssertFailure of string;;
+exception UnificationFailure of string Lazy.t;;
+exception Uncertain of string Lazy.t;;
+exception AssertFailure of string Lazy.t;;
 
 (* fo_unif metasenv context t1 t2                *)
 (* unifies [t1] and [t2] in a context [context]. *)
@@ -34,8 +34,9 @@ exception AssertFailure of string;;
 (* The returned substitution can be directly     *)
 (* withouth first unwinding it.                  *)
 val fo_unif :
-  Cic.metasenv -> Cic.context -> Cic.term -> Cic.term ->
-   Cic.substitution * Cic.metasenv
+  Cic.metasenv -> Cic.context -> 
+    Cic.term -> Cic.term -> CicUniv.universe_graph -> 
+      Cic.substitution * Cic.metasenv * CicUniv.universe_graph
 
 (* fo_unif_subst metasenv subst context t1 t2    *)
 (* unifies [t1] and [t2] in a context [context]  *)
@@ -51,7 +52,7 @@ val fo_unif :
 (*CSC: fare un tipo unione Unwinded o ToUnwind e fare gestire la
  cosa all'apply_subst!!!*)
 val fo_unif_subst :
-  Cic.substitution ->
-  Cic.context -> Cic.metasenv -> Cic.term -> Cic.term ->
-   Cic.substitution * Cic.metasenv
+  Cic.substitution -> Cic.context -> Cic.metasenv -> 
+    Cic.term -> Cic.term -> CicUniv.universe_graph ->
+      Cic.substitution * Cic.metasenv * CicUniv.universe_graph