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/Pure/tactic.ML
changeset 20218 be3bfb0699ba
parent 20115 6c2ca3749a80
child 20232 31998a8c7f25 
--- a/src/Pure/tactic.ML	Wed Jul 26 19:23:04 2006 +0200
+++ b/src/Pure/tactic.ML	Wed Jul 26 19:37:41 2006 +0200
@@ -136,7 +136,7 @@
 fun rule_by_tactic tac rl =
   let
     val ctxt = Variable.thm_context rl;
-    val ([st], ctxt') = Variable.import true [rl] ctxt;
+    val ((_, [st]), ctxt') = Variable.import true [rl] ctxt;
   in
     (case Seq.pull (tac st) of
       NONE => raise THM ("rule_by_tactic", 0, [rl])
isabelle