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.
fixed ML;
authorwenzelm
Thu, 15 Sep 2005 17:17:03 +0200
changeset 17415 ec859c451f59
parent 17414 c9e9d2a2fc72
child 17416 5093a587da16
fixed ML;
src/HOL/ex/SVC_Oracle.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/ex/SVC_Oracle.ML	Thu Sep 15 17:17:02 2005 +0200
+++ b/src/HOL/ex/SVC_Oracle.ML	Thu Sep 15 17:17:03 2005 +0200
@@ -97,8 +97,8 @@
   let
     val (abs_goal, _) = svc_abstract (Logic.get_goal (Thm.prop_of st) i)
     val th = svc_oracle (Thm.theory_of_thm st) abs_goal
-   in compose_tac (false, th, 0) i end
-   handle TERM _ => no_tac;
+   in compose_tac (false, th, 0) i st end
+   handle TERM _ => no_tac st;
 
 
 (*check if user has SVC installed*)
isabelle