diff options
| author | msozeau | 2011-10-18 15:22:19 +0000 |
|---|---|---|
| committer | msozeau | 2011-10-18 15:22:19 +0000 |
| commit | 18489538b2fd1e576b0df3af274925b5b81c10e8 (patch) | |
| tree | bc0aeda477ebec0fa05a9d7f3183397fde003cef /tactics | |
| parent | 391bbdcd874bc358bb052fbe94d40304ebcfb5b5 (diff) | |
Fix bug #2473 due to wrong folding of the evar environment
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14573 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -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 2af439550a..c2178229de 100644 --- a/tactics/rewrite.ml4 +++ b/tactics/rewrite.ml4 @@ -385,7 +385,7 @@ let unify_eqn env sigma hypinfo t = let res = if l2r then (prf, (car, rel, c1, c2)) else - try (mkApp (get_symmetric_proof env Evd.empty car rel, + try (mkApp (get_symmetric_proof env env'.evd car rel, [| c1 ; c2 ; prf |]), (car, rel, c2, c1)) with Not_found -> |