theorem
  1**A = A
proof
  let a;
  hereby
    assume a in 1**A;
    then consider c1,c2 such that
A1: a = c1*c2 and
A2: c1 in {1} and
A3: c2 in A;
    c1 = 1 by A2,TARSKI:def 1;
    hence a in A by A1,A3;
  end;
  assume a in A;
  then 1*a in {1*c: c in A};
  hence thesis by Th194;
end;
