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/native/structures.ml | |
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/native/structures.ml')
-rw-r--r-- | src/versions/native/structures.ml | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/versions/native/structures.ml b/src/versions/native/structures.ml index 62907d1..919f2f1 100644 --- a/src/versions/native/structures.ml +++ b/src/versions/native/structures.ml @@ -41,6 +41,8 @@ let mkArray : Term.types * Term.constr array -> Term.constr = (* Differences between the two versions of Coq *) +type names_id_t = Names.identifier + let dummy_loc = Pp.dummy_loc let mkConst c = @@ -71,4 +73,12 @@ let pr_constr_env = Printer.pr_constr_env let lift = Term.lift -let mk_tactic t = t +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 env = Tacmach.pf_env gl in + let sigma = Tacmach.project gl in + let t = Tacmach.pf_concl gl in + tac env sigma t gl |