author | paulson |
Wed, 19 Apr 2000 11:13:31 +0200 | |
changeset 8742 | 8a5b3f58b944 |
parent 7588 | 26384af93359 |
child 8838 | 4eaa99f0d223 |
permissions | -rw-r--r-- |
(* Title: Real/RealOrd.thy ID: $Id$ Author: Lawrence C. Paulson Jacques D. Fleuriot Copyright: 1998 University of Cambridge Description: Type "real" is a linear order *) RealOrd = RealDef + instance real :: order (real_le_refl,real_le_trans,real_le_anti_sym,real_less_le) instance real :: linorder (real_le_linear) constdefs rabs :: real => real "rabs r == if 0r<=r then r else -r" end