reserve x,y,z,X,Y for set;
reserve X,Y for non empty set,
  f for Function of X,Y;

theorem Th11:
  for X being non empty set, F being BinOp of X holds F is
  having_a_unity iff the_unity_wrt F is_a_unity_wrt F
by BINOP_1:def 8;
