with Type_Information;
package Type_Images is
    function Lbound (For_Integer_Type : Type_Information.Type_Definition)
                    return Long_Integer;

    function Ubound (For_Integer_Type : Type_Information.Type_Definition)
                    return Long_Integer;

    function Lbound (For_Float_Type : Type_Information.Type_Definition)
                    return Float;

    function Ubound (For_Float_Type : Type_Information.Type_Definition)
                    return Float;

    function Ubound (For_Enum_Type : Type_Information.Type_Definition)
                    return String;
    function Lbound (For_Enum_Type : Type_Information.Type_Definition)
                    return String;
end Type_Images;