Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tuned dead code;
authorwenzelm
Fri, 05 Mar 2010 23:52:09 +0100
changeset 35593 88b49baba092
parent 35592 768d17f54125
child 35598 78224a53cf73
tuned dead code;
src/HOL/Mirabelle/Tools/mirabelle_refute.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/Mirabelle/Tools/mirabelle_refute.ML	Fri Mar 05 23:51:32 2010 +0100
+++ b/src/HOL/Mirabelle/Tools/mirabelle_refute.ML	Fri Mar 05 23:52:09 2010 +0100
@@ -10,8 +10,8 @@
 fun refute_action args timeout {pre=st, ...} = 
   let
     val subgoal = 1
-    val thy     = Proof.theory_of st
-    val thm = goal_thm_of st
+    val thy = Proof.theory_of st
+    val thm = #goal (Proof.raw_goal st)
 
     val refute = Refute.refute_goal thy args thm
     val _ = TimeLimit.timeLimit timeout refute subgoal
isabelle