| author | paulson | 
| Mon, 12 Nov 2001 12:38:06 +0100 | |
| changeset 12158 | f60fe41e96e9 | 
| parent 297 | 5ef75ff3baeb | 
| permissions | -rw-r--r-- | 
(* Title: HOLCF/stream2.thy ID: $Id$ Author: Franz Regensburger Copyright 1993 Technische Universitaet Muenchen Additional constants for stream *) Stream2 = Stream + consts smap :: "('a -> 'b) -> 'a stream -> 'b stream" rules smap_def "smap = fix[LAM h f s. stream_when[LAM x l.scons[f[x]][h[f][l]]][s]]" end (* smap[f][UU] = UU x~=UU --> smap[f][scons[x][xs]] = scons[f[x]][smap[f][xs]] *)