beginner ada generic fonction

[ametayer98@hotmail.com (annabelle)]

Hello,

I was given a spec(ADS)using genericity. I have to use the function
"TheKey" (see below)

______________________________________________________________________
GENERIC
  TYPE Element_type IS Private
  Key_type IS Private;                              

  WITH Function TheKey (my_item : Element_type) Return Key_type; 

  WITH Function "<"  (Left,Right: Key_type) Return Boolean; 
______________________________________________________________________

I am trying to use the function "TheKey" in my ADA program but I need
to use the function for TWO different type of elements !!!
______________________________________________________________________

	function TheKey(My_item: a_course) return Course_key_type is
		
	begin
		Return My_item.course_key;
	end lacle;
______________________________________________________________________

How can I use the same function for another type (a_student)??

Please HELP !!!