Replaced long, bugged implementation of letin-tac with two lines of code :-)

[helm.git] / helm / software / components / ng_tactics / nTactics.mli

diff --git a/helm/software/components/ng_tactics/nTactics.mli b/helm/software/components/ng_tactics/nTactics.mli
index 9eeebfe7fb2460739ed3c67f199f0e099d6a0b9b..b558b4c9b48cae4e627c2687d265e4c42eff6979 100644 (file)
--- a/helm/software/components/ng_tactics/nTactics.mli
+++ b/helm/software/components/ng_tactics/nTactics.mli
@@ -44,3 +44,10 @@ val generalize_tac : where:NTacStatus.tactic_pattern -> NTacStatus.tactic
 val eval_tac: 
       reduction:[ `Whd of bool ] ->
       where:NTacStatus.tactic_pattern -> NTacStatus.tactic
+val letin_tac: 
+      where:NTacStatus.tactic_pattern ->
+      what: NTacStatus.tactic_term ->
+      string -> NTacStatus.tactic
+val assert_tac:
+ ((string * [`Decl of NTacStatus.tactic_term | `Def of NTacStatus.tactic_term * NTacStatus.tactic_term]) list * NTacStatus.tactic_term) list ->
+  NTacStatus.tactic