Files
gf-core/testsuite/srg/cyclic-direct/cyclic-direct.gf
2009-05-20 11:25:00 +00:00

7 lines
83 B
Plaintext

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