theorem Lm6:
  multClSet(J,1.A) = {1.A}
  proof
    thus multClSet(J,1.A) c= {1.A}
    proof
      let x be object;
      assume x in multClSet(J,1.A); then
      consider n1 be Nat such that
A3:   x = (1.A)|^n1;
      x = 1.A by A3,Lm4;
      hence thesis by TARSKI:def 1;
    end;
    let x be object;
    assume x in {1.A}; then
    x = 1.A by TARSKI:def 1;
    hence thesis by C0SP1:def 4;
  end;
