src/HOL/Library/ExecutableRat.thy
changeset 20713 823967ef47f1
parent 20701 17a625996bb0
child 20934 2b872c161747
equal deleted inserted replaced
20712:b3cd1233167f 20713:823967ef47f1
   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*}/ _)")