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.
SELECT_GOAL: fixed trivial case;
authorwenzelm
Sun, 05 Mar 2006 23:56:57 +0100
changeset 19191 56cda3ec2ef8
parent 19190 7c311c513bae
child 19192 ee5fde055c9a
SELECT_GOAL: fixed trivial case;
src/Pure/goal.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/goal.ML	Sun Mar 05 18:49:13 2006 +0100
+++ b/src/Pure/goal.ML	Sun Mar 05 23:56:57 2006 +0100
@@ -185,7 +185,7 @@
   #> Thm.compose_no_flatten false (conclude st', Thm.nprems_of st') i;
 
 fun SELECT_GOAL tac i st =
-  if Thm.nprems_of st = 1 then tac st
+  if Thm.nprems_of st = 1 andalso i = 1 then tac st
   else Seq.lifts (retrofit i 1) (Seq.maps tac (extract i 1 st)) st;
 
 end;
isabelle