with P_Util_Biblio;
use  P_Util_Biblio;

package P_Rech_Biblio is
   -- Renvoit l'indice du vecteur qui correspond à la recherche s'il
   --  existe et l'indice Vect'Last + 1 sinon
   function RechSeq (Vect: in TV_Biblio; Bib: in TR_Biblio) return Positive;
   function RechDico (Vect: in TV_Biblio; Bib: in TR_Biblio) return Positive;
end P_Rech_Biblio;