diff options
| author | letouzey | 2008-11-28 18:08:47 +0000 |
|---|---|---|
| committer | letouzey | 2008-11-28 18:08:47 +0000 |
| commit | c2ea1d631f7e5006eb0ae794e6f5e829147d0a75 (patch) | |
| tree | 296a6005fc8bc9084ca3451ccfbfd5f9d4fc0e27 /toplevel | |
| parent | 71069a7cd68f13902fa24c799142fecd1566626f (diff) | |
Inductive parameters: nicer doc examples and error message
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11642 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/himsg.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index 26c29d4c0f..1bc4e4f33c 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -633,8 +633,8 @@ let error_bad_ind_parameters env c n v1 v2 = let pc = pr_lconstr_env_at_top env c in let pv1 = pr_lconstr_env env v1 in let pv2 = pr_lconstr_env env v2 in - str "The " ++ nth n ++ str " argument of " ++ pv2 ++ brk(1,1) ++ - str "must be " ++ pv1 ++ str " in" ++ brk(1,1) ++ pc ++ str "." + str "Last occurrence of " ++ pv2 ++ str " must have " ++ pv1 ++ + str " as " ++ nth n ++ str " argument in " ++ brk(1,1) ++ pc ++ str "." let error_same_names_types id = str "The name" ++ spc () ++ pr_id id ++ spc () ++ |