theorem
  the_unity_wrt multcomplex = 1 by Lm7,NUMBERS:20,Lm8,BINOP_1:def 8;
