src/HOLCF/stream2.thy
author paulson
Mon Dec 07 18:26:25 1998 +0100 (1998-12-07)
changeset 6019 0e55c2fb2ebb
parent 297 5ef75ff3baeb
permissions -rw-r--r--
tidying
nipkow@243
     1
(*  Title: 	HOLCF/stream2.thy
nipkow@243
     2
    ID:         $Id$
nipkow@243
     3
    Author: 	Franz Regensburger
nipkow@243
     4
    Copyright   1993 Technische Universitaet Muenchen
nipkow@243
     5
nipkow@243
     6
Additional constants for stream
nipkow@243
     7
*)
nipkow@243
     8
nipkow@243
     9
Stream2 = Stream +
nipkow@243
    10
nipkow@243
    11
consts
nipkow@243
    12
nipkow@243
    13
smap		:: "('a -> 'b) -> 'a stream -> 'b stream"
nipkow@243
    14
nipkow@243
    15
rules
nipkow@243
    16
nipkow@243
    17
smap_def
nipkow@243
    18
  "smap = fix[LAM h f s. stream_when[LAM x l.scons[f[x]][h[f][l]]][s]]"
nipkow@243
    19
nipkow@243
    20
nipkow@243
    21
end
nipkow@297
    22
      
nipkow@243
    23
nipkow@243
    24
(*
nipkow@243
    25
		smap[f][UU] = UU
nipkow@243
    26
      x~=UU --> smap[f][scons[x][xs]] = scons[f[x]][smap[f][xs]]
nipkow@243
    27
nipkow@243
    28
*)
nipkow@243
    29