diff options
| author | herbelin | 2004-08-06 18:15:24 +0000 |
|---|---|---|
| committer | herbelin | 2004-08-06 18:15:24 +0000 |
| commit | 2e42df1fe1e4b8276e7a4b268002e6a68d3ac619 (patch) | |
| tree | 0510e2cff31bf814cb101d15efdd65d5de1feb00 /toplevel | |
| parent | 8bb0d9d3853cdbde4992be9cbde393f19edcdcbf (diff) | |
Amélioration message d'erreur objet de récursion de type non inductif
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6019 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/himsg.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index 82aad5a6dd..9d2160cb68 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -222,8 +222,9 @@ let explain_ill_formed_rec_body ctx err names i = (* Fixpoint guard errors *) | NotEnoughAbstractionInFixBody -> str "Not enough abstractions in the definition" - | RecursionNotOnInductiveType -> - str "Recursive definition on a non inductive type" + | RecursionNotOnInductiveType c -> + str "Recursive definition on" ++ spc() ++ prterm_env ctx c ++ spc() ++ + str "which should be an inductive type" | RecursionOnIllegalTerm(j,arg,le,lt) -> let called = match names.(j) with |