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