theorem
  X c= dom R implies dom(R|X) = X
proof
  dom(R|X) = dom R /\ X by Th55;
  hence thesis by XBOOLE_1:28;
end;
