diff options
| -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 = |