author | paulson |
Thu, 19 Aug 1999 15:11:12 +0200 | |
changeset 7283 | 5cfe2944910a |
parent 7219 | 4e3f386c2e37 |
child 7334 | a90fc1e5fb19 |
permissions | -rw-r--r-- |
5078 | 1 |
(* Title : RealAbs.thy |
7219 | 2 |
ID : $Id$ |
5078 | 3 |
Author : Jacques D. Fleuriot |
4 |
Copyright : 1998 University of Cambridge |
|
5 |
Description : Absolute value function for the reals |
|
6 |
*) |
|
7 |
||
8 |
RealAbs = Real + |
|
9 |
||
10 |
constdefs |
|
11 |
rabs :: real => real |
|
5588 | 12 |
"rabs r == if 0r<=r then r else -r" |
5078 | 13 |
|
14 |
end |