let x be Element of X; :: thesis: x is ext-natural
per cases ( not X is empty or X is empty ) ;
end;