diff options
| author | Maxime Dénès | 2017-05-25 16:06:47 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-05-25 16:06:47 +0200 |
| commit | 4ad6dbef69f9fd4cb1b55efc252d67325068e6b1 (patch) | |
| tree | 0c2c1f2310cf5751a2f97f29a0bfd5a8295d1da2 /tactics | |
| parent | 48d56f49b1db47f393ef3e0f31d1b22adf497afa (diff) | |
| parent | 5c5f7c8d6a6ed8cbb99b12dde09fdbcc30ca8ab9 (diff) | |
Merge PR#637: Short cleaning of the interpretation path for constr_with_bindings
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 1975eed9d4..c713a31fa3 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -2959,8 +2959,7 @@ let specialize (c,lbind) ipat = 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 + 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 |