rudimentary code setup for set operations
authorhaftmann
Mon, 11 Aug 2008 22:25:45 +0200
changeset 27833 29151fa7c58e
parent 27832 992c6d984925
child 27834 04562d200f02
rudimentary code setup for set operations
src/HOL/Real/RealDef.thy
--- a/src/HOL/Real/RealDef.thy	Mon Aug 11 22:06:51 2008 +0200
+++ b/src/HOL/Real/RealDef.thy	Mon Aug 11 22:25:45 2008 +0200
@@ -23,7 +23,7 @@
 definition
   (** these don't use the overloaded "real" function: users don't see them **)
   real_of_preal :: "preal => real" where
-  "real_of_preal m = Abs_Real(realrel``{(m + 1, 1)})"
+  [code func del]: "real_of_preal m = Abs_Real (realrel `` {(m + 1, 1)})"
 
 instantiation real :: "{zero, one, plus, minus, uminus, times, inverse, ord, abs, sgn}"
 begin