src/HOL/Real/RealDef.thy
changeset 7127 48e235179ffb
parent 7077 60b098bb8b8a
child 7219 4e3f386c2e37
--- a/src/HOL/Real/RealDef.thy	Wed Jul 28 22:01:58 1999 +0200
+++ b/src/HOL/Real/RealDef.thy	Thu Jul 29 12:44:57 1999 +0200
@@ -33,7 +33,7 @@
   real_minus_def
     "- R ==  Abs_real(UN (x,y):Rep_real(R). realrel^^{(y,x)})"
 
-  real_diff_def "x - y == x + -(y::real)"
+  real_diff_def "x - y == x + (- y :: real)"
 
 constdefs
 
@@ -49,7 +49,7 @@
   "real_of_posnat n == real_of_preal(preal_of_prat(prat_of_pnat(pnat_of_nat n)))"
 
   real_of_nat :: nat => real          
-  "real_of_nat n    == real_of_posnat n + -1r"
+  "real_of_nat n    == real_of_posnat n + (-1r)"
 
 defs