theorem Th10:
  (addpfunc A).(f,g) = (addpfunc A).(g,f)
by RFUNCT_3:14,BINOP_1:def 2;
