From 4e5c9882c74b04e69ef885db7c05ed31bf6a2732 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 5 Mar 2011 16:42:21 +0000
Subject: Improved define_evar_as_lambda which was creating an unrelated new
 evar for the domain instead of retrieving the known domain of the initial
 evar.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13881 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 plugins/subtac/subtac_coercion.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'plugins')

diff --git a/plugins/subtac/subtac_coercion.ml b/plugins/subtac/subtac_coercion.ml
index a09fa3dcc6..5a2d840570 100644
--- a/plugins/subtac/subtac_coercion.ml
+++ b/plugins/subtac/subtac_coercion.ml
@@ -202,7 +202,7 @@ module Coercion = struct
 				 | Lambda (n, t, t') -> c, t'
 				     (*| Prod (n, t, t') -> t'*)
 				 | Evar (k, args) ->
-				     let (evs, t) = Evarutil.define_evar_as_lambda !isevars (k,args) in
+				     let (evs, t) = Evarutil.define_evar_as_lambda env !isevars (k,args) in
 				       isevars := evs;
 				       let (n, dom, rng) = destLambda t in
 				       let (domk, args) = destEvar dom in
-- 
cgit v1.2.3