theorem Th90:
  f|Y is constant implies (-f)|Y is constant
proof
  (-f)|Y = -(f|Y) by Th46;
  hence thesis;
end;
