2 * Sample code from Stratego XT Manual
7 |[ let f(xs) = e in e'[f(es)] ]| ->
8 |[ let f(xs) = e in e'[e[es/xs]] ]|
11 |[ let x = e in e'[x] ]| -> |[ let x = e in e'[e] ]|
14 |[ let x = e in e' ]| -> |[ e' ]|
15 where <not(in)> (x,e')
18 |[ e ]| -> |[ let f(xs) = e in f(xs) ]|
21 |[ let x = e1 in let f(xs) = e2 in e3 ]| ->
22 |[ let f(xs) = e2 in let x = e1 in e3 ]|
23 where <not(in)> (x, <free-vars> e2)