src/HOL/Datatype.thy
author paulson
Mon Dec 07 18:26:25 1998 +0100 (1998-12-07)
changeset 6019 0e55c2fb2ebb
parent 5759 bf5d9e5b8cdf
child 10212 33fe2d701ddd
permissions -rw-r--r--
tidying
berghofe@5181
     1
(*  Title:      HOL/Datatype.thy
berghofe@5181
     2
    ID:         $Id$
berghofe@5181
     3
    Author:     Stefan Berghofer
berghofe@5181
     4
    Copyright   1998  TU Muenchen
berghofe@5181
     5
*)
berghofe@5181
     6
berghofe@5181
     7
Datatype = Univ +
berghofe@5181
     8
berghofe@5759
     9
rep_datatype bool
berghofe@5759
    10
  distinct True_not_False, False_not_True
berghofe@5759
    11
  induct   bool_induct
berghofe@5759
    12
berghofe@5181
    13
rep_datatype sum
berghofe@5714
    14
  distinct Inl_not_Inr, Inr_not_Inl
berghofe@5714
    15
  inject   Inl_eq, Inr_eq
berghofe@5181
    16
  induct   sum_induct
berghofe@5181
    17
berghofe@5181
    18
rep_datatype prod
berghofe@5714
    19
  inject   Pair_eq
berghofe@5714
    20
  induct   prod_induct
berghofe@5181
    21
berghofe@5759
    22
rep_datatype unit
berghofe@5759
    23
  induct   unit_induct
berghofe@5759
    24
berghofe@5181
    25
end