1generic
2  type Data_T is private;
3package Generic_Inst13_Pkg.Ops_G is
4
5  type List_T is array (Positive range <>) of Data_T;
6
7  function "or" (Left, Right : Data_T) return List_T is ((Left, Right));
8
9end Generic_Inst13_Pkg.Ops_G;