From 7caefa690b0a9c61a85798a050a7f9f62972ab7d Mon Sep 17 00:00:00 2001
From: corbinea
Date: Fri, 9 Feb 2007 13:51:48 +0000
Subject: bugfix suffices

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9632 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/decl_proof_instr.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tactics/decl_proof_instr.ml b/tactics/decl_proof_instr.ml
index e4fa9cc9ef..bd3b8ab15e 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 = 
-- 
cgit v1.2.3