diff options
| author | herbelin | 2011-03-05 16:42:21 +0000 |
|---|---|---|
| committer | herbelin | 2011-03-05 16:42:21 +0000 |
| commit | 4e5c9882c74b04e69ef885db7c05ed31bf6a2732 (patch) | |
| tree | 4e6f41225aab90a0a6c70172e56b36e0cd07a058 /plugins | |
| parent | 627a69094f6126aeb1d959b6f610e865ebde8a73 (diff) | |
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
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/subtac/subtac_coercion.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |