:: deftheorem defines (R4) ABSRED_0:def 39 :
for S being non empty partial quasi_total non-empty Group-like TRSStr holds
( S is (R4) iff for a, b being Element of S holds (a ") * (a * b) ==> b );