diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2016-04-26 23:07:38 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2016-04-26 23:07:38 +0200 |
commit | a5bd782f300c3767936fc3f45df6a09cda185370 (patch) | |
tree | bb3c0753a54e035fec56f78edbae84485a50b878 /src/versions/standard | |
parent | 048f0170612ee39f6bc736246fca82d960e79a18 (diff) | |
download | smtcoq-a5bd782f300c3767936fc3f45df6a09cda185370.tar.gz smtcoq-a5bd782f300c3767936fc3f45df6a09cda185370.zip |
Both native-coq and Coq 8.5 are fully supported
Diffstat (limited to 'src/versions/standard')
-rw-r--r-- | src/versions/standard/structures.ml | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/src/versions/standard/structures.ml b/src/versions/standard/structures.ml index 93546b3..66106a6 100644 --- a/src/versions/standard/structures.ml +++ b/src/versions/standard/structures.ml @@ -64,6 +64,8 @@ let mkArray : Term.types * Term.constr array -> Term.constr = (* Differences between the two versions of Coq *) +type names_id_t = Names.Id.t + let dummy_loc = Loc.ghost let mkConst c = @@ -101,4 +103,14 @@ let pr_constr_env env = Printer.pr_constr_env env Evd.empty let lift = Vars.lift -let mk_tactic = Proofview.V82.tactic +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 = + Proofview.Goal.nf_enter (fun gl -> + let env = Proofview.Goal.env gl in + let sigma = Proofview.Goal.sigma gl in + let t = Proofview.Goal.concl gl in + tac env sigma t + ) |