let R be non empty doubleLoopStr ; :: thesis: for x being Scalar of R st x is being_a_square holds
x is generated_from_squares
let x be Scalar of R; :: thesis: ( x is being_a_square implies x is generated_from_squares )
assume x is being_a_square ; :: thesis: x is generated_from_squares
then A1: <*x*> is being_a_generation_from_squares by Lm30;
( len <*x*> = 1 & <*x*> /. 1 = x ) by Lm2;
hence x is generated_from_squares by A1; :: thesis: verum