theorem
  for G being unital non empty multMagma holds 1.bool G = {
  the_unity_wrt the multF of G}
proof
  let G be unital non empty multMagma;
  bool G = multLoopStr(#bool carr(G), op(G).:^2,{the_unity_wrt op(G)}#) by Def9
;
  hence thesis;
end;
