
theorem Th6:
  for L being non empty multMagma, a being Element of L holds a*
  <*>(the carrier of L) = <*>(the carrier of L)
proof
  let L be non empty multMagma, a be Element of L;
  dom (a*<*>(the carrier of L)) = dom <*>(the carrier of L) by Def1;
  hence thesis;
end;
