src/HOLCF/Stream2.thy
author regensbu
Wed, 15 Feb 1995 20:02:47 +0100
changeset 899 516f9e349a16
parent 297 5ef75ff3baeb
child 1168 74be52691d62
permissions -rw-r--r--
replaced pair_ss by prod_ss

(*  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]]

*)