theorem Th2:
  for r being Real st r*r=r holds r=0 or r=1
proof
  let r be Real;
  assume r*r=r;
  then r*(r-1)=0;
  then r=0 or r-1=0 by XCMPLX_1:6;
  hence thesis;
end;
