src/HOL/Nat.thy
author berghofe
Wed Oct 21 17:38:47 1998 +0200 (1998-10-21)
changeset 5714 b4f2e281a907
parent 5499 1787c44ae4ed
child 7702 35c7e0df749f
permissions -rw-r--r--
Changed syntax of rep_datatype.
     1 (*  Title:      HOL/Nat.thy
     2     ID:         $Id$
     3     Author:     Tobias Nipkow
     4     Copyright   1997 TU Muenchen
     5 
     6 Type "nat" is a linear order, and a datatype
     7 *)
     8 
     9 Nat = NatDef + Inductive +
    10 
    11 setup
    12   DatatypePackage.setup
    13 
    14 rep_datatype nat
    15   distinct Suc_not_Zero, Zero_not_Suc
    16   inject   Suc_Suc_eq
    17   induct   nat_induct
    18 
    19 instance nat :: order (le_refl,le_trans,le_anti_sym,nat_less_le)
    20 instance nat :: linorder (nat_le_linear)
    21 
    22 consts
    23   "^"           :: ['a::power,nat] => 'a            (infixr 80)
    24 
    25 end