reserve V for RealLinearSpace,
  W for Subspace of V,
  x, y, y1, y2 for set,
  i, n for Element of NAT,
  v for VECTOR of V,
  KL1, KL2 for Linear_Combination of V,
  X for Subset of V;

theorem Th11:
  for K being Linear_Combination of W holds ex L being
  Linear_Combination of V st Carrier(K) = Carrier(L) & Sum(K) = Sum(L)
proof
  let K be Linear_Combination of W;
  defpred P[object, object] means
   ($1 in W & $2 = K.$1) or (not $1 in W & $2 = 0);
  reconsider K9= K as Function of the carrier of W, REAL;
A1: the carrier of W c= the carrier of V by RLSUB_1:def 2;
  then reconsider C = Carrier(K) as finite Subset of V by XBOOLE_1:1;
A2: for x being object st x in the carrier of V
   ex y being object st y in REAL & P[x, y]
  proof
    let x be object;
    assume x in the carrier of V;
    then reconsider x as VECTOR of V;
A3: 0 in REAL by XREAL_0:def 1;
    per cases;
    suppose
A4:   x in W;
      then reconsider x as VECTOR of W by STRUCT_0:def 5;
      P[x, K.x] by A4;
      hence thesis;
    end;
    suppose
      not x in W;
      hence thesis by A3;
    end;
  end;
  ex L being Function of the carrier of V, REAL st
for x being object st x in the
  carrier of V holds P[x, L.x] from FUNCT_2:sch 1(A2);
  then consider L being Function of the carrier of V, REAL such that
A5: for x being object st x in the carrier of V holds P[x, L.x];
A6: now
    let v be VECTOR of V;
    assume not v in C;
    then P[v, K.v] & not v in C & v in the carrier of W or P[v, 0] by
STRUCT_0:def 5;
    then P[v, K.v] & K.v = 0 or P[v, 0] by RLVECT_2:19;
    hence L.v = 0 by A5;
  end;
  L is Element of Funcs(the carrier of V, REAL) by FUNCT_2:8;
  then reconsider L as Linear_Combination of V by A6,RLVECT_2:def 3;
  reconsider L9= L|the carrier of W as Function of the carrier of W, REAL by A1
,FUNCT_2:32;
  take L;
  now
    let x be object;
    assume that
A7: x in Carrier(L) and
A8: not x in the carrier of W;
    consider v being VECTOR of V such that
A9: x = v and
A10: L.v <> 0 by A7,Th3;
    P[v, 0] by A8,A9,STRUCT_0:def 5;
    hence contradiction by A5,A10;
  end;
  then
A11: Carrier(L) c= the carrier of W;
  now
    let x be object;
    assume
A12: x in the carrier of W;
    then P[x, L.x] by A5,A1;
    hence K9.x = L9.x by A12,FUNCT_1:49,STRUCT_0:def 5;
  end;
  then K9 = L9 by FUNCT_2:12;
  hence thesis by A11,Th10;
end;
