author | wenzelm |
Sun, 30 Jul 2000 13:02:14 +0200 | |
changeset 9473 | 7d13a5ace928 |
parent 2570 | 24d7e8fb8261 |
child 10835 | f4745d77e620 |
permissions | -rw-r--r-- |
(* Title: HOLCF/Dnat.thy ID: $Id$ Author: Franz Regensburger Copyright 1993 Technische Universitaet Muenchen Theory for the domain of natural numbers dnat = one ++ dnat *) Dnat = HOLCF + domain dnat = dzero | dsucc (dpred :: dnat) 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))" end