diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2016-09-28 14:30:51 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2016-09-28 14:30:51 +0200 |
commit | 73e19ad0aac3cbd472b8add74594bbc158fce334 (patch) | |
tree | 3a934afc8948023512c8943599d6e8044e15886f /src/versions/standard | |
parent | e54e5bbee68de0e6b1dce4cd5a99e991fe3cf84e (diff) | |
download | smtcoq-73e19ad0aac3cbd472b8add74594bbc158fce334.tar.gz smtcoq-73e19ad0aac3cbd472b8add74594bbc158fce334.zip |
Uniform treatment of sat and smt tactics
Diffstat (limited to 'src/versions/standard')
-rw-r--r-- | src/versions/standard/smtcoq_plugin_standard.ml4 | 4 | ||||
-rw-r--r-- | src/versions/standard/structures.ml | 3 |
2 files changed, 3 insertions, 4 deletions
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 |