let E be Element of S; :: thesis: E is Subset of X
per cases ( S is empty or not S is empty ) ;
end;