blob: b31aa8de350ef88de4dbafd7fbc27dfd7e5de1be [file] [log] [blame]
with Opt91_Pkg; use Opt91_Pkg;
package Opt91 is
type True_Relation_Rec is null record;
function Custom_Image (Self : True_Relation_Rec) return String;
package True_Relation is new Pure_Relation (Ty => True_Relation_Rec);
end Opt91;