theorem
  R /\ [:dom R, rng R:] = R by Th1,XBOOLE_1:28;
