(* Types des coefficients *) type 'a dico = {print : 'a -> unit} ;; (* Qui sont ici des flottants *) let dico_float = {print=print_float} ;; (* Types des polynômes *) type 'a monome = {coeff: 'a; degre: int} ;; type 'a polynome = 'a monome list ;; (* Insérez vos cinq fonctions ici, puis généralisez les *) let _ = exit 0