theorem
  the_unity_wrt multreal = 1 by Lm7,NUMBERS:19,Lm9,BINOP_1:def 8;
