let plateau_of_instance (mon_instance:instance) =
        let (ci, ni, mi, pi) = (mon_instance.ci, mon_instance.ni, mon_instance.mi, mon_instance.pi) in
        let mon_plateau = {
                 c = ci;
                 n = ni;
                 m = mi;
                 p = matrix_of_list ~l:(List.map (fun u -> Some(u)) pi) ~m:mi ~n:ni;
                 v = false;
         } in
(*         mon_plateau.v <- (try (est_valide_plateau mon_plateau; false;) with         *)
(*| Solution_trouvee                         -> true;*)
(*| (Erreur_compatibilite_h(i, j))         -> print_string ("Projet Puzzle - plateau_of_instance : lors de la conversion naive, une erreur de compatibilite horizontale a ete trouve pour les indices suivants i="^(string_of_int i)^" et j="^(string_of_int j)); false;*)
(*| Mauvais_tableau                         -> print_string ("Projet Puzzle - plateau_of_instance : lors de la conversion naive, une erreur de taille du tableau a ete trouvee."); false;*)
(*| (Erreur_compatibilite_v(i, j))        -> print_string ("Projet Puzzle - plateau_of_instance : lors de la conversion naive, une erreur de compatibilite verticale a ete trouve pour les indices suivants i="^(string_of_int i)^" et j="^(string_of_int j)); false;*)
(*                         );*)
         mon_plateau