with Ghost5_Parent; generic package Ghost5 is procedure Foo; end Ghost5;