theorem Th15:
  x in R implies x = [x`1,x`2]
proof
  assume x in R;
  then ex x1,x2 being object st x=[x1,x2] by RELAT_1:def 1;
  hence thesis;
end;
