tidied
authorpaulson
Mon Jul 16 19:11:37 2007 +0200 (2007-07-16)
changeset 2381573dbab55d283
parent 23814 cdaa6b701509
child 23816 3879cb3d0ba7
tidied
src/HOL/Lambda/Commutation.thy
     1.1 --- a/src/HOL/Lambda/Commutation.thy	Mon Jul 16 17:29:34 2007 +0200
     1.2 +++ b/src/HOL/Lambda/Commutation.thy	Mon Jul 16 19:11:37 2007 +0200
     1.3 @@ -94,7 +94,7 @@
     1.4  lemma diamond_Un:
     1.5      "[| diamond R; diamond S; commute R S |] ==> diamond (sup R S)"
     1.6    apply (unfold diamond_def)
     1.7 -  apply (assumption | rule commute_Un commute_sym)+
     1.8 +  apply (blast intro: commute_Un commute_sym) 
     1.9    done
    1.10  
    1.11  lemma diamond_confluent: "diamond R ==> confluent R"