theorem :: O_RING_1:45

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