src/HOLCF/One.thy
author paulson
Mon Dec 07 18:26:25 1998 +0100 (1998-12-07)
changeset 6019 0e55c2fb2ebb
parent 3717 e28553315355
child 12030 46d57d0290a2
permissions -rw-r--r--
tidying
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