diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-08-06 18:15:24 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-08-06 18:15:24 +0000 |
| commit | 2e42df1fe1e4b8276e7a4b268002e6a68d3ac619 (patch) | |
| tree | 0510e2cff31bf814cb101d15efdd65d5de1feb00 /kernel/type_errors.ml | |
| 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 'kernel/type_errors.ml')
| -rw-r--r-- | kernel/type_errors.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/type_errors.ml b/kernel/type_errors.ml index 73aaaed93..9e8d58fa8 100644 --- a/kernel/type_errors.ml +++ b/kernel/type_errors.ml @@ -19,7 +19,7 @@ open Reduction type guard_error = (* Fixpoints *) | NotEnoughAbstractionInFixBody - | RecursionNotOnInductiveType + | RecursionNotOnInductiveType of constr | RecursionOnIllegalTerm of int * constr * int list * int list | NotEnoughArgumentsForFixCall of int (* CoFixpoints *) |