src/HOL/Equiv_Relations.thy
changeset 28562 4e74209f113e
parent 28229 4f06fae6a55e
child 29655 ac31940cfb69
     1.1 --- a/src/HOL/Equiv_Relations.thy	Fri Oct 10 06:45:50 2008 +0200
     1.2 +++ b/src/HOL/Equiv_Relations.thy	Fri Oct 10 06:45:53 2008 +0200
     1.3 @@ -94,7 +94,7 @@
     1.4  subsection {* Quotients *}
     1.5  
     1.6  definition quotient :: "'a set \<Rightarrow> ('a \<times> 'a) set \<Rightarrow> 'a set set"  (infixl "'/'/" 90) where
     1.7 -  [code func del]: "A//r = (\<Union>x \<in> A. {r``{x}})"  -- {* set of equiv classes *}
     1.8 +  [code del]: "A//r = (\<Union>x \<in> A. {r``{x}})"  -- {* set of equiv classes *}
     1.9  
    1.10  lemma quotientI: "x \<in> A ==> r``{x} \<in> A//r"
    1.11    by (unfold quotient_def) blast