Files
gf-core/grammars/ljung/thesis/Erasing.gf
2005-08-08 08:01:10 +00:00

27 lines
334 B
Plaintext

-- the example 4.1 from Ljunglöf (2004, page 82)
concrete Erasing of ErasingAbs = {
lincat
S = { s : Str };
A = { s1 : Str; s2 : Str };
B = { s : Str };
C = { s : Str };
lin
f x = { s = x.s1 };
g x y z = { s1 = x.s2 ++ y.s;
s2 = x.s1 ++ z.s };
a = { s1 = "a1"; s2 = "a2" };
b = { s = "b" };
c = { s = "c" };
}