Adição da verificação de casamento entre irmãos na função CriaCasamento