From d3762a646a1ed6cb4ddef47453944ba7e9caa8bd Mon Sep 17 00:00:00 2001
From: msozeau
Date: Wed, 19 Jun 2013 11:49:49 +0000
Subject: - 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
---
 pretyping/unification.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pretyping')

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
 
-- 
cgit v1.2.3