with Equal4_Full_Selector_Filter; package Equal4 is procedure Compare (Obj : Equal4_Full_Selector_Filter.Object_T); end Equal4;