author | wenzelm |
Mon, 08 May 2000 20:57:02 +0200 | |
changeset 8838 | 4eaa99f0d223 |
parent 7588 | 26384af93359 |
child 9013 | 9dd0274f76af |
permissions | -rw-r--r-- |
7334 | 1 |
(* Title: Real/RealOrd.thy |
2 |
ID: $Id$ |
|
3 |
Author: Lawrence C. Paulson |
|
4 |
Jacques D. Fleuriot |
|
5 |
Copyright: 1998 University of Cambridge |
|
6 |
Description: Type "real" is a linear order |
|
7 |
*) |
|
8 |
||
9 |
RealOrd = RealDef + |
|
10 |
||
11 |
instance real :: order (real_le_refl,real_le_trans,real_le_anti_sym,real_less_le) |
|
12 |
instance real :: linorder (real_le_linear) |
|
13 |
||
8838 | 14 |
defs |
15 |
abs_real_def "abs r == (if 0r <= r then r else -r)" |
|
7588
26384af93359
Tidying to exploit the new arith_tac. RealBin no longer imports RealPow or
paulson
parents:
7334
diff
changeset
|
16 |
|
7334 | 17 |
end |