theorem :: (29.3)
  (id A)*R = R*(id B)
proof
  (id A)*R = R by FUNCT_2:17
    .= R*(id B) by FUNCT_2:17;
  hence thesis;
end;
