
theorem :: WEDDWITT
  for R being Skew-Field holds the carrier of R = (the carrier of
  MultGroup R) \/ {0.R}
proof
  let R being Skew-Field;
  NonZero R = the carrier of MultGroup R by Def1;
  hence thesis by XBOOLE_1:45;
end;
