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/native | |
parent | e54e5bbee68de0e6b1dce4cd5a99e991fe3cf84e (diff) | |
download | smtcoq-73e19ad0aac3cbd472b8add74594bbc158fce334.tar.gz smtcoq-73e19ad0aac3cbd472b8add74594bbc158fce334.zip |
Uniform treatment of sat and smt tactics
Diffstat (limited to 'src/versions/native')
-rw-r--r-- | src/versions/native/smtcoq_plugin_native.ml4 | 4 | ||||
-rw-r--r-- | src/versions/native/structures.ml | 3 |
2 files changed, 3 insertions, 4 deletions
diff --git a/src/versions/native/smtcoq_plugin_native.ml4 b/src/versions/native/smtcoq_plugin_native.ml4 index e7c2f5b..d23bb5c 100644 --- a/src/versions/native/smtcoq_plugin_native.ml4 +++ b/src/versions/native/smtcoq_plugin_native.ml4 @@ -48,9 +48,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/native/structures.ml b/src/versions/native/structures.ml index 1eb43fb..f6b21c8 100644 --- a/src/versions/native/structures.ml +++ b/src/versions/native/structures.ml @@ -108,11 +108,10 @@ let pr_constr_env = Printer.pr_constr_env let lift = Term.lift -let mk_sat_tactic tac = tac let tclTHENLAST = Tacticals.tclTHENLAST let assert_before = Tactics.assert_tac let vm_cast_no_check = Tactics.vm_cast_no_check -let mk_smt_tactic tac gl = +let mk_tactic tac gl = let env = Tacmach.pf_env gl in let sigma = Tacmach.project gl in let t = Tacmach.pf_concl gl in |