diff options
| author | msozeau | 2012-01-23 20:51:46 +0000 |
|---|---|---|
| committer | msozeau | 2012-01-23 20:51:46 +0000 |
| commit | 9d63bf75ffc312b367301dd66d2d6c3896fd71cf (patch) | |
| tree | d16ba6feaa3d310aef882cf81b9a479b7bdba21d | |
| parent | 5b37885260bc0c4e9d9ac45ce3ab861b5ed252a4 (diff) | |
Fix bug #2483: anomaly raised due to wrong handling of the evars state.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14942 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/rewrite.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/rewrite.ml4 b/tactics/rewrite.ml4 index d297969d1f..1cc1b27fe0 100644 --- a/tactics/rewrite.ml4 +++ b/tactics/rewrite.ml4 @@ -257,7 +257,7 @@ let decompose_applied_relation env sigma flags orig (c,l) left2right = let ctype = Typing.type_of env sigma c' in let find_rel ty = let eqclause = Clenv.make_clenv_binding_env_apply env sigma None (c',ty) l in - let (equiv, args) = decompose_app_rel env sigma (Clenv.clenv_type eqclause) in + let (equiv, args) = decompose_app_rel env eqclause.evd (Clenv.clenv_type eqclause) in let c1 = args.(0) and c2 = args.(1) in let ty1, ty2 = Typing.type_of env eqclause.evd c1, Typing.type_of env eqclause.evd c2 |