diff options
| author | barras | 2004-07-13 14:27:32 +0000 |
|---|---|---|
| committer | barras | 2004-07-13 14:27:32 +0000 |
| commit | cc47337b01227c35dc42ae4b87b0cba20fde9ed5 (patch) | |
| tree | d4f85530874ee1533e52b7884eecc4060203f3dd | |
| parent | a60e2ea37b953dbe76b2cf92e7fa06fcc5cc0c35 (diff) | |
bug #794: conv made in wrong env
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5897 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/evarutil.ml | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/pretyping/evarutil.ml b/pretyping/evarutil.ml index 9b29f47a65..bcf212f192 100644 --- a/pretyping/evarutil.ml +++ b/pretyping/evarutil.ml @@ -478,7 +478,6 @@ let get_changed_pb isevars lev = let solve_refl conv_algo env isevars ev argsv1 argsv2 = if argsv1 = argsv2 then [] else let evd = Evd.map isevars.evars ev in - let env = evar_env evd in let hyps = evd.evar_hyps in let (_,rsign) = array_fold_left2 |