X /\ Y c= X by XBOOLE_1:17;
hence X /\ Y is loopless ; :: thesis: verum