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/omega | |
parent | 90a4afc3742b31fc6ebbbbe4b5383663f65a5788 (diff) | |
parent | 1d6b4a6728066d0e684a4f996b6077018b79a620 (diff) |
Merge PR #7979: TACTIC EXTEND in coqpp
Diffstat (limited to 'plugins/omega')
-rw-r--r-- | plugins/omega/g_omega.mlg (renamed from plugins/omega/g_omega.ml4) | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/plugins/omega/g_omega.ml4 b/plugins/omega/g_omega.mlg index 170b937c9..c3d063cff 100644 --- a/plugins/omega/g_omega.ml4 +++ b/plugins/omega/g_omega.mlg @@ -18,6 +18,8 @@ DECLARE PLUGIN "omega_plugin" +{ + open Ltac_plugin open Names open Coq_omega @@ -43,14 +45,15 @@ let omega_tactic l = (Tacticals.New.tclREPEAT (Tacticals.New.tclTHENLIST tacs)) (omega_solver) +} TACTIC EXTEND omega -| [ "omega" ] -> [ omega_tactic [] ] +| [ "omega" ] -> { omega_tactic [] } END TACTIC EXTEND omega' | [ "omega" "with" ne_ident_list(l) ] -> - [ omega_tactic (List.map Names.Id.to_string l) ] -| [ "omega" "with" "*" ] -> [ omega_tactic ["nat";"positive";"N";"Z"] ] + { omega_tactic (List.map Names.Id.to_string l) } +| [ "omega" "with" "*" ] -> { omega_tactic ["nat";"positive";"N";"Z"] } END |