X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_proof_checking%2FcicTypeChecker.mli;fp=helm%2Focaml%2Fcic_proof_checking%2FcicTypeChecker.mli;h=0000000000000000000000000000000000000000;hb=c7514aaa249a96c5fdd39b1123fbdb38d92f20b6;hp=1dbcc11c86efecb6bb78bef136d6ecf0ccd9d55f;hpb=1c7fb836e2af4f2f3d18afd0396701f2094265ff;p=helm.git diff --git a/helm/ocaml/cic_proof_checking/cicTypeChecker.mli b/helm/ocaml/cic_proof_checking/cicTypeChecker.mli deleted file mode 100644 index 1dbcc11c8..000000000 --- a/helm/ocaml/cic_proof_checking/cicTypeChecker.mli +++ /dev/null @@ -1,52 +0,0 @@ -(* Copyright (C) 2000, HELM Team. - * - * This file is part of HELM, an Hypertextual, Electronic - * Library of Mathematics, developed at the Computer Science - * Department, University of Bologna, Italy. - * - * HELM is free software; you can redistribute it and/or - * modify it under the terms of the GNU General Public License - * as published by the Free Software Foundation; either version 2 - * of the License, or (at your option) any later version. - * - * HELM is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with HELM; if not, write to the Free Software - * Foundation, Inc., 59 Temple Place - Suite 330, Boston, - * MA 02111-1307, USA. - * - * For details, see the HELM World-Wide-Web page, - * http://cs.unibo.it/helm/. - *) - -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 - -(* FUNCTIONS USED ONLY IN THE TOPLEVEL *) - -(* type_of_aux' metasenv context term *) -val type_of_aux': - 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