
theorem Th6:
  for V being RealLinearSpace holds Up((Omega).V) is circled
proof
  let V be RealLinearSpace, u be VECTOR of V, r be Real;
  (Omega).V = the RLSStruct of V by RLSUB_1:def 4;
  then r * u in the carrier of (Omega).V;
  hence thesis by RUSUB_4:def 5;
end;
