X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_proof_checking%2FcicTypeChecker.mli;h=1dbcc11c86efecb6bb78bef136d6ecf0ccd9d55f;hb=fde0ad77237a2fbdfb5621d5b5085fe7c82e3f92;hp=93f956143bcfdbc8042e7e444e149b199e03c63b;hpb=7db7305941a97d43480cf58c08a154ed79f300cb;p=helm.git

diff --git a/helm/ocaml/cic_proof_checking/cicTypeChecker.mli b/helm/ocaml/cic_proof_checking/cicTypeChecker.mli
index 93f956143..1dbcc11c8 100644
--- a/helm/ocaml/cic_proof_checking/cicTypeChecker.mli
+++ b/helm/ocaml/cic_proof_checking/cicTypeChecker.mli
@@ -23,17 +23,30 @@
  * http://cs.unibo.it/helm/.
  *)
 
-exception NotWellTyped of string
-exception WrongUriToConstant of string
-exception WrongUriToVariable of string
-exception WrongUriToMutualInductiveDefinitions of string
-exception ListTooShort
-exception NotPositiveOccurrences of string
-exception NotWellFormedTypeOfInductiveConstructor of string
-exception WrongRequiredArgument of string
+type type_checker_exn =
+   Impossible of int
+ | NotWellTyped of string
+ | WrongUriToConstant of string
+ | WrongUriToVariable of string
+ | WrongUriToMutualInductiveDefinitions of string
+ | ListTooShort
+ | NotPositiveOccurrences of string
+ | NotWellFormedTypeOfInductiveConstructor of string
+ | WrongRequiredArgument of string
+ | RelToHiddenHypothesis
+ | MetasenvInconsistency;;
+
+(* This is the only exception that will be raised *)
+exception TypeCheckerFailure of type_checker_exn;;
+
 val typecheck : UriManager.uri -> unit
 
-(* used only in the toplevel *)
+(* FUNCTIONS USED ONLY IN THE TOPLEVEL *)
+
 (* type_of_aux' metasenv context term *)
 val type_of_aux':
- (int * Cic.term) list -> Cic.context -> Cic.term -> Cic.term
+ Cic.metasenv -> Cic.context -> Cic.term -> Cic.term
+
+(* typecheck_mutual_inductive_defs uri (itl,params,indparamsno) *)
+val typecheck_mutual_inductive_defs :
+ UriManager.uri -> Cic.inductiveType list * UriManager.uri list * int -> unit