diff options
| author | herbelin | 2009-04-08 14:52:20 +0000 |
|---|---|---|
| committer | herbelin | 2009-04-08 14:52:20 +0000 |
| commit | aa40ae5b2fe08d65f62200e65fe6da9467f55e51 (patch) | |
| tree | 34c80e8f18ab708459167bac16f71335c44e4153 /toplevel/command.ml | |
| 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 'toplevel/command.ml')
| -rw-r--r-- | toplevel/command.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 70087ecbfc..6e000bc74a 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -1132,7 +1132,7 @@ let look_for_mutual_statements thms = let n = List.length thms in let inds = List.map (fun (id,(t,_) as x) -> let (hyps,ccl) = decompose_prod_assum t in - let whnf_hyp_hds = fold_map_rel_context + let whnf_hyp_hds = map_rel_context_in_env (fun env c -> fst (whd_betadeltaiota_stack env Evd.empty c)) (Global.env()) hyps in let ind_hyps = |