theorem Th38: :: SETWOP_2:38

for D being non empty set
for d, e being Element of D
for F, G being BinOp of D
for p being FinSequence of D st F is commutative & F is associative & F is having_a_unity & e = the_unity_wrt F & G is_distributive_wrt F & G . (d,e) = e holds
G . (d,(F "**" p)) = F "**" (G [;] (d,p))