reserve X for non empty set,
        x for Element of X,
        S for SigmaField of X,
        M for sigma_Measure of S,
        f,g,f1,g1 for PartFunc of X,REAL,
        l,m,n,n1,n2 for Nat,
        a,b,c for Real;
reserve k for positive Real;
reserve v,u for VECTOR of RLSp_LpFunct(M,k);
reserve v,u for VECTOR of RLSp_AlmostZeroLpFunct(M,k);
reserve x for Point of Pre-Lp-Space(M,k);
reserve x,y for Point of Lp-Space(M,k);

theorem Th74:
for X be non empty set, S be SigmaField of X,
 M be sigma_Measure of S holds lmultCoset M = lmultCoset(M,1)
proof
   let X be non empty set;
   let S be SigmaField of X;
   let M be sigma_Measure of S;
A1:CosetSet M = CosetSet(M,1) by Th71;
   now let z be Element of REAL, A be Element of CosetSet M;
    A in {a.e-eq-class(f,M) where f is PartFunc of X,REAL
          : f in L1_Functions M}; then
    consider a be PartFunc of X,REAL such that
A2:  A = a.e-eq-class(a,M) & a in L1_Functions M;
A3: A is Element of CosetSet(M,1) by Th71;
A4: a in A by A2,LPSPACE1:38; then
A5: (lmultCoset M).(z,A) = a.e-eq-class(z(#)a,M) by LPSPACE1:def 17;
    z(#)a in L1_Functions M by A2,LPSPACE1:24; then
    ex E be Element of S st M.E`=0 & E = dom(z(#)a)
        & (z(#)a) is E-measurable by Lm8; then
    (lmultCoset M).(z,A) = a.e-eq-class_Lp(z(#)a,M,1) by A5,Lm12;
    hence (lmultCoset M).(z,A) = (lmultCoset(M,1)).(z,A) by A3,A4,Def10;
   end;
   hence lmultCoset M = lmultCoset(M,1) by A1,BINOP_1:2;
end;
