let compatible_v_option pieceB pieceH =
        myprint myverb "Appel a la relation de compatibilite verticale.";
        match (pieceB, pieceH) with
        | Some x, Some y -> 
                myprint myverb "\tLes deux cases sont des 'Some'.";
                x.h = y.b;
        | _, _                 -> 
                myprint myverb "\tUne des deux cases est un 'None'.";
                true