with Nested_Generic2_G1; with Nested_Generic2_G2; package Nested_Generic2 is package My_G1 is new Nested_Generic2_G1 ("Lewis"); package My_G2 is new Nested_Generic2_G2 (T => Integer, P => My_G1); procedure Dummy; private package My_Nested is new My_G1.Nested ("Clark"); end Nested_Generic2;