let A be Subset of T; :: thesis: ( A is 2nd_class implies ( not A is 1st_class & not A is 3rd_class ) )
assume A is 2nd_class ; :: thesis: ( not A is 1st_class & not A is 3rd_class )
then A3: Cl (Int A) c< Int (Cl A) by Def7;
then Cl (Int A) c= Int (Cl A) by XBOOLE_0:def 8;
then A4: Cl (Int A), Int (Cl A) are_c=-comparable by XBOOLE_0:def 9;
not Int (Cl A) c= Cl (Int A) by A3, XBOOLE_0:def 8;
hence ( not A is 1st_class & not A is 3rd_class ) by A4, Def6, Def8; :: thesis: verum