author | wenzelm |
Wed, 15 Oct 1997 15:12:59 +0200 | |
changeset 3872 | a5839ecee7b8 |
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