let m be Nat; :: thesis: for T being non empty TopSpace
for f being Function of T,() holds
( f is open iff for p being Point of T
for V being open Subset of T st p in V holds
ex r being positive Real st Ball ((f . p),r) c= f .: V )

let T be non empty TopSpace; :: thesis: for f being Function of T,() holds
( f is open iff for p being Point of T
for V being open Subset of T st p in V holds
ex r being positive Real st Ball ((f . p),r) c= f .: V )

let f be Function of T,(); :: thesis: ( f is open iff for p being Point of T
for V being open Subset of T st p in V holds
ex r being positive Real st Ball ((f . p),r) c= f .: V )

A1: TopStruct(# the U1 of (), the topology of () #) = TopSpaceMetr () by EUCLID:def 8;
then reconsider f1 = f as Function of T,() ;
A2: TopStruct(# the U1 of T, the topology of T #) = TopStruct(# the U1 of T, the topology of T #) ;
thus ( f is open implies for p being Point of T
for V being open Subset of T st p in V holds
ex r being positive Real st Ball ((f . p),r) c= f .: V ) :: thesis: ( ( for p being Point of T
for V being open Subset of T st p in V holds
ex r being positive Real st Ball ((f . p),r) c= f .: V ) implies f is open )
proof
assume A3: f is open ; :: thesis: for p being Point of T
for V being open Subset of T st p in V holds
ex r being positive Real st Ball ((f . p),r) c= f .: V

let p be Point of T; :: thesis: for V being open Subset of T st p in V holds
ex r being positive Real st Ball ((f . p),r) c= f .: V

let V be open Subset of T; :: thesis: ( p in V implies ex r being positive Real st Ball ((f . p),r) c= f .: V )
assume A4: p in V ; :: thesis: ex r being positive Real st Ball ((f . p),r) c= f .: V
reconsider fp = f . p as Point of () by EUCLID:67;
f1 is open by A3, A1, A2, Th1;
then consider r being positive Real such that
A5: Ball (fp,r) c= f1 .: V by ;
Ball ((f . p),r) = Ball (fp,r) by TOPREAL9:13;
hence ex r being positive Real st Ball ((f . p),r) c= f .: V by A5; :: thesis: verum
end;
assume A6: for p being Point of T
for V being open Subset of T st p in V holds
ex r being positive Real st Ball ((f . p),r) c= f .: V ; :: thesis: f is open
for p being Point of T
for V being open Subset of T
for q being Point of () st q = f1 . p & p in V holds
ex r being positive Real st Ball (q,r) c= f1 .: V
proof
let p be Point of T; :: thesis: for V being open Subset of T
for q being Point of () st q = f1 . p & p in V holds
ex r being positive Real st Ball (q,r) c= f1 .: V

let V be open Subset of T; :: thesis: for q being Point of () st q = f1 . p & p in V holds
ex r being positive Real st Ball (q,r) c= f1 .: V

let q be Point of (); :: thesis: ( q = f1 . p & p in V implies ex r being positive Real st Ball (q,r) c= f1 .: V )
assume A7: q = f1 . p ; :: thesis: ( not p in V or ex r being positive Real st Ball (q,r) c= f1 .: V )
assume p in V ; :: thesis: ex r being positive Real st Ball (q,r) c= f1 .: V
then consider r being positive Real such that
A8: Ball ((f . p),r) c= f .: V by A6;
Ball ((f . p),r) = Ball (q,r) by ;
hence ex r being positive Real st Ball (q,r) c= f1 .: V by A8; :: thesis: verum
end;
then f1 is open by Th4;
hence f is open by A1, A2, Th1; :: thesis: verum