consider X0 being non empty strict proper SubSpace of X;
take X0 ; :: thesis: ( X0 is almost_discrete & X0 is proper & X0 is strict & not X0 is empty )
thus ( X0 is almost_discrete & X0 is proper & X0 is strict & not X0 is empty ) ; :: thesis: verum