let compatible_h ~pieceG ~pieceD =
        
        (** G est compatible horizontalement avec D ssi G.d = D.g, *)

        pieceG.d = pieceD.g