theorem :: O_RING_1:84

for R being non empty doubleLoopStr
for x, y being Scalar of R st x is generated_from_squares & y is being_a_product_of_squares holds
x * y is generated_from_squares