∀ {α : Type u_1} {R : Type u_2} {l : Filter α} {f : α → R} {r : R} [inst : Semiring R] [inst_1 : LinearOrder R]
  [IsStrictOrderedRing R] [Archimedean R],
  0 < r → Filter.Tendsto f l Filter.atTop → Filter.Tendsto (fun x => f x * r) l Filter.atTop