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

