theorem
  x in R implies x`1 in dom R & x`2 in rng R
proof
  assume
A1: x in R;
  then x = [x`1,x`2] by Th15;
  hence thesis by A1,XTUPLE_0:def 12,def 13;
end;
