Merci pour l'éclairement

Bonjour, Je fait du caml en vacances et je me demandais pourquoi la fonction "defile" suivante : type 'a file_FIFO = { contenu: 'a vect; taille: int ;mutable nombre: int; mutable tete: int};; let defile file = file.contenu.(file.tete) ; if file.nombre = 0 then failwith "File vide"...