src/HOL/Datatype.thy
author berghofe
Fri, 23 Oct 1998 22:34:18 +0200
changeset 5759 bf5d9e5b8cdf
parent 5714 b4f2e281a907
child 10212 33fe2d701ddd
permissions -rw-r--r--
unit and bool are now represented as datatypes.

(*  Title:      HOL/Datatype.thy
    ID:         $Id$
    Author:     Stefan Berghofer
    Copyright   1998  TU Muenchen
*)

Datatype = Univ +

rep_datatype bool
  distinct True_not_False, False_not_True
  induct   bool_induct

rep_datatype sum
  distinct Inl_not_Inr, Inr_not_Inl
  inject   Inl_eq, Inr_eq
  induct   sum_induct

rep_datatype prod
  inject   Pair_eq
  induct   prod_induct

rep_datatype unit
  induct   unit_induct

end