function sge(var x1,x2: scalar): boolean;
begin { sge }
  sge:=(irdiff(x1.l,x2.u)>=0);
end { sge };

