reserve i, I for set,
  f, g, h for Function,
  s for ManySortedSet of I;

theorem Th10:
  for G1 being non empty multMagma holds <*G1*> is multMagma-Family of {1}
proof
  let G1 be non empty multMagma;
 dom <*G1*> = {1} by FINSEQ_1:2,def 8;
  then reconsider A = <*G1*> as ManySortedSet of {1} by PARTFUN1:def 2
,RELAT_1:def 18;
  A is multMagma-yielding
  proof
    let y be set;
    assume y in rng A;
    then consider x being object such that
A1: x in dom A and
A2: A.x = y by FUNCT_1:def 3;
    x = 1 by A1,TARSKI:def 1;
    hence thesis by A2;
  end;
  hence thesis;
end;
