let x, y be set ; :: thesis: [:{x},{y}:] = {[x,y]}
now let z be
set ;
:: thesis: ( ( z in [:{x},{y}:] implies z in {[x,y]} ) & ( z in {[x,y]} implies z in [:{x},{y}:] ) )thus
(
z in [:{x},{y}:] implies
z in {[x,y]} )
:: thesis: ( z in {[x,y]} implies z in [:{x},{y}:] )assume
z in {[x,y]}
;
:: thesis: z in [:{x},{y}:]then
(
z = [x,y] &
x in {x} &
y in {y} )
by TARSKI:def 1;
hence
z in [:{x},{y}:]
by Lm17;
:: thesis: verum end;
hence
[:{x},{y}:] = {[x,y]}
by TARSKI:2; :: thesis: verum