src/HOL/Equiv_Relations.thy
changeset 28229 4f06fae6a55e
parent 26791 3581a9c71909
child 28562 4e74209f113e
     1.1 --- a/src/HOL/Equiv_Relations.thy	Tue Sep 16 09:21:24 2008 +0200
     1.2 +++ b/src/HOL/Equiv_Relations.thy	Tue Sep 16 09:21:26 2008 +0200
     1.3 @@ -93,9 +93,8 @@
     1.4  
     1.5  subsection {* Quotients *}
     1.6  
     1.7 -constdefs
     1.8 -  quotient :: "['a set, ('a*'a) set] => 'a set set"  (infixl "'/'/" 90)
     1.9 -  "A//r == \<Union>x \<in> A. {r``{x}}"  -- {* set of equiv classes *}
    1.10 +definition quotient :: "'a set \<Rightarrow> ('a \<times> 'a) set \<Rightarrow> 'a set set"  (infixl "'/'/" 90) where
    1.11 +  [code func del]: "A//r = (\<Union>x \<in> A. {r``{x}})"  -- {* set of equiv classes *}
    1.12  
    1.13  lemma quotientI: "x \<in> A ==> r``{x} \<in> A//r"
    1.14    by (unfold quotient_def) blast