1with Ada.Strings.Fixed.Hash; 2 3package body Limited_With3_Pkg1 is 4 5 function Equal ( Left, Right : Element_Access) return Boolean is 6 begin 7 return True; 8 end; 9 10 function Equivalent_Keys (Left, Right : Key_Type) return Boolean is 11 begin 12 return True; 13 end; 14 15 function Hash (Key : Key_Type) return Ada.Containers.Hash_Type is 16 begin 17 return Ada.Strings.Fixed.Hash (Key.all); 18 end Hash; 19 20end Limited_With3_Pkg1; 21