
theorem Th7:
  pr1 {} = {} & pr2 {} = {}
proof
  set r = <*>[:{}, {}:];
  dom pr1 r = dom {}
    .= {};
  hence pr1 {} = {};
  dom pr2 r = dom {}
    .= {};
  hence thesis;
end;
