theorem Th1:
  A c= Y implies id A = (id Y)|A
proof
  assume A c= Y;
  hence id A = id(Y /\ A) by XBOOLE_1:28
    .= (id Y)*(id A) by FUNCT_1:22
    .= (id Y)|A by RELAT_1:65;
end;
