diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2018-03-09 10:21:10 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2018-03-09 10:21:10 +0100 |
commit | 49dd2bddc03ce64707cb93d450127152ad6eece6 (patch) | |
tree | 8bf555876d6a7177ad90442acba264a15acacfd0 /vernac/himsg.ml | |
parent | 2a0538da5e81e21ef05120bba5dd7e25dbf9e6fa (diff) | |
parent | 7ceed3c76e5ac752321827300f80ee974acbb54c (diff) |
Merge PR #407: Fix SR breakage due to allowing fixpoints on non-rec values
Diffstat (limited to 'vernac/himsg.ml')
-rw-r--r-- | vernac/himsg.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/himsg.ml b/vernac/himsg.ml index c839ed0c7..131b1fab6 100644 --- a/vernac/himsg.ml +++ b/vernac/himsg.ml @@ -425,7 +425,7 @@ let explain_ill_formed_rec_body env sigma err names i fixenv vdefj = str "Not enough abstractions in the definition" | RecursionNotOnInductiveType c -> str "Recursive definition on" ++ spc () ++ pr_lconstr_env env sigma c ++ - spc () ++ str "which should be an inductive type" + spc () ++ str "which should be a recursive inductive type" | RecursionOnIllegalTerm(j,(arg_env, arg),le,lt) -> let arg_env = make_all_name_different arg_env sigma in let called = |