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