reserve X for set,
        n,m,k for Nat,
        K for Field,
        f for n-element real-valued FinSequence,
        M for Matrix of n,m,F_Real;

theorem Th50:
  for X be set holds
    X is Basis of n -VectSp_over F_Real
      iff
    X is Basis of TOP-REAL n
  proof
    let X be set;
    set V = n -VectSp_over F_Real;
    set W = TOP-REAL n;

    hereby
      assume X is Basis of V;
      then
      reconsider A = X as Basis of V;
      reconsider B = A as Subset of W by Lm1;
      A is linearly-independent
      & Lin A = ModuleStr(# the carrier of V,
                            the addF of V,
                            the ZeroF of V,
                            the lmult of V #) by VECTSP_7:def 3;
      then
      A1: B is linearly-independent by MATRTOP2:7;

      set W0 = Lin B;

      A2: the carrier of W0 c= the carrier of W
        & 0. W0 = 0. W
        & the addF of W0 = (the addF of W) || (the carrier of W0)
        & the Mult of W0 = (the Mult of W) | [:REAL, the carrier of W0:]
          by RLSUB_1:def 2;

      the carrier of W0
       = [#]W0
      .= [#] Lin A by MATRTOP2:6
      .= the carrier of V by VECTSP_7:def 3
      .= the carrier of W by Lm1;
      hence X is Basis of W by A2,A1,RLVECT_3:def 3;
    end;

    assume X is Basis of W;
    then
    reconsider A = X as Basis of W;
    reconsider B = A as Subset of V by Lm1;

    A3: A is linearly-independent
      & Lin A = RLSStruct(# the carrier of W,
                            the ZeroF of W,
                            the addF of W,
                            the Mult of W #) by RLVECT_3:def 3;
    then
    A4: B is linearly-independent by MATRTOP2:7;

    set V0 = Lin B;

    A5: the carrier of V0 c= the carrier of V
      & 0. V0 = 0. V
      & the addF of V0 = (the addF of V) || the carrier of V0
      & the lmult of V0 = (the lmult of V) |
        [: the carrier of F_Real, the carrier of V0:] by VECTSP_4:def 2;

    the carrier of V0
     = [#]V0
    .= [#] Lin A by MATRTOP2:6
    .= the carrier of V by A3,Lm1;

    hence X is Basis of V by A4,A5,VECTSP_7:def 3;
  end;
