Require Export RTopology.
Require Export ProductTopology.

(* Specifications: *)
Lemma Rplus_continuous: continuous_2arg Rplus (X:=RTop) (Y:=RTop) (Z:=RTop).
Corollary sum_continuous: forall (X:TopologicalSpace)
(f g:point_set X -> point_set RTop) (x:point_set X),
continuous_at f x -> continuous_at g x ->
continuous_at (fun x:point_set X => f x + g x) x (Y:=RTop).