diff options
| author | Hugo Herbelin | 2016-10-24 11:29:52 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2017-05-22 12:06:59 +0200 |
| commit | 9f463c144c54a013a0ee214383391f9fc48259d9 (patch) | |
| tree | e897efafe48d53239e07309915d888184067ef4e /tactics | |
| parent | 9eb2f7480de8ded94a1b96eb4f6cc16d19a8c14d (diff) | |
Using type classes in the interpretation of "specialize" and "contradiction".
We do that by using constr_with_bindings rather than
open_constr_with_bindings (+ extra call to typeclasses in
"specialize"). If my understanding is right, the only effect would be
to succeed more in cases where it was failing (in
inh_conv_coerce_to_gen). In particular, "specialize" and
"contradiction" already have a WITHHOLES test for rejecting pending
holes.
Incidentally, this answers enhancement #5153.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 15cef676e6..e41236b1c3 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -2966,10 +2966,6 @@ let specialize (c,lbind) ipat = let env = Proofview.Goal.env gl in let sigma = Sigma.to_evar_map (Proofview.Goal.sigma gl) in let sigma, term = - if lbind == NoBindings then - let sigma = Typeclasses.resolve_typeclasses env sigma in - sigma, nf_evar sigma c - else let clause = make_clenv_binding env sigma (c,Retyping.get_type_of env sigma c) lbind in let flags = { (default_unify_flags ()) with resolve_evars = true } in let clause = clenv_unify_meta_types ~flags clause in |