diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-10-15 08:09:38 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-10-15 08:09:38 +0000 |
| commit | a8c6bc617a90da733d4c6380c67f742798d25b54 (patch) | |
| tree | cae56f71db8c0ed43c3b1bb6e281da8fef012f28 | |
| parent | ade8d5b089ee10d3f17cebcbc883cbc6c7343539 (diff) | |
Orthographe
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2113 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/himsg.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index 69eb5f2a6..c528eba95 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -478,8 +478,9 @@ 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 " ; + [<'sTR "The constructor "; pc; 'sTR " expects " ; if n = 0 then [< 'sTR "no argument.">] + else if n = 1 then [< 'sTR "1 argument.">] else [< 'iNT n ; 'sTR " arguments.">] >] |