diff options
| -rw-r--r-- | pretyping/unification.ml | 2 | ||||
| -rw-r--r-- | tactics/class_tactics.ml4 | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 9156dfa9e2..d26195efc8 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -177,7 +177,7 @@ let use_evars_pattern_unification flags = let expand_key env = function | Some (ConstKey cst) -> constant_opt_value env cst - | Some (VarKey id) -> named_body id env + | Some (VarKey id) -> (try named_body id env with Not_found -> None) | Some (RelKey _) -> None | None -> None 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 |