reserve V for non empty RealLinearSpace;

theorem Th22b:
for X be RealLinearSpace holds 0.(X*') = (the carrier of X) --> 0
proof
  let X be RealLinearSpace;
A1: X*' is Subspace of RealVectSpace(the carrier of X) by Th17,RSSPACE:11;
  0.(RealVectSpace(the carrier of X )) = (the carrier of X) --> 0;
  hence thesis by A1,RLSUB_1:11;
end;
