diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-10-24 17:13:20 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-10-24 17:13:20 +0000 |
| commit | 28623d59a6381c7fb1c198ddca2dc382ba5c0e4c (patch) | |
| tree | 1c17ab0c40c93c54b448eaa42c071f57010e6391 /tactics | |
| parent | 82649c076ae38353aec5333987c80476f27e3775 (diff) | |
Fixing XML doc (COQ_XML not working as an environment variable).
Fixing English grammar in inversion error message (reported in bug #2164).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12409 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/inv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/inv.ml b/tactics/inv.ml index 2a11d6520..eb978ba48 100644 --- a/tactics/inv.ml +++ b/tactics/inv.ml @@ -291,7 +291,7 @@ let generalizeRewriteIntros tac depids id gls = let rec tclMAP_i n tacfun = function | [] -> tclDO n (tacfun None) | a::l -> - if n=0 then error "Too much names." + if n=0 then error "Too many names." else tclTHEN (tacfun (Some a)) (tclMAP_i (n-1) tacfun l) let remember_first_eq id x = if !x = no_move then x := MoveAfter id |