Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/TPTP/mash_eval.ML
changeset 52125 ac7830871177
parent 52031 9a9238342963
child 52196 2281f33e8da6 
--- a/src/HOL/TPTP/mash_eval.ML	Fri May 24 11:08:25 2013 +0200
+++ b/src/HOL/TPTP/mash_eval.ML	Fri May 24 16:43:37 2013 +0200
@@ -109,7 +109,7 @@
               SOME (_, th) => th
             | NONE => error ("No fact called \"" ^ name ^ "\".")
           val goal = goal_of_thm (Proof_Context.theory_of ctxt) th
-          val (_, hyp_ts, concl_t) = ATP_Util.strip_subgoal ctxt goal 1
+          val ((_, hyp_ts, concl_t), _) = ATP_Util.strip_subgoal goal 1 ctxt
           val isar_deps = isar_dependencies_of name_tabs th
           val facts =
             facts
isabelle