theorem
  Y|`R = R*(id Y)
proof
  let x,y;
  [x,y] in Y|`R iff y in Y & [x,y] in R by Def10;
  hence thesis by Th43;
end;
