set EF = ExFormulasOf S;
set FF = AllFormulasOf S;
for x being object st x in ExFormulasOf S holds
x in AllFormulasOf S by Th16;
then ExFormulasOf S c= AllFormulasOf S ;
hence for b1 being set st b1 = (ExFormulasOf S) \ (AllFormulasOf S) holds
b1 is empty ; :: thesis: verum