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 Th4:
  the carrier of TOP-REAL n = the carrier of REAL-NS n
  proof
    thus the carrier of TOP-REAL n
    = the carrier of the RLSStruct of (TOP-REAL n)
    .= the carrier of the RLSStruct of REAL-NS n by Th1
    .= the carrier of REAL-NS n;
  end;
