theorem Th30:
  A c= B implies ClosedProd(R,A,A) c= ClosedProd(R,B,B)
proof
  assume A c= B;
  then A=B or A in B by ORDINAL1:11,XBOOLE_0:def 8;
  hence thesis by Th17;
end;
