diff options
| author | corbinea | 2009-10-27 08:57:43 +0000 |
|---|---|---|
| committer | corbinea | 2009-10-27 08:57:43 +0000 |
| commit | 722d0c21cb2f8da64b1c54f854c8dc401edd25e6 (patch) | |
| tree | af03835e2fd8129ff0996438d8a342a4c8a5f4c8 /tactics/decl_interp.ml | |
| parent | 6fd4d51576b2298b0a8c9cf3d18b47e57f5083b8 (diff) | |
fixed czar bug with parametric inductives
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12423 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/decl_interp.ml')
| -rw-r--r-- | tactics/decl_interp.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tactics/decl_interp.ml b/tactics/decl_interp.ml index 77357e3fa4..bfb5039d58 100644 --- a/tactics/decl_interp.ml +++ b/tactics/decl_interp.ml @@ -327,9 +327,9 @@ let interp_cases info sigma env params (pat:cases_pattern_expr) hyps = let _ = let expected = mib.Declarations.mind_nparams - num_params in if List.length params <> expected then - errorlabstrm "suppose it is" - (str "Wrong number of extra arguments: " ++ - (if expected = 0 then str "none" else int expected) ++ + errorlabstrm "suppose it is" + (str "Wrong number of extra arguments: " ++ + (if expected = 0 then str "none" else int expected) ++ spc () ++ str "expected.") in let app_ind = let rind = RRef (dummy_loc,Libnames.IndRef pinfo.per_ind) in |