diff options
| author |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-07-05 11:58:25 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-07-05 11:58:25 +0200 |
| commit | 7413f8532879c64e05ee0e8ca16693d74fe84ab9 (patch) | |
| tree | cbba113dc8270223e0c2762eb78b4bc737bb4f63 /plugins/romega | |
| parent | 90a4afc3742b31fc6ebbbbe4b5383663f65a5788 (diff) | |
| parent | 1d6b4a6728066d0e684a4f996b6077018b79a620 (diff) | |
Merge PR #7979: TACTIC EXTEND in coqpp
Diffstat (limited to 'plugins/romega')
| -rw-r--r-- | plugins/romega/g_romega.mlg (renamed from plugins/romega/g_romega.ml4) | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/plugins/romega/g_romega.ml4 b/plugins/romega/g_romega.mlg index 5b77d08de..c1ce30027 100644 --- a/plugins/romega/g_romega.ml4 +++ b/plugins/romega/g_romega.mlg @@ -9,6 +9,8 @@ DECLARE PLUGIN "romega_plugin" +{ + open Ltac_plugin open Names open Refl_omega @@ -39,13 +41,15 @@ let romega_tactic unsafe l = (Tactics.intros) (total_reflexive_omega_tactic unsafe)) +} + TACTIC EXTEND romega -| [ "romega" ] -> [ romega_tactic false [] ] -| [ "unsafe_romega" ] -> [ romega_tactic true [] ] +| [ "romega" ] -> { romega_tactic false [] } +| [ "unsafe_romega" ] -> { romega_tactic true [] } END TACTIC EXTEND romega' | [ "romega" "with" ne_ident_list(l) ] -> - [ romega_tactic false (List.map Names.Id.to_string l) ] -| [ "romega" "with" "*" ] -> [ romega_tactic false ["nat";"positive";"N";"Z"] ] + { romega_tactic false (List.map Names.Id.to_string l) } +| [ "romega" "with" "*" ] -> { romega_tactic false ["nat";"positive";"N";"Z"] } END |