diff options
| author | Hugo Herbelin | 2020-04-24 22:12:20 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-11-20 10:45:02 +0100 |
| commit | efecceaaba8fc1fc447ce502ef64ac8d66544a0d (patch) | |
| tree | 0783ab290d2b08ec2c919fc8cb1e11834d0f696c /plugins/ltac/tacsubst.ml | |
| parent | 57c85b0d54e54ca33238399cab3285ef34d4edd2 (diff) | |
Granting #9816: apply in takes several hypotheses.
Diffstat (limited to 'plugins/ltac/tacsubst.ml')
| -rw-r--r-- | plugins/ltac/tacsubst.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/plugins/ltac/tacsubst.ml b/plugins/ltac/tacsubst.ml index ec44ae4698..5f09666778 100644 --- a/plugins/ltac/tacsubst.ml +++ b/plugins/ltac/tacsubst.ml @@ -128,7 +128,8 @@ let rec subst_atomic subst (t:glob_atomic_tactic_expr) = match t with (* Basic tactics *) | TacIntroPattern (ev,l) -> TacIntroPattern (ev,List.map (subst_intro_pattern subst) l) | TacApply (a,ev,cb,cl) -> - TacApply (a,ev,List.map (subst_glob_with_bindings_arg subst) cb,cl) + TacApply (a,ev,List.map (subst_glob_with_bindings_arg subst) cb, + List.map (on_snd (Option.map (subst_intro_pattern subst))) cl) | TacElim (ev,cb,cbo) -> TacElim (ev,subst_glob_with_bindings_arg subst cb, Option.map (subst_glob_with_bindings subst) cbo) |