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/g_tactic.mlg | |
| parent | fcba5e87be13bc5a5374fe274476cd4d5c45f058 (diff) | |
Exposing a change_no_check tactic.
Diffstat (limited to 'plugins/ltac/g_tactic.mlg')
| -rw-r--r-- | plugins/ltac/g_tactic.mlg | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/plugins/ltac/g_tactic.mlg b/plugins/ltac/g_tactic.mlg index a2dd51643b..c23240b782 100644 --- a/plugins/ltac/g_tactic.mlg +++ b/plugins/ltac/g_tactic.mlg @@ -703,7 +703,11 @@ GRAMMAR EXTEND Gram | IDENT "change"; c = conversion; cl = clause_dft_concl -> { let (oc, c) = c in let p,cl = merge_occurrences loc cl oc in - TacAtom (CAst.make ~loc @@ TacChange (p,c,cl)) } + TacAtom (CAst.make ~loc @@ TacChange (true,p,c,cl)) } + | IDENT "change_no_check"; c = conversion; cl = clause_dft_concl -> + { let (oc, c) = c in + let p,cl = merge_occurrences loc cl oc in + TacAtom (CAst.make ~loc @@ TacChange (false,p,c,cl)) } ] ] ; END |