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

theorem Th19:
  for G1, G2 being commutative non empty multMagma holds
    <*G1,G2*> is commutative multMagma-Family of {1,2}
proof
  let G1, G2 be commutative non empty multMagma;
  reconsider A = <*G1,G2*> as multMagma-Family of {1,2};
  A is commutative
  proof
    let x be Element of {1,2};
    x = 1 or x = 2 by TARSKI:def 2;
    hence thesis;
  end;
  hence thesis;
end;
