From 3b11686e4f78f6d166f84d990ac4fedb4d3e800a Mon Sep 17 00:00:00 2001
From: msozeau
Date: Wed, 13 Apr 2011 14:28:37 +0000
Subject: Put dependent subgoals first so as to allow backtracking on them,
 might change resolution time quite a bit

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

diff --git a/tactics/class_tactics.ml4 b/tactics/class_tactics.ml4
index f754a926d1..2831e5ec37 100644
--- a/tactics/class_tactics.ml4
+++ b/tactics/class_tactics.ml4
@@ -321,7 +321,7 @@ let hints_tac hints =
 		       | None -> gls', s'
 		       | Some (evgls, s') ->
 			 (* Reorder with dependent subgoals. *)
-			 (gls' @ List.map (fun (ev, x) -> Some ev, x) evgls, s')
+			 (List.map (fun (ev, x) -> Some ev, x) evgls @ gls', s')
 		   in
 		   let gls' = list_map_i
 		     (fun j (evar, g) ->
-- 
cgit v1.2.3