src/HOLCF/One.thy
author wenzelm
Thu Aug 27 20:46:36 1998 +0200 (1998-08-27)
changeset 5400 645f46a24c72
parent 3717 e28553315355
child 12030 46d57d0290a2
permissions -rw-r--r--
made tutorial first;
slotosch@2640
     1
(*  Title:      HOLCF/One.thy
nipkow@243
     2
    ID:         $Id$
slotosch@2640
     3
    Author:     Oscar Slotosch
slotosch@2640
     4
    Copyright   1997 Technische Universitaet Muenchen
nipkow@243
     5
*)
nipkow@243
     6
slotosch@2640
     7
One = Lift +
nipkow@243
     8
wenzelm@3717
     9
types one = unit lift
nipkow@243
    10
wenzelm@3717
    11
constdefs
wenzelm@3717
    12
  ONE :: "one"
wenzelm@3717
    13
  "ONE == Def ()"
slotosch@2640
    14
slotosch@2640
    15
translations
wenzelm@3717
    16
  "one" <= (type) "unit lift" 
nipkow@243
    17
nipkow@243
    18
end