diff options
| author | herbelin | 2009-01-04 18:26:17 +0000 |
|---|---|---|
| committer | herbelin | 2009-01-04 18:26:17 +0000 |
| commit | add6407b394715d29d1544ff3e59ee717601230a (patch) | |
| tree | b308b61922004123bda6abcf6e4434e8fce4ff64 /tactics | |
| parent | 9a5f2464e780a0c2aeefa8e1dc6dfc1f65d392b0 (diff) | |
Fixed bugs #2001 (search_guard was overwriting the guard index given
by user) and #2017 (unification pattern test too crude leading to
regression wrt to 8.1).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11743 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tacinterp.ml | 2 | ||||
| -rw-r--r-- | tactics/tactics.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 7413909b53..9ca68c9a18 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1416,7 +1416,7 @@ let solvable_by_tactic env evi (ev,args) src = begin try by (tclCOMPLETE tac); - let _,(const,_,_) = cook_proof ignore in + let _,(const,_,_,_) = cook_proof ignore in delete_current_proof (); const.const_entry_body with e when Logic.catchable_exception e -> delete_current_proof(); diff --git a/tactics/tactics.ml b/tactics/tactics.ml index c4b5803345..76daeb16bb 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -3090,7 +3090,7 @@ let abstract_subproof name tac gl = error "\"abstract\" cannot handle existentials."; let lemme = start_proof na (Global, Proof Lemma) secsign concl (fun _ _ -> ()); - let _,(const,kind,_) = + let _,(const,_,kind,_) = try by (tclCOMPLETE (tclTHEN (tclDO (List.length sign) intro) tac)); let r = cook_proof ignore in |