theorem Th63:
  mlt(i|->r,R) = r*R
proof
  reconsider s=r as Element of REAL by XREAL_0:def 1;
  mlt(i|->s,R) = multreal[;](s,R) by FINSEQOP:20
    .= r*R by FINSEQOP:22;
  hence thesis;
end;
