[Ada] Only allow Has_Discriminants on type entities