 reserve x,y,X,Y for set;
reserve G for non empty multMagma,
  D for set,
  a,b,c,r,l for Element of G;
reserve M for non empty multLoopStr;

theorem
  G is SubStr of G & M is MonoidalSubStr of M
proof
  thus op(G) c= op(G);
  thus op(M) c= op(M);
  thus thesis;
end;
