diff options
Diffstat (limited to 'toplevel/himsg.ml')
| -rw-r--r-- | toplevel/himsg.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index 52581a15df..42fc6d0fc5 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -655,6 +655,9 @@ let error_not_an_arity id = let error_bad_entry () = str "Bad inductive definition." +let error_large_non_prop_inductive_not_in_type () = + str "Large non-propositional inductive types must be in Type." + (* Recursion schemes errors *) let error_not_allowed_case_analysis isrec kind i = @@ -685,6 +688,7 @@ let explain_inductive_error = function | SameNamesOverlap idl -> error_same_names_overlap idl | NotAnArity id -> error_not_an_arity id | BadEntry -> error_bad_entry () + | LargeNonPropInductiveNotInType -> error_large_non_prop_inductive_not_in_type () (* Recursion schemes errors *) |