equal
  deleted
  inserted
  replaced
  
    
    
|    129 section {* const serializations *} |    129 section {* const serializations *} | 
|    130  |    130  | 
|    131 consts_code |    131 consts_code | 
|    132   div_zero ("raise/ (Fail/ \"non-defined rational number\")") |    132   div_zero ("raise/ (Fail/ \"non-defined rational number\")") | 
|    133   Fract ("{*of_quotient*}") |    133   Fract ("{*of_quotient*}") | 
|    134   0 :: rat ("{*0::erat*}") |    134   HOL.zero :: rat ("{*0::erat*}") | 
|    135   1 :: rat ("{*1::erat*}") |    135   HOL.one :: rat ("{*1::erat*}") | 
|    136   HOL.plus :: "rat \<Rightarrow> rat \<Rightarrow> rat" ("{*op + :: erat \<Rightarrow> erat \<Rightarrow> erat*}") |    136   HOL.plus :: "rat \<Rightarrow> rat \<Rightarrow> rat" ("{*op + :: erat \<Rightarrow> erat \<Rightarrow> erat*}") | 
|    137   uminus :: "rat \<Rightarrow> rat" ("{*uminus :: erat \<Rightarrow> erat*}") |    137   uminus :: "rat \<Rightarrow> rat" ("{*uminus :: erat \<Rightarrow> erat*}") | 
|    138   HOL.times :: "rat \<Rightarrow> rat \<Rightarrow> rat" ("{*op * :: erat \<Rightarrow> erat \<Rightarrow> erat*}") |    138   HOL.times :: "rat \<Rightarrow> rat \<Rightarrow> rat" ("{*op * :: erat \<Rightarrow> erat \<Rightarrow> erat*}") | 
|    139   inverse :: "rat \<Rightarrow> rat" ("{*inverse :: erat \<Rightarrow> erat*}") |    139   inverse :: "rat \<Rightarrow> rat" ("{*inverse :: erat \<Rightarrow> erat*}") | 
|    140   divide :: "rat \<Rightarrow> rat \<Rightarrow> rat" ("{*op * :: erat \<Rightarrow> erat \<Rightarrow> erat*}/ _/ ({*inverse :: erat \<Rightarrow> erat*}/ _)") |    140   divide :: "rat \<Rightarrow> rat \<Rightarrow> rat" ("{*op * :: erat \<Rightarrow> erat \<Rightarrow> erat*}/ _/ ({*inverse :: erat \<Rightarrow> erat*}/ _)") |