diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-12-17 21:13:48 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-12-17 21:13:48 +0000 |
commit | ae6c95a3755fc3a9434bcc9fdd81b7c69baa8280 (patch) | |
tree | 695244819d00b4816223e572c7867ca21efa9758 /kernel/indtypes.mli | |
parent | cea2061080d540c0507192eca1887ea4b502680d (diff) |
Création d'un type d'erreur RecursionSchemeError distinct de InductiveError et suite correction bug #1028
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7660 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/indtypes.mli')
-rw-r--r-- | kernel/indtypes.mli | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/kernel/indtypes.mli b/kernel/indtypes.mli index bbfa47818..05534ec36 100644 --- a/kernel/indtypes.mli +++ b/kernel/indtypes.mli @@ -22,8 +22,8 @@ open Typeops (*s The different kinds of errors that may result of a malformed inductive definition. *) +(* Errors related to inductive constructions *) type inductive_error = - (* These are errors related to inductive constructions in this module *) | NonPos of env * constr * constr | NotEnoughArgs of env * constr * constr | NotConstructor of env * constr * constr @@ -33,10 +33,6 @@ type inductive_error = | SameNamesOverlap of identifier list | NotAnArity of identifier | BadEntry - (* These are errors related to recursors building in Indrec *) - | NotAllowedCaseAnalysis of bool * sorts * inductive - | BadInduction of bool * identifier * sorts - | NotMutualInScheme exception InductiveError of inductive_error |