
theorem LM10B:
  for X be RealUnitarySpace holds
    X*' = (RUSp2RNSp X)*'
proof
  let X be RealUnitarySpace;
  set Y = RUSp2RNSp X;
  the carrier of X*' = the carrier of Y*'by LM10A;
  hence X*' = (RUSp2RNSp X)*';
end;
