with P_Util_Biblio; use P_Util_Biblio; package P_Biblio is procedure AfficherBiblio (Bib: in TR_Biblio); function LireNomAnnee return TR_Biblio; function "=" (Bib1, Bib2: in TR_Biblio) return Boolean; function "<" (Bib1, Bib2: in TR_Biblio) return Boolean; end P_Biblio;