diff options
| author | msozeau | 2013-06-19 11:49:49 +0000 |
|---|---|---|
| committer | msozeau | 2013-06-19 11:49:49 +0000 |
| commit | d3762a646a1ed6cb4ddef47453944ba7e9caa8bd (patch) | |
| tree | 812d3d3697a3e8bc87e5a3387117deef6599f0d1 /pretyping | |
| parent | 4b2963052ac92e67f08651d8f01e562007c07a34 (diff) | |
- Keep the refinement of existing evars comming from unification with a rewrite lemma.
- Do an nf_meta before get_type_of in unify_to_type to avoid a possible NotAnArity exception,
raised by type_of_*_knowing_parameters.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16592 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/unification.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index e037ab6a9a..5dd7942437 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -816,7 +816,7 @@ let w_coerce env evd mv c = let unify_to_type env sigma flags c status u = let c = refresh_universes c in - let t = get_type_of env sigma c in + let t = get_type_of env sigma (nf_meta sigma c) in let t = nf_betaiota sigma (nf_meta sigma t) in unify_0 env sigma CUMUL flags t u |