src/HOLCF/One.thy
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"