1
(* $Id$ *)
2
3
4
Dagstuhl = Stream2 +
5
6
consts
7
y :: "'a"
8
YS :: "'a stream"
9
YYS :: "'a stream"
10
11
defs
12
13
YS_def "YS == fix`(LAM x. scons`y`x)"
14
YYS_def "YYS == fix`(LAM z. scons`y`(scons`y`z))"
15
16
end
17