diff options
| author | msozeau | 2010-01-26 16:51:00 +0000 |
|---|---|---|
| committer | msozeau | 2010-01-26 16:51:00 +0000 |
| commit | 06bd5357554ce06079b33288d3b9be0e68b44302 (patch) | |
| tree | ba65d05cb68197642070aceaa913659b1ae02e24 /tactics | |
| parent | 9a9aada110be18fc88a7559b9dce05d66edf156a (diff) | |
Quick fix for references to section variables unbound in the current
environment during unification. Should be checked earlier.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12692 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/class_tactics.ml4 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tactics/class_tactics.ml4 b/tactics/class_tactics.ml4 index b77425f0d6..45e6884566 100644 --- a/tactics/class_tactics.ml4 +++ b/tactics/class_tactics.ml4 @@ -523,7 +523,8 @@ exception FoundTerm of constr let resolve_one_typeclass env ?(sigma=Evd.empty) gl = let gls = { it = Evd.make_evar (Environ.named_context_val env) gl; sigma = sigma } in - let gls', v = eauto [searchtable_map typeclasses_db] gls in + let hints = searchtable_map typeclasses_db in + let gls', v = eauto ~st:(Hint_db.transparent_state hints) [hints] gls in let term = v [] in let evd = sig_sig gls' in let term = fst (Refiner.extract_open_proof evd term) in |