diff options
| author | herbelin | 2010-06-12 17:53:35 +0000 |
|---|---|---|
| committer | herbelin | 2010-06-12 17:53:35 +0000 |
| commit | a97decb77b2084a3b84c5135f5bae2dbbb5ace26 (patch) | |
| tree | cdaf12b9b4b4470ed561871f238a6fd8d4526907 /pretyping/reductionops.ml | |
| parent | deec843772d392f71806c011351fa6d4f551115d (diff) | |
Fixed bug #2135 (second-order unification was raising cryptic message)
- made the example work (a call to whd_meta was missing)
- replaced the internal error messages of w_unify_to_subterm_list into
user-understandable messages
- incidentally fixed the meaning of whd_meta (which now takes an evd)
and meta_name (which now does what it means and do not treat differently
the instantiated metas)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13122 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/reductionops.ml')
| -rw-r--r-- | pretyping/reductionops.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index dae6682439..bb0ce44ea4 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -635,8 +635,8 @@ let is_trans_fconv = function | CONV -> is_trans_conv | CUMUL -> is_trans_conv_l (* Special-Purpose Reduction *) (********************************************************************) -let whd_meta metasubst c = match kind_of_term c with - | Meta p -> (try List.assoc p metasubst with Not_found -> c) +let whd_meta sigma c = match kind_of_term c with + | Meta p -> (try meta_value sigma p with Not_found -> c) | _ -> c (* Try to replace all metas. Does not replace metas in the metas' values |