diff options
author | 2014-08-27 15:44:47 +0200 | |
---|---|---|
committer | 2014-08-27 16:00:18 +0200 | |
commit | 36c7fba1180eaa2ceea7cc486ebd2f0d649042f0 (patch) | |
tree | de7cba1acba2c987aa8c9ae5c6a5292b0bb1fec9 /tactics/tactics.ml | |
parent | 6461588b9fab2d59293b5c8380f0468421b5e0eb (diff) |
Removing spurious tclWITHHOLES.
Indeed [tclWITHHOLES false tac sigma x] is equivalent to [tclEVARS sigma <*> tac x]
and we should try to reduce the use of this tactical, because it is mostly
a legacy tactic.
Diffstat (limited to 'tactics/tactics.ml')
-rw-r--r-- | tactics/tactics.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 7e6e960a6..5123aed9c 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -1807,12 +1807,11 @@ and intro_pattern_action loc b style pat thin tac id = match pat with let sigma = Proofview.Goal.sigma gl in let env = Proofview.Goal.env gl in let sigma,c = f env sigma in - Tacticals.New.tclWITHHOLES false + Proofview.V82.tclEVARS sigma <*> (Tacticals.New.tclTHENFIRST (* Skip the side conditions of the apply *) (apply_in_once false true true true (Some (clear,naming)) id (None,(sigma,(c,NoBindings))) tac_ipat)) - sigma (tac thin None []) end |