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