src/HOL/Real/RealAbs.thy

Real/Real.thy main entry point;

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

RealAbs = RealOrd +

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

end