diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-05-18 08:19:49 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-05-18 08:19:49 +0000 |
commit | 57740cb8ed713e5e79e441a31176955fd94220fa (patch) | |
tree | 91951b90b9395c0d23454e6f1bcfe00061f533aa /kernel/type_errors.mli | |
parent | 1e07202f283a6e8358378ffe4e945abd157b079c (diff) |
Ajouts des causes d'erreur de Indrec
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@446 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/type_errors.mli')
-rw-r--r-- | kernel/type_errors.mli | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/type_errors.mli b/kernel/type_errors.mli index 66242b7cf..7ffbd312e 100644 --- a/kernel/type_errors.mli +++ b/kernel/type_errors.mli @@ -17,7 +17,7 @@ type type_error = | NotAType of constr | BadAssumption of constr | ReferenceVariables of identifier - | ElimArity of constr * constr list * constr * constr * constr + | ElimArity of inductive * constr list * constr * constr * constr * (constr * constr * string) option | CaseNotInductive of constr * constr | NumberBranches of constr * constr * int @@ -53,7 +53,7 @@ val error_assumption : path_kind -> env -> constr -> 'b val error_reference_variables : path_kind -> env -> identifier -> 'b val error_elim_arity : - path_kind -> env -> constr -> constr list -> constr + path_kind -> env -> inductive -> constr list -> constr -> constr -> constr -> (constr * constr * string) option -> 'b val error_case_not_inductive : |