diff options
| author | Maxime Dénès | 2019-01-21 14:15:51 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2019-01-21 14:15:51 +0100 |
| commit | b8da6225e3867408f5d1ad0c716618c4228a1ad2 (patch) | |
| tree | 28bbb08c4500676b2eca478323243d867cf27c15 /vernac/comInductive.ml | |
| parent | 05e2222e04323d11429d659b415750cf40e2babd (diff) | |
| parent | 9c678306157b2c6199091709ef7bb067f724f80c (diff) | |
Merge PR #9027: Refactor checking of inductive types
Ack-by: SkySkimmer
Reviewed-by: mattam82
Ack-by: maximedenes
Ack-by: ppedrot
Diffstat (limited to 'vernac/comInductive.ml')
| -rw-r--r-- | vernac/comInductive.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vernac/comInductive.ml b/vernac/comInductive.ml index 25a4804743..92b1ff7572 100644 --- a/vernac/comInductive.ml +++ b/vernac/comInductive.ml @@ -24,7 +24,7 @@ open Constrexpr_ops open Constrintern open Impargs open Reductionops -open Indtypes +open Type_errors open Pretyping open Indschemes open Context.Rel.Declaration @@ -304,7 +304,7 @@ let inductive_levels env evd poly arities inds = let evd = if Sorts.is_set du then if not (Evd.check_leq evd cu Univ.type0_univ) then - raise (Indtypes.InductiveError Indtypes.LargeNonPropInductiveNotInType) + raise (InductiveError LargeNonPropInductiveNotInType) else evd else evd (* Evd.set_leq_sort env evd (Type cu) du *) |