(<*x*> ^ p) . 1 = x by FINSEQ_1:41;
hence for b1 being set st b1 = ((<*x*> ^ p) . 1) \+\ x holds
b1 is empty ; :: thesis: verum