author | oheimb |
Fri, 20 Dec 1996 10:33:54 +0100 | |
changeset 2458 | 566a0fc5a3e0 |
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]] *)