set AF = AllFormulasOf S;
reconsider Phi = {} as finite Subset of (AllFormulasOf S) by XBOOLE_1:2;
[(Phi \/ {phi}),phi] is 1, {} ,{(R#0 S)} -derivable ;
hence for b1 being object st b1 = [{phi},phi] holds
b1 is 1, {} ,{(R#0 S)} -derivable ; :: thesis: verum