Section SumTopology.
Variable A:Type.
Variable X:forall a:A, TopologicalSpace.
Inductive sum_space_point_set : Type :=
sum_space_point_set_intro (a : A) : point_set (X a) -> sum_space_point_set.
Definition SumTopology : TopologicalSpace :=
StrongTopology sum_space_point_set_intro.
End SumTopology.
Arguments sum_space_point_set {A}.
Arguments sum_space_point_set_intro {A}.

Lemma sum_topology_closed_full_set_component {A : Type} (X : forall a, TopologicalSpace) :
forall a, @closed (SumTopology A X) (Im Full_set (sum_space_point_set_intro X a)).