src/HOL/Archimedean_Field.thy

 
 subsection {* Floor function *}
 
 definition
   floor :: "'a::archimedean_field \<Rightarrow> int" where
-  "floor x = (THE z. of_int z \<le> x \<and> x < of_int (z + 1))"
+  [code del]: "floor x = (THE z. of_int z \<le> x \<and> x < of_int (z + 1))"
 
 notation (xsymbols)
   floor  ("\<lfloor>_\<rfloor>")
 
 notation (HTML output)

 
 subsection {* Ceiling function *}
 
 definition
   ceiling :: "'a::archimedean_field \<Rightarrow> int" where
-  "ceiling x = - floor (- x)"
+  [code del]: "ceiling x = - floor (- x)"
 
 notation (xsymbols)
   ceiling  ("\<lceil>_\<rceil>")
 
 notation (HTML output)