src/HOLCF/One.thy
author paulson
Tue, 21 Oct 1997 10:36:23 +0200
changeset 3960 7a38fae985f9
parent 3717 e28553315355
child 12030 46d57d0290a2
permissions -rw-r--r--
New rewrite rules image_iff

(*  Title:      HOLCF/One.thy
    ID:         $Id$
    Author:     Oscar Slotosch
    Copyright   1997 Technische Universitaet Muenchen
*)

One = Lift +

types one = unit lift

constdefs
  ONE :: "one"
  "ONE == Def ()"

translations
  "one" <= (type) "unit lift" 

end