src/HOL/Real/RealAbs.thy
author paulson
Thu, 19 Aug 1999 15:11:12 +0200
changeset 7283 5cfe2944910a
parent 7219 4e3f386c2e37
child 7334 a90fc1e5fb19
permissions -rw-r--r--
documented svc_tac
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
5078
7b5ea59c0275 Installation of target HOL-Real
paulson
parents:
diff changeset
     1
(*  Title       : RealAbs.thy
7219
4e3f386c2e37 inserted Id: lines
paulson
parents: 5588
diff changeset
     2
    ID          : $Id$
5078
7b5ea59c0275 Installation of target HOL-Real
paulson
parents:
diff changeset
     3
    Author      : Jacques D. Fleuriot
7b5ea59c0275 Installation of target HOL-Real
paulson
parents:
diff changeset
     4
    Copyright   : 1998  University of Cambridge
7b5ea59c0275 Installation of target HOL-Real
paulson
parents:
diff changeset
     5
    Description : Absolute value function for the reals
7b5ea59c0275 Installation of target HOL-Real
paulson
parents:
diff changeset
     6
*) 
7b5ea59c0275 Installation of target HOL-Real
paulson
parents:
diff changeset
     7
7b5ea59c0275 Installation of target HOL-Real
paulson
parents:
diff changeset
     8
RealAbs = Real +
7b5ea59c0275 Installation of target HOL-Real
paulson
parents:
diff changeset
     9
7b5ea59c0275 Installation of target HOL-Real
paulson
parents:
diff changeset
    10
constdefs
7b5ea59c0275 Installation of target HOL-Real
paulson
parents:
diff changeset
    11
   rabs   :: real => real
5588
a3ab526bb891 Revised version with Abelian group simprocs
paulson
parents: 5078
diff changeset
    12
   "rabs r      == if 0r<=r then r else -r" 
5078
7b5ea59c0275 Installation of target HOL-Real
paulson
parents:
diff changeset
    13
7b5ea59c0275 Installation of target HOL-Real
paulson
parents:
diff changeset
    14
end