diff options
| author | herbelin | 2005-12-17 21:13:48 +0000 |
|---|---|---|
| committer | herbelin | 2005-12-17 21:13:48 +0000 |
| commit | ae6c95a3755fc3a9434bcc9fdd81b7c69baa8280 (patch) | |
| tree | 695244819d00b4816223e572c7867ca21efa9758 /kernel | |
| 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')
| -rw-r--r-- | kernel/indtypes.ml | 6 | ||||
| -rw-r--r-- | kernel/indtypes.mli | 6 |
2 files changed, 2 insertions, 10 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index d12c3a213f..5237b93db7 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -28,8 +28,8 @@ open Entries (************************************************************************) (* Various well-formedness check for inductive declarations *) +(* 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 @@ -39,10 +39,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 diff --git a/kernel/indtypes.mli b/kernel/indtypes.mli index bbfa47818d..05534ec368 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 |