diff options
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 |