theorem
  the_unity_wrt addnat = 0 by Lm6,BINOP_1:def 8;
