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