src/HOLCF/One.thy
changeset 2275 dbce3dce821a
parent 1479 21eb5e156d91
child 2640 ee4dfce170a0
     1.1 --- a/src/HOLCF/One.thy	Thu Nov 28 15:56:04 1996 +0100
     1.2 +++ b/src/HOLCF/One.thy	Fri Nov 29 12:15:33 1996 +0100
     1.3 @@ -34,7 +34,7 @@
     1.4  
     1.5  defs
     1.6    one_def       "one == abs_one`(up`UU)"
     1.7 -  one_when_def "one_when == (LAM c u.lift`(LAM x.c)`(rep_one`u))"
     1.8 +  one_when_def "one_when == (LAM c u.fup`(LAM x.c)`(rep_one`u))"
     1.9  
    1.10  translations
    1.11    "case l of one => t1" == "one_when`t1`l"