From 47eb0278a3cdf93129b1742e314681d65bd6475a Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Fri, 25 Aug 2017 14:11:48 +0200
Subject: More bindings to primitive tactics.

---
 src/tac2stdlib.ml | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

(limited to 'src/tac2stdlib.ml')

diff --git a/src/tac2stdlib.ml b/src/tac2stdlib.ml
index eccaf95ab3..d88402cbf2 100644
--- a/src/tac2stdlib.ml
+++ b/src/tac2stdlib.ml
@@ -481,10 +481,36 @@ end
 
 (** Tactics from extratactics *)
 
+let () = define_prim2 "tac_discriminate" begin fun ev arg ->
+  let ev = Value.to_bool ev in
+  let arg = Value.to_option (fun arg -> None, to_destruction_arg arg) arg in
+  Tac2tactics.discriminate ev arg
+end
+
+let () = define_prim3 "tac_injection" begin fun ev ipat arg ->
+  let ev = Value.to_bool ev in
+  let ipat = Value.to_option to_intro_patterns ipat in
+  let arg = Value.to_option (fun arg -> None, to_destruction_arg arg) arg in
+  Tac2tactics.injection ev ipat arg
+end
+
 let () = define_prim1 "tac_absurd" begin fun c ->
   Contradiction.absurd (Value.to_constr c)
 end
 
+let () = define_prim1 "tac_contradiction" begin fun c ->
+  let c = Value.to_option to_constr_with_bindings c in
+  Contradiction.contradiction c
+end
+
+let () = define_prim4 "tac_autorewrite" begin fun all by ids cl ->
+  let all = Value.to_bool all in
+  let by = Value.to_option (fun tac -> Proofview.tclIGNORE (thaw tac)) by in
+  let ids = Value.to_list Value.to_ident ids in
+  let cl = to_clause cl in
+  Tac2tactics.autorewrite ~all by ids cl
+end
+
 let () = define_prim1 "tac_subst" begin fun ids ->
   let ids = Value.to_list Value.to_ident ids in
   Equality.subst ids
-- 
cgit v1.2.3