i did this function difinition
infixBTR(beT, racine,list) infix(leftTree,racineLeftTree) insert(racine, list) infix(rightTree, racineRightTree) <
infixBTR(beT, racine,list) infix(leftTree,racineLeftTree) insert(racine, list) infix(rightTree, racineRightTree)