--  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;