From 73e19ad0aac3cbd472b8add74594bbc158fce334 Mon Sep 17 00:00:00 2001 From: Chantal Keller Date: Wed, 28 Sep 2016 14:30:51 +0200 Subject: Uniform treatment of sat and smt tactics --- src/versions/standard/smtcoq_plugin_standard.ml4 | 4 ++-- src/versions/standard/structures.ml | 3 +-- 2 files changed, 3 insertions(+), 4 deletions(-) (limited to 'src/versions/standard') diff --git a/src/versions/standard/smtcoq_plugin_standard.ml4 b/src/versions/standard/smtcoq_plugin_standard.ml4 index 3666ee1..b714029 100644 --- a/src/versions/standard/smtcoq_plugin_standard.ml4 +++ b/src/versions/standard/smtcoq_plugin_standard.ml4 @@ -50,9 +50,9 @@ END TACTIC EXTEND Tactic_zchaff -| [ "zchaff" ] -> [ Structures.mk_sat_tactic Zchaff.tactic ] +| [ "zchaff" ] -> [ Structures.mk_tactic Zchaff.tactic ] END TACTIC EXTEND Tactic_verit -| [ "verit" ] -> [ Structures.mk_smt_tactic Verit.tactic ] +| [ "verit" ] -> [ Structures.mk_tactic Verit.tactic ] END diff --git a/src/versions/standard/structures.ml b/src/versions/standard/structures.ml index 519103f..4206006 100644 --- a/src/versions/standard/structures.ml +++ b/src/versions/standard/structures.ml @@ -132,11 +132,10 @@ let pr_constr_env env = Printer.pr_constr_env env Evd.empty let lift = Vars.lift -let mk_sat_tactic = Proofview.V82.tactic let tclTHENLAST = Tacticals.New.tclTHENLAST let assert_before = Tactics.assert_before let vm_cast_no_check t = Proofview.V82.tactic (Tactics.vm_cast_no_check t) -let mk_smt_tactic tac = +let mk_tactic tac = Proofview.Goal.nf_enter (fun gl -> let env = Proofview.Goal.env gl in let sigma = Proofview.Goal.sigma gl in -- cgit