diff options
| -rw-r--r-- | tactics/tacinterp.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 39070436e..ac2255488 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -2349,6 +2349,7 @@ let _ = | [c, _] -> c | _ -> assert false in + let ans = Reductionops.nf_evar sigma ans in (** [neff] contains the freshly generated side-effects *) let neff = Evd.eval_side_effects sigma in (** Reset the old side-effects *) |