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