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