thus for b1 being set st b1 = ([x,y] `1) \+\ x holds
b1 is empty ; :: thesis: verum