author | wenzelm |
Tue, 24 Nov 1998 12:03:09 +0100 | |
changeset 5953 | d6017ce6b93e |
parent 243 | c22b85994e17 |
permissions | -rw-r--r-- |
(* Title: HOLCF/dnat2.thy ID: $Id$ Author: Franz Regensburger Copyright 1993 Technische Universitaet Muenchen Additional constants for dnat *) Dnat2 = Dnat + consts iterator :: "dnat -> ('a -> 'a) -> 'a -> 'a" rules iterator_def "iterator = fix[LAM h n f x.\ \ dnat_when[x][LAM m.f[h[m][f][x]]][n]]" end (* iterator[UU][f][x] = UU iterator[dzero][f][x] = x n~=UU --> iterator[dsucc[n]][f][x] = f[iterator[n][f][x]] *)