diff options
| author | Hugo Herbelin | 2019-04-28 16:29:16 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2019-04-29 21:20:28 +0200 |
| commit | b913a79738fee897bc298e0804617da8abcb4cf5 (patch) | |
| tree | 4e1315cb920f6600eb8aec728ba9812fc52a6e73 /plugins/ltac/tacsubst.ml | |
| parent | fcba5e87be13bc5a5374fe274476cd4d5c45f058 (diff) | |
Exposing a change_no_check tactic.
Diffstat (limited to 'plugins/ltac/tacsubst.ml')
| -rw-r--r-- | plugins/ltac/tacsubst.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/ltac/tacsubst.ml b/plugins/ltac/tacsubst.ml index e617f3d45e..a3eeca2267 100644 --- a/plugins/ltac/tacsubst.ml +++ b/plugins/ltac/tacsubst.ml @@ -158,8 +158,8 @@ let rec subst_atomic subst (t:glob_atomic_tactic_expr) = match t with (* Conversion *) | TacReduce (r,cl) -> TacReduce (subst_redexp subst r, cl) - | TacChange (op,c,cl) -> - TacChange (Option.map (subst_glob_constr_or_pattern subst) op, + | TacChange (check,op,c,cl) -> + TacChange (check,Option.map (subst_glob_constr_or_pattern subst) op, subst_glob_constr subst c, cl) (* Equality and inversion *) |