let y1, y2, z be object ; :: thesis: for X being set st z in [:X,{y1,y2}:] holds
( z `1 in X & ( z `2 = y1 or z `2 = y2 ) )
let X be set ; :: thesis: ( z in [:X,{y1,y2}:] implies ( z `1 in X & ( z `2 = y1 or z `2 = y2 ) ) )
assume A1: z in [:X,{y1,y2}:] ; :: thesis: ( z `1 in X & ( z `2 = y1 or z `2 = y2 ) )
then z `2 in {y1,y2} by Th4;
hence ( z `1 in X & ( z `2 = y1 or z `2 = y2 ) ) by A1, Th4, TARSKI:def 2; :: thesis: verum