let instance_of_plateau (mon_plateau:plateau) =
        let (c, n, m, p) = (mon_plateau.c, mon_plateau.n, mon_plateau.m, mon_plateau.p) in
        

(** On doit juste transformer la matrice de piece 'p' en une liste de pieces 'pi' Mais il faut etre cohérent avec la convention d'écriture d'une solution, ** qu'on fera par conversion + écriture d'une instance. *)


         {
                 ci = c;
                 ni = n;
                 mi = m;
                 pi = List.map kill_option2 (list_of_matrix p);
         }