
theorem
  for R being Skew-Field holds the carrier of MultGroup R c= the carrier of R
proof
  let R be Skew-Field, s be object;
  assume s in the carrier of MultGroup R;
  then s in NonZero R by Def1;
  hence thesis;
end;
