| changeset 10835 | f4745d77e620 |
| parent 2570 | 24d7e8fb8261 |
| child 12035 | f2ee4b5d02f2 |
--- a/src/HOLCF/ex/Dnat.thy Tue Jan 09 15:32:27 2001 +0100 +++ b/src/HOLCF/ex/Dnat.thy Tue Jan 09 15:36:30 2001 +0100 @@ -13,7 +13,7 @@ constdefs iterator :: "dnat -> ('a -> 'a) -> 'a -> 'a" - "iterator == fix`(LAM h n f x . case n of dzero => x - | dsucc`m => f`(h`m`f`x))" + "iterator == fix$(LAM h n f x . case n of dzero => x + | dsucc$m => f$(h$m$f$x))" end