src/HOL/Lambda/Commutation.thy
changeset 23815 73dbab55d283
parent 23750 a1db5f819d00
child 25972 94b15338da8d
     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"