:: deftheorem defines -->. REWRITE2:def 4 :
for E being set
for S being semi-Thue-system of E
for s, t being Element of E ^omega holds
( s -->. t,S iff [s,t] in S );