Add Daisy eval tactic

2804179b · Heiko Becker · 4884374c · 2804179b
Commit 2804179b authored Oct 03, 2017 by Heiko Becker
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 0 deletions

hol4/Infra/DaisyTactics.sml hol4/Infra/DaisyTactics.sml +7 -0

No files found.
--- a/hol4/Infra/DaisyTactics.sml
+++ b/hol4/Infra/DaisyTactics.sml
@@ -102,4 +102,11 @@ fun impl_subgoal_tac th =
      SUBGOAL_THEN hyp_to_prove (fn thm => assume_tac (MP th thm))
  end

+val daisy_eval_tac :tactic=
+let
+    val _ = computeLib.del_funs [sptreeTheory.subspt_def]
+    val _ = computeLib.add_funs [realTheory.REAL_INV_1OVER, sptreeTheory.subspt_eq]
+in EVAL_TAC
+end;
+
 end