diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-04-08 14:52:20 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-04-08 14:52:20 +0000 |
| commit | aa40ae5b2fe08d65f62200e65fe6da9467f55e51 (patch) | |
| tree | 34c80e8f18ab708459167bac16f71335c44e4153 /tactics | |
| parent | 9fbacf326690cd0369efb5aa96ef97398ced4237 (diff) | |
- Fixing bug #2084 (unification not checking sort constraints), hoping
it does not cause a time penalty.
- Removing of get_type_of_with_meta made possible by the
evar_defs/evar_map merge.
- Adding unfolding of Meta in reductionops (this assumes that reduction does
not move Metas across binders...)
- Renaming newly created fold_map_rel_context into map_rel_context_in_env.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12061 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/refine.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tactics/refine.ml b/tactics/refine.ml index e37ffaf09..1a61c982b 100644 --- a/tactics/refine.ml +++ b/tactics/refine.ml @@ -101,7 +101,10 @@ let replace_by_meta env sigma = function | Lambda (Anonymous,c1,c2) when isCast c2 -> let _,_,t = destCast c2 in mkArrow c1 t | _ -> (* (App _ | Case _) -> *) - Retyping.get_type_of_with_meta env sigma mm c + let sigma' = + List.fold_right (fun (m,t) sigma -> Evd.meta_declare m t sigma) + mm sigma in + Retyping.get_type_of env sigma' c (* | Fix ((_,j),(v,_,_)) -> v.(j) (* en pleine confiance ! *) |