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;