multMagma(# the carrier of G, the multF of G #) is SubStr of G by Def23;
hence ex b1 being SubStr of G st
( b1 is strict & not b1 is empty ) ; :: thesis: verum