author | paulson |
Wed, 25 Nov 1998 15:54:41 +0100 | |
changeset 5971 | c5a7a7685826 |
parent 5582 | a356fb49e69e |
child 8949 | d46adac29b71 |
permissions | -rw-r--r-- |
(* Title: Integ/Int.thy ID: $Id$ Author: Lawrence C Paulson, Cambridge University Computer Laboratory Copyright 1998 University of Cambridge Type "int" is a linear order *) Int = IntDef + instance int :: order (zle_refl,zle_trans,zle_anti_sym,int_less_le) instance int :: linorder (zle_linear) constdefs nat :: int => nat "nat(Z) == if neg Z then 0 else (@ m. Z = int m)" end