Added universes handling. The PRE_UNIVERSES tag may help ;)

[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 c239f8e1f5ff77a2b551fe0a05ee6cf7d66dff17..4289905c80de8e35a54e2e2821fdb1f4de68ab6a 100644 (file)
--- a/helm/ocaml/cic_unification/cicRefine.mli
+++ b/helm/ocaml/cic_unification/cicRefine.mli
@@ -31,5 +31,5 @@ exception AssertFailure of string;;
 (* refines [term] and returns the refined form of [term],    *)
 (* its type the new metasenv. *)
 val type_of_aux':
- Cic.metasenv -> Cic.context -> Cic.term ->
-  Cic.term * Cic.term * Cic.metasenv
+ Cic.metasenv -> Cic.context -> Cic.term -> CicUniv.universe_graph ->
+  Cic.term * Cic.term * Cic.metasenv * CicUniv.universe_graph