author | paulson |
Fri, 28 Nov 2003 12:09:37 +0100 | |
changeset 14269 | 502a7c95de73 |
parent 10919 | 144ede948e58 |
child 14299 | 0b5c0b0a3eba |
permissions | -rw-r--r-- |
10750 | 1 |
(* Title : HRealAbs.thy |
2 |
Author : Jacques D. Fleuriot |
|
3 |
Copyright : 1998 University of Cambridge |
|
4 |
Description : Absolute value function for the hyperreals |
|
5 |
*) |
|
6 |
||
14269 | 7 |
HRealAbs = HyperArith + RealArith + |
10750 | 8 |
|
9 |
defs |
|
10 |
hrabs_def "abs r == if (0::hypreal) <=r then r else -r" |
|
11 |
||
10778
2c6605049646
more tidying, especially to remove real_of_posnat
paulson
parents:
10750
diff
changeset
|
12 |
constdefs |
2c6605049646
more tidying, especially to remove real_of_posnat
paulson
parents:
10750
diff
changeset
|
13 |
|
2c6605049646
more tidying, especially to remove real_of_posnat
paulson
parents:
10750
diff
changeset
|
14 |
hypreal_of_nat :: nat => hypreal |
10919
144ede948e58
renamings: real_of_nat, real_of_int -> (overloaded) real
paulson
parents:
10778
diff
changeset
|
15 |
"hypreal_of_nat (n::nat) == hypreal_of_real (real n)" |
10778
2c6605049646
more tidying, especially to remove real_of_posnat
paulson
parents:
10750
diff
changeset
|
16 |
|
10750 | 17 |
end |