diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-04-13 14:28:37 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-04-13 14:28:37 +0000 |
| commit | 3b11686e4f78f6d166f84d990ac4fedb4d3e800a (patch) | |
| tree | 8f1387cb368738986c4d62ec9aaa3bc9a473ebf9 | |
| parent | d51c733cb7a3034921fc63a07588e5f0d1e98525 (diff) | |
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
| -rw-r--r-- | tactics/class_tactics.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/class_tactics.ml4 b/tactics/class_tactics.ml4 index f754a926d..2831e5ec3 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) -> |