diff options
| author | msozeau | 2013-06-12 16:12:32 +0000 |
|---|---|---|
| committer | msozeau | 2013-06-12 16:12:32 +0000 |
| commit | 781f44a18cb5e2adbd0b2201d435e27938761af7 (patch) | |
| tree | e71999189ee76a6b4aaee7d446b5a80fce4f5d2f | |
| parent | 6f9a4b28bca5a218eb31bb7afe9d3dffe01f76f0 (diff) | |
Fixing a Not_found and evar not found anomaly found in ATBR,
related to setoid_rewrite t where t containts evars, to be added
to the goal evars.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16573 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 e21ee7f23c..679fc8da67 100644 --- a/tactics/rewrite.ml4 +++ b/tactics/rewrite.ml4 @@ -375,7 +375,7 @@ let solve_remaining_by by env prf = let extend_evd sigma ext sigma' = Int.Set.fold (fun i acc -> - Evd.add acc i (Evd.find sigma' i)) + Evd.add acc i (Evarutil.nf_evar_info sigma' (Evd.find sigma' i))) ext sigma let no_constraints cstrs = |