let X be non empty set ; :: thesis: for S being SigmaField of X
for M being sigma_Measure of S
for f, g being PartFunc of X,REAL
for a being Real
for k being positive Real
for x, y being Point of (Lp-Space (M,k)) holds
( ( f in x & g in y implies f + g in x + y ) & ( f in x implies a (#) f in a * x ) )

let S be SigmaField of X; :: thesis: for M being sigma_Measure of S
for f, g being PartFunc of X,REAL
for a being Real
for k being positive Real
for x, y being Point of (Lp-Space (M,k)) holds
( ( f in x & g in y implies f + g in x + y ) & ( f in x implies a (#) f in a * x ) )

let M be sigma_Measure of S; :: thesis: for f, g being PartFunc of X,REAL
for a being Real
for k being positive Real
for x, y being Point of (Lp-Space (M,k)) holds
( ( f in x & g in y implies f + g in x + y ) & ( f in x implies a (#) f in a * x ) )

let f, g be PartFunc of X,REAL; :: thesis: for a being Real
for k being positive Real
for x, y being Point of (Lp-Space (M,k)) holds
( ( f in x & g in y implies f + g in x + y ) & ( f in x implies a (#) f in a * x ) )

let a be Real; :: thesis: for k being positive Real
for x, y being Point of (Lp-Space (M,k)) holds
( ( f in x & g in y implies f + g in x + y ) & ( f in x implies a (#) f in a * x ) )

let k be positive Real; :: thesis: for x, y being Point of (Lp-Space (M,k)) holds
( ( f in x & g in y implies f + g in x + y ) & ( f in x implies a (#) f in a * x ) )

let x, y be Point of (Lp-Space (M,k)); :: thesis: ( ( f in x & g in y implies f + g in x + y ) & ( f in x implies a (#) f in a * x ) )
set C = CosetSet (M,k);
hereby :: thesis: ( f in x implies a (#) f in a * x )
assume A2: ( f in x & g in y ) ; :: thesis: f + g in x + y
x in the carrier of (Pre-Lp-Space (M,k)) ;
then A3: x in CosetSet (M,k) by VSPDef6X;
then consider a being PartFunc of X,REAL such that
A4: ( x = a.e-eq-class_Lp (a,M,k) & a in Lp_Functions (M,k) ) ;
A5: a in x by A4, EQC01;
y in the carrier of (Pre-Lp-Space (M,k)) ;
then A6: y in CosetSet (M,k) by VSPDef6X;
then consider b being PartFunc of X,REAL such that
A7: ( y = a.e-eq-class_Lp (b,M,k) & b in Lp_Functions (M,k) ) ;
b in y by A7, EQC01;
then (addCoset (M,k)) . (x,y) = a.e-eq-class_Lp ((a + b),M,k) by A3, A6, A5, VSPDef3X;
then A9: x + y = a.e-eq-class_Lp ((a + b),M,k) by VSPDef6X;
ex r being PartFunc of X,REAL st
( f = r & r in Lp_Functions (M,k) & a a.e.= r,M ) by A2, A4;
then A11: a.e-eq-class_Lp (a,M,k) = a.e-eq-class_Lp (f,M,k) by EQC02bx;
ex r being PartFunc of X,REAL st
( g = r & r in Lp_Functions (M,k) & b a.e.= r,M ) by A2, A7;
then a.e-eq-class_Lp (b,M,k) = a.e-eq-class_Lp (g,M,k) by EQC02bx;
then a.e-eq-class_Lp ((a + b),M,k) = a.e-eq-class_Lp ((f + g),M,k) by A2, A4, A7, A11, EQC03b;
hence f + g in x + y by EQC01, A9, Th01aLp, A4, A2, A7; :: thesis: verum
end;
hereby :: thesis: verum
assume A15: f in x ; :: thesis: a (#) f in a * x
x in the carrier of (Pre-Lp-Space (M,k)) ;
then A16: x in CosetSet (M,k) by VSPDef6X;
then consider f1 being PartFunc of X,REAL such that
A17: ( x = a.e-eq-class_Lp (f1,M,k) & f1 in Lp_Functions (M,k) ) ;
f1 in x by A17, EQC01;
then (lmultCoset (M,k)) . (a,x) = a.e-eq-class_Lp ((a (#) f1),M,k) by A16, VSPDef5X;
then A19: a * x = a.e-eq-class_Lp ((a (#) f1),M,k) by VSPDef6X;
ex r being PartFunc of X,REAL st
( f = r & r in Lp_Functions (M,k) & f1 a.e.= r,M ) by A15, A17;
then a.e-eq-class_Lp (f1,M,k) = a.e-eq-class_Lp (f,M,k) by EQC02bx;
then a.e-eq-class_Lp ((a (#) f1),M,k) = a.e-eq-class_Lp ((a (#) f),M,k) by A17, A15, EQC04b;
hence a (#) f in a * x by A19, Th01bLp, A15, A17, EQC01; :: thesis: verum
end;