theorem Th3:
  abs(r*f) = |.r.|*(abs f) by RFUNCT_1:25;
