let E be Element of B; :: thesis: E is X -defined
per cases ( not B is empty or B is empty ) ;
end;