-- This source is licensed under the Sunset License v1.0
package body Packrat.Traits is
function "<"
(Left, Right : in Element_Array)
return Boolean
is
function LT is new Array_Less_Than
(Base_Type => Element_Type,
Array_Type => Element_Array);
begin
return LT (Left, Right);
end "<";
end Packrat.Traits;