1 with Ada
.Strings
.Fixed
.Hash
;
3 package body Limited_With3_Pkg1
is
5 function Equal
( Left
, Right
: Element_Access
) return Boolean is
10 function Equivalent_Keys
(Left
, Right
: Key_Type
) return Boolean is
15 function Hash
(Key
: Key_Type
) return Ada
.Containers
.Hash_Type
is
17 return Ada
.Strings
.Fixed
.Hash
(Key
.all);
20 end Limited_With3_Pkg1
;