theorem :: (13.1)
  proj1 (R*S) = (R~).:(proj1 S) & proj1 (R*S) c= proj1 R
proof
  thus
A1: proj1 (R*S) = (R*S)~.:C by Th50
    .= (S~*R~).:C by RELAT_1:35
    .= R~.:(S~.:C) by RELAT_1:126
    .= R~.:(proj1 S) by Th50;
  proj1 S = dom S;
  then proj1 (R*S) c= R~.:B by A1,RELAT_1:123;
  hence thesis by Th50;
end;
