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/UNITY/ELT.thy
changeset 44106 0e018cbcc0de
parent 36866 426d5781bb25
child 45605 a89b4bc311a5 
--- a/src/HOL/UNITY/ELT.thy	Tue Aug 09 18:52:18 2011 +0200
+++ b/src/HOL/UNITY/ELT.thy	Tue Aug 09 20:24:48 2011 +0200
@@ -186,9 +186,7 @@
 lemma leadsETo_Un:
      "[| F : A leadsTo[CC] C; F : B leadsTo[CC] C |] 
       ==> F : (A Un B) leadsTo[CC] C"
-apply (subst Un_eq_Union)
-apply (blast intro: leadsETo_Union)
-done
+  using leadsETo_Union [of "{A, B}" F CC C] by auto
 
 lemma single_leadsETo_I:
      "(!!x. x : A ==> F : {x} leadsTo[CC] B) ==> F : A leadsTo[CC] B"
@@ -407,9 +405,7 @@
 lemma LeadsETo_Un:
      "[| F : A LeadsTo[CC] C; F : B LeadsTo[CC] C |]  
       ==> F : (A Un B) LeadsTo[CC] C"
-apply (subst Un_eq_Union)
-apply (blast intro: LeadsETo_Union)
-done
+  using LeadsETo_Union [of "{A, B}" F CC C] by auto
 
 (*Lets us look at the starting state*)
 lemma single_LeadsETo_I:
isabelle