From a5bd782f300c3767936fc3f45df6a09cda185370 Mon Sep 17 00:00:00 2001 From: Chantal Keller Date: Tue, 26 Apr 2016 23:07:38 +0200 Subject: Both native-coq and Coq 8.5 are fully supported --- src/versions/standard/structures.ml | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) (limited to 'src/versions/standard') 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 + ) -- cgit