let X be Subset of REAL ; :: thesis: ( ( for r being real number st r in X holds
ex N being Neighbourhood of r st N c= X ) implies X is open )
assume that
A1: for r being real number st r in X holds
ex N being Neighbourhood of r st N c= X and
A2: not X is open ; :: thesis: contradiction
not X ` is closed by A2, Def5;
then consider s1 being Real_Sequence such that
A3: rng s1 c= X ` and
A4: s1 is convergent and
A5: not lim s1 in X ` by Def4;
consider N being Neighbourhood of lim s1 such that
A6: N c= X by A1, A5, SUBSET_1:50;
consider g being real number such that
A7: 0 < g and
A8: ].((lim s1) - g),((lim s1) + g).[ = N by Def7;
consider n being Element of NAT such that
A9: for m being Element of NAT st n <= m holds
abs ((s1 . m) - (lim s1)) < g by A4, A7, SEQ_2:def 7;
n in NAT ;
then n in dom s1 by FUNCT_2:def 1;
then A10: s1 . n in rng s1 by FUNCT_1:def 5;
A11: abs ((s1 . n) - (lim s1)) < g by A9;
then (s1 . n) - (lim s1) < g by SEQ_2:9;
then A12: s1 . n < (lim s1) + g by XREAL_1:21;
- g < (s1 . n) - (lim s1) by A11, SEQ_2:9;
then (lim s1) + (- g) < (lim s1) + ((s1 . n) - (lim s1)) by XREAL_1:8;
then s1 . n in { s where s is Real : ( (lim s1) - g < s & s < (lim s1) + g ) } by A12;
hence contradiction by A3, A6, A8, A10, XBOOLE_0:def 5; :: thesis: verum