type_of_aux' exported.

[helm.git] / helm / ocaml / cic_proof_checking / cicTypeChecker.mli

diff --git a/helm/ocaml/cic_proof_checking/cicTypeChecker.mli b/helm/ocaml/cic_proof_checking/cicTypeChecker.mli
index 72dd63c574a46e4902ebb826f5dbcec6fff6d26c..329b0508335fb0785d9ba47e6cf68f9d1ab8e88c 100644 (file)
--- a/helm/ocaml/cic_proof_checking/cicTypeChecker.mli
+++ b/helm/ocaml/cic_proof_checking/cicTypeChecker.mli
@@ -32,3 +32,8 @@ exception NotPositiveOccurrences of string
 exception NotWellFormedTypeOfInductiveConstructor of string
 exception WrongRequiredArgument of string
 val typecheck : UriManager.uri -> unit
+val type_of: Cic.term -> Cic.term
+
+(* used only in the toplevel *)
+(* type_of_aux' metasenv context term *)
+val type_of_aux': (int * Cic.term) list -> Cic.term list -> Cic.term -> Cic.term