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