Recursively Enumerable Languages
>
P:=table():P[[S]]:={[a,A,b]}: P[[a,A]]:={[a,A,b],[\lambda]}:
csg:=UG({S,A},{a,b},S,op(P));
(15.1)
>