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;
reserve V for finite-dimensional VectSp of GF,
  W, W1, W2 for Subspace of V,
  u, v for Vector of V;

theorem
  dim V = 1 iff ex v st v <> 0.V & (Omega).V = Lin{v}
proof
  hereby
    consider I being finite Subset of V such that
A1: I is Basis of V by MATRLIN:def 1;
    assume dim V = 1;
    then card I = 1 by A1,Def1;
    then consider v being object such that
A2: I = {v} by CARD_2:42;
    v in I by A2,TARSKI:def 1;
    then reconsider v as Vector of V;
    {v} is linearly-independent by A1,A2,VECTSP_7:def 3;
    then
A3: v <> 0.V by VECTSP_7:3;
    Lin{v} = the ModuleStr of V by A1,A2,VECTSP_7:def 3;
    hence ex v st v <> 0.V & (Omega).V = Lin{v} by A3,VECTSP_4:def 4;
  end;
  given v such that
A4: v <> 0.V & (Omega).V = Lin{v};
  {v} is linearly-independent & Lin{v} = the ModuleStr of V by A4,
VECTSP_4:def 4,VECTSP_7:3;
  then
A5: {v} is Basis of V by VECTSP_7:def 3;
  card {v} = 1 by CARD_1:30;
  hence thesis by A5,Def1;
end;
