diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-05-22 12:15:21 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-05-22 12:20:48 +0200 |
| commit | 5c5f7c8d6a6ed8cbb99b12dde09fdbcc30ca8ab9 (patch) | |
| tree | 94ddbbfb68708dec30463dddb74457cf6eb6083a /tactics | |
| parent | 9f463c144c54a013a0ee214383391f9fc48259d9 (diff) | |
Compatibility fix while waiting for integration of Pierre Courtieu's PR #449.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index e41236b1c..fd10c622a 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -2966,6 +2966,9 @@ 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 + 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 |