src/HOL/Real/RealAbs.thy
author berghofe
Wed, 18 Aug 1999 16:19:53 +0200
changeset 7257 745cfc8871e2
parent 7219 4e3f386c2e37
child 7334 a90fc1e5fb19
permissions -rw-r--r--
Renamed sum_case to basic_sum_case.

(*  Title       : RealAbs.thy
    ID          : $Id$
    Author      : Jacques D. Fleuriot
    Copyright   : 1998  University of Cambridge
    Description : Absolute value function for the reals
*) 

RealAbs = Real +

constdefs
   rabs   :: real => real
   "rabs r      == if 0r<=r then r else -r" 

end