let compatible_v ~pieceB ~pieceH =
        

(** B est compatible horizontalement avec H ssi B.h = H.b, *)


        pieceB.h = pieceH.b