reserve A,B,X,X1,Y,Y1,Y2,Z for set, a,x,y,z for object;
reserve P,R for Relation of X,Y;

theorem
  rng R c= Y1 implies R is Relation of X,Y1
proof
A1: dom R c= X by RELAT_1:def 18;
  assume rng R c= Y1;
  then R c= [:dom R, rng R:] & [:dom R, rng R:] c= [:X,Y1:] by A1,RELAT_1:7
,ZFMISC_1:96;
  hence thesis by XBOOLE_1:1;
end;
