let R be non empty doubleLoopStr ; :: thesis: for x being Scalar of R st x is being_an_amalgam_of_squares holds
x is generated_from_squares
let x be Scalar of R; :: thesis: ( x is being_an_amalgam_of_squares implies x is generated_from_squares )
assume x is being_an_amalgam_of_squares ; :: thesis: x is generated_from_squares
then consider f being FinSequence of R such that
A1: f is being_an_Amalgam_of_squares and
A2: x = f /. (len f) by Def11;
f is being_a_generation_from_squares by A1, Lm39;
hence x is generated_from_squares by A2, Def15; :: thesis: verum