theorem Th28:
  -R_EAL f = R_EAL((-1)(#)f) & -R_EAL f = R_EAL -f
proof
  -R_EAL f = (-1)(#)R_EAL f by MESFUNC2:9;
  hence thesis by Th20;
end;
