author | haftmann |
Mon, 11 Aug 2008 22:25:45 +0200 | |
changeset 27833 | 29151fa7c58e |
parent 27832 | 992c6d984925 |
child 27834 | 04562d200f02 |
--- 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