let x be set ; :: thesis: ( ex y, z being set st x = [y,z] implies ( x <> x `1 & x <> x `2 ) )
given y, z being set such that A1: x = [y,z] ; :: thesis: ( x <> x `1 & x <> x `2 )
now end;
hence x <> x `1 by A1, Def1; :: thesis: x <> x `2
now end;
hence x <> x `2 by A1, Def2; :: thesis: verum