let a, b, c, d be Element of REAL ; :: thesis: a ^2 <= (((a ^2) + (b ^2)) + (c ^2)) + (d ^2)
A1: 0 <= c ^2 by XREAL_1:65;
A2: 0 <= d ^2 by XREAL_1:65;
a ^2 <= (a ^2) + (b ^2) by XREAL_1:33, XREAL_1:65;
then 0 + (a ^2) <= ((a ^2) + (b ^2)) + (c ^2) by A1, XREAL_1:9;
hence a ^2 <= (((a ^2) + (b ^2)) + (c ^2)) + (d ^2) by A2, XREAL_1:9; :: thesis: verum