reserve V for RealLinearSpace;

theorem Th16:
  for v being VECTOR of V, X being Subspace of V, y being VECTOR
of X + Lin{v}, W being Subspace of X + Lin{v} st v = y & X = W & not v in X for
w1,w2 being VECTOR of X + Lin{v}, x1,x2 being VECTOR of X,
r1,r2 being Real st
w1 |-- (W,Lin{y}) = [x1,r1*v] & w2 |-- (W,Lin{y}) = [x2,r2*v] holds w1 + w2 |--
  (W,Lin{y}) = [x1 + x2, (r1+r2)*v]
proof
  let v be VECTOR of V, X be Subspace of V, y be VECTOR of X + Lin{v}, W be
  Subspace of X + Lin{v};
  assume that
A1: v = y and
A2: X = W and
A3: not v in X;
A4: X + Lin{v} is_the_direct_sum_of W,Lin{y} by A1,A2,A3,Th11;
  let w1,w2 be VECTOR of X + Lin{v}, x1,x2 be VECTOR of X,
      r1,r2 be Real such
  that
A5: w1 |-- (W,Lin{y}) = [x1,r1*v] and
A6: w2 |-- (W,Lin{y}) = [x2,r2*v];
  reconsider y1 = x1, y2 = x2 as VECTOR of X + Lin{v} by A2,RLSUB_1:10;
A7: r2*v = r2*y by A1,RLSUB_1:14;
  then
A8: y2 in W by A4,A6,Th4;
  (r1+r2)*v = (r1+r2)*y by A1,RLSUB_1:14;
  then
A9: (r1+r2)*v in Lin{y} by RLVECT_4:8;
  reconsider z1 = x1, z2 = x2 as VECTOR of V by RLSUB_1:10;
A10: y1 + y2 = z1 + z2 by RLSUB_1:13
    .= x1 + x2 by RLSUB_1:13;
A11: r1*v = r1*y by A1,RLSUB_1:14;
  then y1 in W by A4,A5,Th4;
  then
A12: y1 + y2 in W by A8,RLSUB_1:20;
A13: w2 = y2 + r2*y by A4,A6,A7,Th3;
  w1 = y1 + r1*y by A4,A5,A11,Th3;
  then
A14: w1 + w2 = y1 + r1*y + y2 + r2*y by A13,RLVECT_1:def 3
    .= y1 + y2 + r1*y + r2*y by RLVECT_1:def 3
    .= y1 + y2 + (r1*y + r2*y) by RLVECT_1:def 3
    .= y1 + y2 + (r1+r2)*y by RLVECT_1:def 6;
  (r1+r2)*y = (r1+r2)*v by A1,RLSUB_1:14;
  hence thesis by A4,A12,A9,A14,A10,Th2;
end;
