diff options
| author | Gaëtan Gilbert | 2019-01-10 14:43:56 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-01-21 13:22:47 +0100 |
| commit | 5f9a6c17b4353024e7510977a41cfb1de93a0f5f (patch) | |
| tree | 90cad909e39d662f6d7f7293d47c242edd9d4d8e /kernel/indtypes.mli | |
| parent | 05e2222e04323d11429d659b415750cf40e2babd (diff) | |
Move inductive_error to Type_errors
Diffstat (limited to 'kernel/indtypes.mli')
| -rw-r--r-- | kernel/indtypes.mli | 32 |
1 files changed, 17 insertions, 15 deletions
diff --git a/kernel/indtypes.mli b/kernel/indtypes.mli index 840e23ed69..b4879611a3 100644 --- a/kernel/indtypes.mli +++ b/kernel/indtypes.mli @@ -19,21 +19,6 @@ open Entries (** The different kinds of errors that may result of a malformed inductive definition. *) -(** Errors related to inductive constructions *) -type inductive_error = - | NonPos of env * constr * constr - | NotEnoughArgs of env * constr * constr - | NotConstructor of env * Id.t * constr * constr * int * int - | NonPar of env * constr * int * constr * constr - | SameNamesTypes of Id.t - | SameNamesConstructors of Id.t - | SameNamesOverlap of Id.t list - | NotAnArity of env * constr - | BadEntry - | LargeNonPropInductiveNotInType - -exception InductiveError of inductive_error - val infos_and_sort : env -> constr -> Univ.Universe.t val check_subtyping_arity_constructor : env -> (constr -> constr) -> types -> int -> bool -> unit @@ -50,3 +35,20 @@ val check_positivity : chkpos:bool -> (** The following function does checks on inductive declarations. *) val check_inductive : env -> MutInd.t -> mutual_inductive_entry -> mutual_inductive_body + +(** Deprecated *) +type inductive_error = + | NonPos of env * constr * constr + | NotEnoughArgs of env * constr * constr + | NotConstructor of env * Id.t * constr * constr * int * int + | NonPar of env * constr * int * constr * constr + | SameNamesTypes of Id.t + | SameNamesConstructors of Id.t + | SameNamesOverlap of Id.t list + | NotAnArity of env * constr + | BadEntry + | LargeNonPropInductiveNotInType +[@@ocaml.deprecated "Use [Type_errors.inductive_error]"] + +exception InductiveError of Type_errors.inductive_error +[@@ocaml.deprecated "Use [Type_errors.InductiveError]"] |