theorem Th89:
  f|Y is constant implies (p(#)f)|Y is constant
proof
  (p(#)f)|Y = p(#)(f|Y) by Th49;
  hence thesis;
end;
