reserve GF for Field,
  V for VectSp of GF,
  W for Subspace of V,
  x, y, y1, y2 for set,
  i, n, m for Nat;

theorem Th14:
  for A being Subset of V st A is linearly-independent for v being
Vector of V st v in A for B being Subset of V st B = A \ {v} holds not v in Lin
  (B)
proof
  let A be Subset of V such that
A1: A is linearly-independent;
  let v be Vector of V;
  assume v in A;
  then
A2: {v} is Subset of A by SUBSET_1:41;
  v in {v} by TARSKI:def 1;
  then v in Lin({v}) by VECTSP_7:8;
  then consider K being Linear_Combination of {v} such that
A3: v = Sum(K) by VECTSP_7:7;
  let B be Subset of V such that
A4: B = A \ {v};
  B c= A by A4,XBOOLE_1:36;
  then
A5: B \/ {v} c= A \/ A by A2,XBOOLE_1:13;
  assume v in Lin(B);
  then consider L being Linear_Combination of B such that
A6: v = Sum(L) by VECTSP_7:7;
A7: Carrier(L) c= B & Carrier(K) c= {v} by VECTSP_6:def 4;
  then Carrier(L) \/ Carrier(K) c= B \/ {v} by XBOOLE_1:13;
  then Carrier(L - K) c= Carrier(L) \/ Carrier(K) & Carrier(L) \/ Carrier(K)
  c= A by A5,VECTSP_6:41;
  then Carrier(L - K) c= A;
  then
A8: L - K is Linear_Combination of A by VECTSP_6:def 4;
A9: for x being Vector of V holds x in Carrier(L) implies K.x = 0.GF
  proof
    let x be Vector of V;
    assume x in Carrier(L);
    then not x in Carrier(K) by A4,A7,XBOOLE_0:def 5;
    hence thesis by VECTSP_6:2;
  end;
A10: now
    let x be set such that
A11: x in Carrier(L) and
A12: not x in Carrier(L - K);
    reconsider x as Vector of V by A11;
A13: L.x <> 0.GF by A11,VECTSP_6:2;
    (L - K).x = L.x - K.x by VECTSP_6:40
      .= L.x - 0.GF by A9,A11
      .= L.x + (-0.GF) by RLVECT_1:def 11
      .= L.x + 0.GF by RLVECT_1:12
      .= L.x by RLVECT_1:4;
    hence contradiction by A12,A13,VECTSP_6:2;
  end;
  {v} is linearly-independent by A1,A2,VECTSP_7:1;
  then v <> 0.V by VECTSP_7:3;
  then Carrier(L) <> {} by A6,VECTSP_6:19;
  then ex w being object st w in Carrier(L) by XBOOLE_0:def 1;
  then
A14: Carrier(L - K) is non empty by A10;
  0.V = Sum(L) + (- Sum(K)) by A6,A3,RLVECT_1:def 10
    .= Sum(L) + Sum(-K) by VECTSP_6:46
    .= Sum(L + (- K)) by VECTSP_6:44
    .= Sum(L - K) by VECTSP_6:def 11;
  hence contradiction by A1,A8,A14,VECTSP_7:def 1;
end;
