:: deftheorem Def18 defines ARS_01 ABSRED_0:def 9 :
for b1 being strict ARS holds
( b1 = ARS_01 iff ( the carrier of b1 = {0,1} & the reduction of b1 = [:{0},{0,1}:] ) );