:: deftheorem Def24 defines Nucl_r AIMLOOP:def 24 :
for Q being multLoop
for b2 being Subset of Q holds
( b2 = Nucl_r Q iff for z being Element of Q holds
( z in b2 iff for x, y being Element of Q holds (x * y) * z = x * (y * z) ) );