let I be set ; :: thesis: for x, y being ManySortedSet of I holds {x} (/\) {x,y} = {x}
let x, y be ManySortedSet of I; :: thesis: {x} (/\) {x,y} = {x}

now :: thesis: for i being object st i in I holds
({x} (/\) {x,y}) . i = {x} . i

let i be object ; :: thesis: ( i in I implies ({x} (/\) {x,y}) . i = {x} . i )
assume A1: i in I ; :: thesis: ({x} (/\) {x,y}) . i = {x} . i
hence ({x} (/\) {x,y}) . i = ({x} . i) /\ ({x,y} . i) by PBOOLE:def 5
.= {(x . i)} /\ ({x,y} . i) by A1, Def1
.= {(x . i)} /\ {(x . i),(y . i)} by A1, Def2
.= {(x . i)} by ZFMISC_1:13
.= {x} . i by A1, Def1 ;
:: thesis: verum

end;

hence {x} (/\) {x,y} = {x} ; :: thesis: verum