let S, T be TopSpace; :: thesis: for f being Function of S,T
for g being Function of TopStruct(# the carrier of S, the topology of S #),T st f = g holds
( f is continuous iff g is continuous )

let f be Function of S,T; :: thesis: for g being Function of TopStruct(# the carrier of S, the topology of S #),T st f = g holds
( f is continuous iff g is continuous )

let g be Function of TopStruct(# the carrier of S, the topology of S #),T; :: thesis: ( f = g implies ( f is continuous iff g is continuous ) )
assume A1: f = g ; :: thesis: ( f is continuous iff g is continuous )
thus ( f is continuous implies g is continuous ) by A1, Th31; :: thesis: ( g is continuous implies f is continuous )
assume A2: g is continuous ; :: thesis: f is continuous
let P1 be Subset of T; :: according to PRE_TOPC:def 6 :: thesis: ( P1 is closed implies f " P1 is closed )
assume P1 is closed ; :: thesis: f " P1 is closed
then g " P1 is closed by A2;
hence f " P1 is closed by A1, Th31; :: thesis: verum