theorem
  (r multreal).r1 = r*r1 by Lm1;
