theorem Th402:
  r < s implies ].r,s.] \ ].r,s.[ = {s}
proof
  [.s,s.] = {s} by Th17;
  hence thesis by Th188;
end;
