theorem Th4:
  x in [:X,Y:] implies x is pair
  proof
    assume x in [:X,Y:];
    then ex a,b be object st a in X & b in Y & x = [a,b] by ZFMISC_1:def 2;
    hence thesis;
  end;
