changeset 25482 | 4ed49eccb1eb |
parent 24728 | e2b3a1065676 |
child 26791 | 3581a9c71909 |
--- a/src/HOL/Equiv_Relations.thy Wed Nov 28 09:01:34 2007 +0100 +++ b/src/HOL/Equiv_Relations.thy Wed Nov 28 09:01:37 2007 +0100 @@ -288,7 +288,7 @@ apply (rule commute [THEN trans]) apply (rule_tac [3] commute [THEN trans, symmetric]) apply (rule_tac [5] sym) - apply (assumption | rule congt | + apply (rule congt | assumption | erule equivA [THEN equiv_type, THEN subsetD, THEN SigmaE2])+ done