per cases ( X = {} or X <> {} ) ;
suppose X = {} ; :: thesis: ex b1 being a_partition of X st b1 is finite
end;
suppose X <> {} ; :: thesis: ex b1 being a_partition of X st b1 is finite
end;
end;