theorem
  1 is_a_unity_wrt multreal
 by BINOP_2:7,SETWISEO:14;
