let X be ComplexNormSpace; for x, y, z being Element of (Ring_of_BoundedLinearOperators X) holds
( x + y = y + x & (x + y) + z = x + (y + z) & x + (0. (Ring_of_BoundedLinearOperators X)) = x & x is right_complementable & (x * y) * z = x * (y * z) & x * (1. (Ring_of_BoundedLinearOperators X)) = x & (1. (Ring_of_BoundedLinearOperators X)) * x = x & x * (y + z) = (x * y) + (x * z) & (y + z) * x = (y * x) + (z * x) )
let x, y, z be Element of (Ring_of_BoundedLinearOperators X); ( x + y = y + x & (x + y) + z = x + (y + z) & x + (0. (Ring_of_BoundedLinearOperators X)) = x & x is right_complementable & (x * y) * z = x * (y * z) & x * (1. (Ring_of_BoundedLinearOperators X)) = x & (1. (Ring_of_BoundedLinearOperators X)) * x = x & x * (y + z) = (x * y) + (x * z) & (y + z) * x = (y * x) + (z * x) )
set RBLOP = Ring_of_BoundedLinearOperators X;
set BLOP = BoundedLinearOperators (X,X);
set ADD = Add_ ((BoundedLinearOperators (X,X)),(C_VectorSpace_of_LinearOperators (X,X)));
set MULT = FuncMult X;
set UNIT = FuncUnit X;
set RRL = CLSStruct(# (BoundedLinearOperators (X,X)),(Zero_ ((BoundedLinearOperators (X,X)),(C_VectorSpace_of_LinearOperators (X,X)))),(Add_ ((BoundedLinearOperators (X,X)),(C_VectorSpace_of_LinearOperators (X,X)))),(Mult_ ((BoundedLinearOperators (X,X)),(C_VectorSpace_of_LinearOperators (X,X)))) #);
reconsider f = x, g = y, h = z as Element of CLSStruct(# (BoundedLinearOperators (X,X)),(Zero_ ((BoundedLinearOperators (X,X)),(C_VectorSpace_of_LinearOperators (X,X)))),(Add_ ((BoundedLinearOperators (X,X)),(C_VectorSpace_of_LinearOperators (X,X)))),(Mult_ ((BoundedLinearOperators (X,X)),(C_VectorSpace_of_LinearOperators (X,X)))) #) ;
thus x + y =
f + g
.=
y + x
by RLVECT_1:2
; ( (x + y) + z = x + (y + z) & x + (0. (Ring_of_BoundedLinearOperators X)) = x & x is right_complementable & (x * y) * z = x * (y * z) & x * (1. (Ring_of_BoundedLinearOperators X)) = x & (1. (Ring_of_BoundedLinearOperators X)) * x = x & x * (y + z) = (x * y) + (x * z) & (y + z) * x = (y * x) + (z * x) )
thus (x + y) + z =
(f + g) + h
.=
f + (g + h)
by RLVECT_1:def 3
.=
x + (y + z)
; ( x + (0. (Ring_of_BoundedLinearOperators X)) = x & x is right_complementable & (x * y) * z = x * (y * z) & x * (1. (Ring_of_BoundedLinearOperators X)) = x & (1. (Ring_of_BoundedLinearOperators X)) * x = x & x * (y + z) = (x * y) + (x * z) & (y + z) * x = (y * x) + (z * x) )
thus x + (0. (Ring_of_BoundedLinearOperators X)) =
f + (0. CLSStruct(# (BoundedLinearOperators (X,X)),(Zero_ ((BoundedLinearOperators (X,X)),(C_VectorSpace_of_LinearOperators (X,X)))),(Add_ ((BoundedLinearOperators (X,X)),(C_VectorSpace_of_LinearOperators (X,X)))),(Mult_ ((BoundedLinearOperators (X,X)),(C_VectorSpace_of_LinearOperators (X,X)))) #))
.=
x
by RLVECT_1:def 4
; ( x is right_complementable & (x * y) * z = x * (y * z) & x * (1. (Ring_of_BoundedLinearOperators X)) = x & (1. (Ring_of_BoundedLinearOperators X)) * x = x & x * (y + z) = (x * y) + (x * z) & (y + z) * x = (y * x) + (z * x) )
thus
ex t being Element of (Ring_of_BoundedLinearOperators X) st x + t = 0. (Ring_of_BoundedLinearOperators X)
ALGSTR_0:def 11 ( (x * y) * z = x * (y * z) & x * (1. (Ring_of_BoundedLinearOperators X)) = x & (1. (Ring_of_BoundedLinearOperators X)) * x = x & x * (y + z) = (x * y) + (x * z) & (y + z) * x = (y * x) + (z * x) )proof
consider s being
Element of
CLSStruct(#
(BoundedLinearOperators (X,X)),
(Zero_ ((BoundedLinearOperators (X,X)),(C_VectorSpace_of_LinearOperators (X,X)))),
(Add_ ((BoundedLinearOperators (X,X)),(C_VectorSpace_of_LinearOperators (X,X)))),
(Mult_ ((BoundedLinearOperators (X,X)),(C_VectorSpace_of_LinearOperators (X,X)))) #)
such that A1:
f + s = 0. CLSStruct(#
(BoundedLinearOperators (X,X)),
(Zero_ ((BoundedLinearOperators (X,X)),(C_VectorSpace_of_LinearOperators (X,X)))),
(Add_ ((BoundedLinearOperators (X,X)),(C_VectorSpace_of_LinearOperators (X,X)))),
(Mult_ ((BoundedLinearOperators (X,X)),(C_VectorSpace_of_LinearOperators (X,X)))) #)
by ALGSTR_0:def 11;
reconsider t =
s as
Element of
(Ring_of_BoundedLinearOperators X) ;
take
t
;
x + t = 0. (Ring_of_BoundedLinearOperators X)
thus
x + t = 0. (Ring_of_BoundedLinearOperators X)
by A1;
verum
end;
reconsider xx = x, yy = y, zz = z as Element of BoundedLinearOperators (X,X) ;
thus (x * y) * z =
(FuncMult X) . ((xx * yy),zz)
by Def4
.=
(xx * yy) * zz
by Def4
.=
xx * (yy * zz)
by Th7
.=
(FuncMult X) . (xx,(yy * zz))
by Def4
.=
x * (y * z)
by Def4
; ( x * (1. (Ring_of_BoundedLinearOperators X)) = x & (1. (Ring_of_BoundedLinearOperators X)) * x = x & x * (y + z) = (x * y) + (x * z) & (y + z) * x = (y * x) + (z * x) )
thus x * (1. (Ring_of_BoundedLinearOperators X)) =
xx * (FuncUnit X)
by Def4
.=
x
by Th8
; ( (1. (Ring_of_BoundedLinearOperators X)) * x = x & x * (y + z) = (x * y) + (x * z) & (y + z) * x = (y * x) + (z * x) )
thus (1. (Ring_of_BoundedLinearOperators X)) * x =
(FuncUnit X) * xx
by Def4
.=
x
by Th8
; ( x * (y + z) = (x * y) + (x * z) & (y + z) * x = (y * x) + (z * x) )
thus x * (y + z) =
xx * (yy + zz)
by Def4
.=
(xx * yy) + (xx * zz)
by Th9
.=
(Add_ ((BoundedLinearOperators (X,X)),(C_VectorSpace_of_LinearOperators (X,X)))) . ((xx * yy),((FuncMult X) . (xx,zz)))
by Def4
.=
(x * y) + (x * z)
by Def4
; (y + z) * x = (y * x) + (z * x)
thus (y + z) * x =
(yy + zz) * xx
by Def4
.=
(yy * xx) + (zz * xx)
by Th10
.=
(Add_ ((BoundedLinearOperators (X,X)),(C_VectorSpace_of_LinearOperators (X,X)))) . ((yy * xx),((FuncMult X) . (zz,xx)))
by Def4
.=
(y * x) + (z * x)
by Def4
; verum