let x1 be set ; :: thesis: {x1,x1,x1,x1} = {x1}
thus {x1,x1,x1,x1} = {x1,x1} by Th77
.= {x1} by Th69 ; :: thesis: verum