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 Th22:
  V is finite-dimensional implies for A, B being Basis of V holds
  card A = card B
proof
  assume
A1: V is finite-dimensional;
  let A, B be Basis of V;
  reconsider A9= A, B9= B as finite Subset of V by A1;
  the ModuleStr of V = Lin(B) & A9 is linearly-independent by VECTSP_7:def 3;
  then
A2: card A9 <= card B9 by Th19;
  the ModuleStr of V = Lin(A) & B9 is linearly-independent by VECTSP_7:def 3;
  then card B9 <= card A9 by Th19;
  hence thesis by A2,XXREAL_0:1;
end;
