Files
gf-core/test/srg/srg0005/srg0005.gf
2007-03-24 17:25:07 +00:00

10 lines
136 B
Plaintext

cat S; E;
fun f : E -> S ;
fun g : S -> S ;
fun e : E ;
lin f e = { s = e.s } ;
lin g s = { s = s.s ++ "x" } ;
lin e = { s = "e" } ;