diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-25 07:23:04 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-25 07:23:04 +0000 |
| commit | cccea9817f1d638be94da0cc7912e92b833b1ac8 (patch) | |
| tree | e9285410fe7a586cc0b7def586db8bac9a3c4bae | |
| parent | 65983260225b91a44d33d08322bbdadaf7a95cc3 (diff) | |
Amelioration message args constructeur
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1709 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/himsg.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index 9ce8aad99..2942bd314 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -486,8 +486,10 @@ let explain_bad_constructor ctx cstr ind = let explain_wrong_numarg_of_constructor ctx cstr n = let pc = pr_constructor ctx (cstr,[||]) in - [<'sTR "The constructor "; pc; - 'sTR " expects " ; 'iNT n ; 'sTR " arguments. ">] + [<'sTR "The constructor "; pc; 'sTR " expects " ; + if n = 0 then [< 'sTR "no argument.">] + else [< 'iNT n ; 'sTR " arguments.">] + >] let explain_wrong_predicate_arity ctx pred nondep_arity dep_arity= let pp = prterm_env ctx pred in |