changeset 40815 | 6e2d17cc0d1d |
parent 39910 | 10097e0a9dbd |
child 40822 | 98a5faa5aec0 |
--- a/src/HOL/Library/Fraction_Field.thy Mon Nov 29 12:15:14 2010 +0100 +++ b/src/HOL/Library/Fraction_Field.thy Mon Nov 29 13:44:54 2010 +0100 @@ -43,7 +43,7 @@ qed lemma equiv_fractrel: "equiv {x. snd x \<noteq> 0} fractrel" - by (rule equiv.intro [OF refl_fractrel sym_fractrel trans_fractrel]) + by (rule equivI [OF refl_fractrel sym_fractrel trans_fractrel]) lemmas UN_fractrel = UN_equiv_class [OF equiv_fractrel] lemmas UN_fractrel2 = UN_equiv_class2 [OF equiv_fractrel equiv_fractrel]