diff options
| author | msozeau | 2011-03-10 17:17:06 +0000 |
|---|---|---|
| committer | msozeau | 2011-03-10 17:17:06 +0000 |
| commit | 36b8aa6b0a6302e1675df623bf28e86029bb40f5 (patch) | |
| tree | 250ad309844d8b1472dcd81a3292cd8447fe019a /tactics | |
| parent | 8a78cc1f4cc51423a5eccfd2d07a2133a84f670b (diff) | |
Forgot a use of evars_reset_evd in nf_evars, add an optional argument as
in the 8.3 patch.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13903 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/class_tactics.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/class_tactics.ml4 b/tactics/class_tactics.ml4 index 71bae61eef..cf7faed905 100644 --- a/tactics/class_tactics.ml4 +++ b/tactics/class_tactics.ml4 @@ -411,7 +411,7 @@ let run_on_evars ?(only_classes=true) ?(st=full_transparent_state) p evm tac = let res = run_list_tac tac p goals (make_autogoals ~only_classes ~st goals evm') in match get_result res with | None -> raise Not_found - | Some (evm', fk) -> Some (evars_reset_evd evm' evm, fk) + | Some (evm', fk) -> Some (evars_reset_evd ~with_conv_pbs:true evm' evm, fk) let eauto_tac hints = fix (or_tac (then_tac normevars_tac (hints_tac hints)) intro_tac) |