src/HOL/Rat.thy
changeset 40815 6e2d17cc0d1d
parent 39910 10097e0a9dbd
child 40816 19c492929756
     1.1 --- a/src/HOL/Rat.thy	Mon Nov 29 12:15:14 2010 +0100
     1.2 +++ b/src/HOL/Rat.thy	Mon Nov 29 13:44:54 2010 +0100
     1.3 @@ -44,7 +44,7 @@
     1.4  qed
     1.5    
     1.6  lemma equiv_ratrel: "equiv {x. snd x \<noteq> 0} ratrel"
     1.7 -  by (rule equiv.intro [OF refl_on_ratrel sym_ratrel trans_ratrel])
     1.8 +  by (rule equivI [OF refl_on_ratrel sym_ratrel trans_ratrel])
     1.9  
    1.10  lemmas UN_ratrel = UN_equiv_class [OF equiv_ratrel]
    1.11  lemmas UN_ratrel2 = UN_equiv_class2 [OF equiv_ratrel equiv_ratrel]