let X, Y be non empty TopStruct ; :: thesis: for f being Function of X,Y
for g being Function of Y,X st f = id X & g = id X & f is continuous & g is continuous holds
TopStruct(# the carrier of X,the topology of X #) = TopStruct(# the carrier of Y,the topology of Y #)
let f be Function of X,Y; :: thesis: for g being Function of Y,X st f = id X & g = id X & f is continuous & g is continuous holds
TopStruct(# the carrier of X,the topology of X #) = TopStruct(# the carrier of Y,the topology of Y #)
let g be Function of Y,X; :: thesis: ( f = id X & g = id X & f is continuous & g is continuous implies TopStruct(# the carrier of X,the topology of X #) = TopStruct(# the carrier of Y,the topology of Y #) )
assume that
A1:
f = id X
and
A2:
g = id X
and
A3:
f is continuous
and
A4:
g is continuous
; :: thesis: TopStruct(# the carrier of X,the topology of X #) = TopStruct(# the carrier of Y,the topology of Y #)
A5:
( [#] X <> {} & [#] Y <> {} )
;
A6: the carrier of X =
dom f
by FUNCT_2:def 1
.=
the carrier of Y
by A1, A2, FUNCT_2:def 1
;
the topology of X = the topology of Y
hence
TopStruct(# the carrier of X,the topology of X #) = TopStruct(# the carrier of Y,the topology of Y #)
by A6; :: thesis: verum