blob: 5b95fb2e16536877c819e67653c69cc262095109 [file] [log] [blame]
package body Opt91_Pkg is
package body Pure_Relation is
overriding function Custom_Image (Self : Rel) return String is
begin
return Custom_Image (Self.Rel);
end Custom_Image;
end Pure_Relation;
end Opt91_Pkg;