diff options
| author | Hugo Herbelin | 2020-09-10 16:42:53 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-09-10 16:42:53 +0200 |
| commit | a764c64bfe3d3c604931087459fb6f4ae727cbea (patch) | |
| tree | e69fa85421c654b14f269fba3c356cc5e4eced51 | |
| parent | 73210d05ebbb50431bf31c03d18705cbec7c449f (diff) | |
| parent | 4f5026b1e797e1ed0e501118161052203e1aca50 (diff) | |
Merge PR #12997: Add a fast-path to Tactics.e_change_in_hyps.
Reviewed-by: herbelin
| -rw-r--r-- | tactics/tactics.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 686779b1d2..a607c09010 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -724,7 +724,9 @@ type hyp_conversion = | StableHypConv (** Does not introduce new dependencies on variables *) | LocalHypConv (** Same as above plus no dependence on the named environment *) -let e_change_in_hyps ~check ~reorder f args = +let e_change_in_hyps ~check ~reorder f args = match args with +| [] -> Proofview.tclUNIT () +| _ :: _ -> Proofview.Goal.enter begin fun gl -> let env = Proofview.Goal.env gl in let sigma = Tacmach.New.project gl in |