author | paulson |
Mon, 05 Mar 2001 15:25:11 +0100 | |
changeset 11193 | 851c90b23a9e |
parent 10919 | 144ede948e58 |
child 14269 | 502a7c95de73 |
permissions | -rw-r--r-- |
(* Title : HRealAbs.thy Author : Jacques D. Fleuriot Copyright : 1998 University of Cambridge Description : Absolute value function for the hyperreals *) HRealAbs = HyperArith + RealAbs + defs hrabs_def "abs r == if (0::hypreal) <=r then r else -r" constdefs hypreal_of_nat :: nat => hypreal "hypreal_of_nat (n::nat) == hypreal_of_real (real n)" end