set H = multMagma(# the carrier of G, the multF of G #);
reconsider H = multMagma(# the carrier of G, the multF of G #) as non empty Group-like multMagma ;
the multF of H = the multF of G || the carrier of H ;
then ( H is strict Subgroup of G & not H is trivial ) by GROUP_2:def 5;
hence ex b1 being Subgroup of G st
( b1 is strict & not b1 is trivial ) ; :: thesis: verum