reserve a,b,c,d,x,y,z for object, X,Y,Z for set;
reserve R,S,T for Relation;
reserve F,G for Function;

theorem Th13:
  field(R |_2 X) c= field R & field(R |_2 X) c= X
by Th12;
