diff options
| author |  corbinea <corbinea@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-02-09 13:51:48 +0000 |
|---|---|---|
| committer | corbinea <corbinea@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-02-09 13:51:48 +0000 |
| commit | 7caefa690b0a9c61a85798a050a7f9f62972ab7d (patch) | |
| tree | be54f60fe8181deff0ad324ef0eab468c63f93be /tactics | |
| parent | 41f096f7e3810d9eff5061bc33cf2a1620fc1c21 (diff) | |
bugfix suffices
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9632 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/decl_proof_instr.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/decl_proof_instr.ml b/tactics/decl_proof_instr.ml index e4fa9cc9e..bd3b8ab15 100644 --- a/tactics/decl_proof_instr.ml +++ b/tactics/decl_proof_instr.ml @@ -649,7 +649,7 @@ let assume_st_letin hyps gls = (* suffices *) let free_meta info = - let max_next (i,_) j = if i <= j then succ j else i in + let max_next (i,_) j = if i >= j then succ i else j in List.fold_right max_next info.pm_subgoals 1 let rec metas_from n hyps = |