diff options
| author | Pierre-Marie Pédrot | 2015-09-26 14:06:38 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-09-26 14:06:38 +0200 |
| commit | 592151e323036f0044a0ac285b8b13c964825989 (patch) | |
| tree | 1d3a60fe23ee6df08991bb2928c7684bb8547369 | |
| parent | 8e25e107a8715728a7227934d7b11035863ee5f0 (diff) | |
Fixing bug #4347: Not_found Exception with some Records.
A term was reduced in an improper environment.
| -rw-r--r-- | pretyping/evarutil.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/evarutil.ml b/pretyping/evarutil.ml index ee6bbe7fbe..8ebb037c24 100644 --- a/pretyping/evarutil.ml +++ b/pretyping/evarutil.ml @@ -757,7 +757,7 @@ let define_evar_as_product evd (evk,args) = let define_pure_evar_as_lambda env evd evk = let evi = Evd.find_undefined evd evk in let evenv = evar_env evi in - let typ = whd_betadeltaiota env evd (evar_concl evi) in + let typ = whd_betadeltaiota evenv evd (evar_concl evi) in let evd1,(na,dom,rng) = match kind_of_term typ with | Prod (na,dom,rng) -> (evd,(na,dom,rng)) | Evar ev' -> let evd,typ = define_evar_as_product evd ev' in evd,destProd typ |