diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-07-27 22:46:58 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-07-27 22:53:10 +0200 |
| commit | 630f565077fa8f9ce9fdd0535b61901c6c539e02 (patch) | |
| tree | c05020024afbd4520ab5b767b7421f7203a5c245 /tactics | |
| parent | 2a7ba998bf7d2c461fdbd8b710b7124395bafaa2 (diff) | |
Fixing bug #5671 (specialize unclean wrt Metas).
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 8a95ad177..057bc774e 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -2979,7 +2979,7 @@ let specialize (c,lbind) ipat = sigma,hd' | _ ,_ -> assert false in let sigma,hd = rebuild_lambdas sigma (List.rev lprod) [] c_hd tstack in - sigma, hd + Evd.clear_metas sigma, hd in let typ = Retyping.get_type_of env sigma term in let tac = |