diff options
| author | Emilio Jesus Gallego Arias | 2019-12-14 19:55:51 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-12-26 12:28:03 +0100 |
| commit | 4c9f7cf20f97921669bdec5df94b4f04b728a209 (patch) | |
| tree | 6837bcddaed0dcf50bcde7f702e5674a969caaa5 /plugins | |
| parent | e17ee7629006dd119393727a3203bc6e602d5473 (diff) | |
[omega] Remove non-documented "omega with *"
This form is only used in coq-bignums and not documented. I think
removal is the best choice, specially as `zify` is not part of the
omega plugin anymore.
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/omega/g_omega.mlg | 36 |
1 files changed, 1 insertions, 35 deletions
diff --git a/plugins/omega/g_omega.mlg b/plugins/omega/g_omega.mlg index a464aa7287..7c653b223e 100644 --- a/plugins/omega/g_omega.mlg +++ b/plugins/omega/g_omega.mlg @@ -21,43 +21,9 @@ DECLARE PLUGIN "omega_plugin" { open Ltac_plugin -open Names -open Coq_omega -open Stdarg - -let eval_tactic name = - let dp = DirPath.make (List.map Id.of_string ["PreOmega"; "omega"; "Coq"]) in - let kn = KerName.make (ModPath.MPfile dp) (Label.make name) in - let tac = Tacenv.interp_ltac kn in - Tacinterp.eval_tactic tac - -let omega_tactic l = - let tacs = List.map - (function - | "nat" -> eval_tactic "zify_nat" - | "positive" -> eval_tactic "zify_positive" - | "N" -> eval_tactic "zify_N" - | "Z" -> eval_tactic "zify_op" - | s -> CErrors.user_err Pp.(str ("No Omega knowledge base for type "^s))) - (Util.List.sort_uniquize String.compare l) - in - Tacticals.New.tclTHEN - (Tacticals.New.tclREPEAT (Tacticals.New.tclTHENLIST tacs)) - (omega_solver) - -let omega_with_deprecation = - Deprecation.make ~since:"8.11.0" ~note:"Use lia instead." () } TACTIC EXTEND omega -| [ "omega" ] -> { omega_tactic [] } +| [ "omega" ] -> { Coq_omega.omega_solver } END - -TACTIC EXTEND omega' DEPRECATED { omega_with_deprecation } -| [ "omega" "with" ne_ident_list(l) ] -> - { omega_tactic (List.map Names.Id.to_string l) } -| [ "omega" "with" "*" ] -> - { Tacticals.New.tclTHEN (eval_tactic "zify") (omega_tactic []) } -END - |
