Définissez en Prolog les relations suivantes:
?- enleve(X,[a,b,a],LX). X=a LX=[b,a] X=b LX=[a,a] X=a LX=[a,b] yes
?- permut([a,b,c],L). L=[a,b,c] L=[a,c,b] L=[b,a,c] L=[b,c,a] L=[c,a,b] L=[c,b,a] yes
?- partition(4,[3,8,4,1,6,5,2],LinfX,LsupX). LinfX = [3,1,2] LsupX = [8,4,6,5] yes