reserve k,j,n for Nat,
  r for Real;
reserve x,x1,x2,y for Element of REAL n;
reserve f for real-valued FinSequence;

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