with Inline18_Pkg2.Child;
with Inline18_Gen2;
with Inline18_Gen3;

package Inline18_Pkg1 is

  package My_G2 is new Inline18_Gen2 (Inline18_Pkg2.Child.General.T);

  package My_G3 is new Inline18_Gen3 (Integer);

  type Rec is record
    Comp : My_G2.T;
  end record;

  procedure Proc (R : in out Rec);

  package My_G is new My_G3.Inner_G;

end Inline18_Pkg1;