Require Export RTopology ProductTopology Homeomorphisms.
(* Ropp_continuous was already proved in RTopology *)

Corollary const_multiple_continuous: forall (X:TopologicalSpace)
(f:point_set X -> point_set RTop) (c:R) (x:point_set X),
continuous_at f x -> continuous_at (fun x:point_set X => c * f x) x
(Y:=RTop).