1with Limited_With6; 2 3package body Limited_With6_Pkg is 4 function Get_Expression_Support (Obj : T) return Limited_With6.Sup_T is 5 begin 6 return Limited_With6.Sup_T (Obj + 1); 7 end Get_Expression_Support; 8 9 type TT is access all Limited_With6.Rec; 10end Limited_With6_Pkg; 11