| author | paulson | 
| Thu, 11 Dec 1997 10:28:04 +0100 | |
| changeset 4385 | f6d019eefa1e | 
| 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]] *)