author | paulson |
Fri, 18 Feb 2000 15:35:29 +0100 | |
changeset 8255 | 38f96394c099 |
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