let X be non empty discrete TopSpace; :: thesis: for A being Subset of X holds
( A is maximal_discrete iff not A is proper )
let A be Subset of X; :: thesis: ( A is maximal_discrete iff not A is proper )

hereby :: thesis: ( not A is proper implies A is maximal_discrete )

X is SubSpace of X by TSEP_1:2;
then reconsider C = the carrier of X as Subset of X by TSEP_1:1;
assume A1: A is maximal_discrete ; :: thesis: not A is proper
C is discrete by Th27;
then A = C by A1, Def7;
hence not A is proper by SUBSET_1:def 7; :: thesis: verum

end;

hereby :: thesis: verum

assume not A is proper ; :: thesis: A is maximal_discrete
then A2: A = the carrier of X by SUBSET_1:def 7;
then A3: for D being Subset of X st D is discrete & A c= D holds
A = D by XBOOLE_0:def 10;
A is discrete by A2, Th27;
hence A is maximal_discrete by A3, Def7; :: thesis: verum

end;