reserve c,c1,c2 for Complex;
reserve r,r1,r2 for Real;
reserve w,w1,w2 for Rational;
reserve i,i1,i2 for Integer;
reserve n1,n2 for Nat;

theorem
  the_unity_wrt multnat = 1 by Lm12,BINOP_1:def 8;
