theorem
  the_unity_wrt addcomplex = 0 by Lm1,NUMBERS:20,Lm2,BINOP_1:def 8;
