src/HOL/HOL.thy
changeset 29608 564ea783ace8
parent 29505 c6d2d23909d1
child 29863 dadad1831e9d
     1.1 --- a/src/HOL/HOL.thy	Wed Jan 21 18:37:44 2009 +0100
     1.2 +++ b/src/HOL/HOL.thy	Wed Jan 21 23:40:23 2009 +0100
     1.3 @@ -208,34 +208,34 @@
     1.4  
     1.5  subsubsection {* Generic classes and algebraic operations *}
     1.6  
     1.7 -class default = type +
     1.8 +class default =
     1.9    fixes default :: 'a
    1.10  
    1.11 -class zero = type + 
    1.12 +class zero = 
    1.13    fixes zero :: 'a  ("0")
    1.14  
    1.15 -class one = type +
    1.16 +class one =
    1.17    fixes one  :: 'a  ("1")
    1.18  
    1.19  hide (open) const zero one
    1.20  
    1.21 -class plus = type +
    1.22 +class plus =
    1.23    fixes plus :: "'a \<Rightarrow> 'a \<Rightarrow> 'a"  (infixl "+" 65)
    1.24  
    1.25 -class minus = type +
    1.26 +class minus =
    1.27    fixes minus :: "'a \<Rightarrow> 'a \<Rightarrow> 'a"  (infixl "-" 65)
    1.28  
    1.29 -class uminus = type +
    1.30 +class uminus =
    1.31    fixes uminus :: "'a \<Rightarrow> 'a"  ("- _" [81] 80)
    1.32  
    1.33 -class times = type +
    1.34 +class times =
    1.35    fixes times :: "'a \<Rightarrow> 'a \<Rightarrow> 'a"  (infixl "*" 70)
    1.36  
    1.37 -class inverse = type +
    1.38 +class inverse =
    1.39    fixes inverse :: "'a \<Rightarrow> 'a"
    1.40      and divide :: "'a \<Rightarrow> 'a \<Rightarrow> 'a"  (infixl "'/" 70)
    1.41  
    1.42 -class abs = type +
    1.43 +class abs =
    1.44    fixes abs :: "'a \<Rightarrow> 'a"
    1.45  begin
    1.46  
    1.47 @@ -247,10 +247,10 @@
    1.48  
    1.49  end
    1.50  
    1.51 -class sgn = type +
    1.52 +class sgn =
    1.53    fixes sgn :: "'a \<Rightarrow> 'a"
    1.54  
    1.55 -class ord = type +
    1.56 +class ord =
    1.57    fixes less_eq :: "'a \<Rightarrow> 'a \<Rightarrow> bool"
    1.58      and less :: "'a \<Rightarrow> 'a \<Rightarrow> bool"
    1.59  begin
    1.60 @@ -1675,7 +1675,7 @@
    1.61  
    1.62  text {* Equality *}
    1.63  
    1.64 -class eq = type +
    1.65 +class eq =
    1.66    fixes eq :: "'a \<Rightarrow> 'a \<Rightarrow> bool"
    1.67    assumes eq_equals: "eq x y \<longleftrightarrow> x = y"
    1.68  begin